STANDARD DATA DICTIONARY #52.86 -- EPHARMACY SITE PARAMETERS FILE 3/24/25 PAGE 1
STORED IN ^PS(52.86, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
DD ACCESS: @
RD ACCESS: Pp
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
APPLICATION GROUP(S): PSO
CROSS
REFERENCED BY: DIVISION(B)
LAST MODIFIED: SEP 7,2018@12:24:14
52.86,.01 DIVISION 0;1 POINTER TO OUTPATIENT SITE FILE (#59) (Required)
PHARMACY DIVISION
LAST EDITED: MAY 22, 2008
HELP-PROMPT: Enter a valid division number.
DESCRIPTION:
This is the Pharmacy Division for which the division-specific ePharmacy parameters will be active.
CROSS-REFERENCE: 52.86^B
1)= S ^PS(52.86,"B",$E(X,1,30),DA)=""
2)= K ^PS(52.86,"B",$E(X,1,30),DA)
52.86,2 USER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 15, 2013
HELP-PROMPT: Enter the user who last updated the REJECT WORKLIST DAYS field.
DESCRIPTION: This field contains the user that created or last updated the REJECT WORKLIST DAYS field (#4) in
this file.
TECHNICAL DESCR:
This field provides an audit of the user that last updated the REJECT WORKLIST DAYS field (#4).
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the REJECT WORKLIST DAYS field of the EPHARMACY SITE PARAMETERS File
52.86,3 DATE OF LAST UPDATE 0;4 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 15, 2013
HELP-PROMPT: Enter the date and time the REJECT WORKLIST DAYS field was edited.
DESCRIPTION: This field contains the date/time that the REJECT WORKLIST DAYS field (#4) was created or last
updated.
TECHNICAL DESCR: This field provides an audit of the date/time that the REJECT WORKLIST DAYS field (#4) was added or
edited.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the REJECT WORKLIST DAYS field of the EPHARMACY SITE PARAMETERS File
52.86,4 REJECT WORKLIST DAYS 3;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 15, 2013
HELP-PROMPT: Type a Number between 1 and 30, 0 Decimal Digits
DESCRIPTION: The number of days an uncommented reject can remain on the reject worklist without being included
in the nightly reject worklist alert mail message.
TECHNICAL DESCR:
If this field is empty, the alert will use 5.
CROSS-REFERENCE: ^^TRIGGER^52.86^2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PS(52.86,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S D
IU=X K Y S X=DIV S X=DUZ S DIH=$G(^PS(52.86,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.86,DIG=2 D ^
DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PS(52.86,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S D
IU=X K Y S X=DIV S X=DUZ S DIH=$G(^PS(52.86,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.86,DIG=2 D ^
DICR
CREATE VALUE)= S X=DUZ
DELETE VALUE)= S X=DUZ
FIELD)= USER
This trigger is used to set the user ID of the person who last edited the REJECT WORKLIST DAYS
field (#4).
CROSS-REFERENCE: ^^TRIGGER^52.86^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PS(52.86,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S D
IU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^PS(52.86,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,
DIH=52.86,DIG=3 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PS(52.86,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S D
IU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^PS(52.86,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,
DIH=52.86,DIG=3 D ^DICR
CREATE VALUE)= NOW
DELETE VALUE)= NOW
FIELD)= DATE OF LAST UPDATE
This is the date and time that the REJECT WORKLIST DAYS field (#4) was last updated.
52.86,5 REJ RESOLUTION REQUIRED CODE 5;0 POINTER Multiple #52.865
LAST EDITED: JUN 10, 2013
DESCRIPTION:
This field identifies Reject Resolution Required Codes defined for the selected ePharmacy Division.
52.865,.01 REJ RESOLUTION REQUIRED CODE 0;1 POINTER TO BPS NCPDP REJECT CODES FILE (#9002313.93) (Required)
LAST EDITED: JUN 10, 2013
HELP-PROMPT: Enter a Reject code for Reject Resolution Required.
DESCRIPTION: This field identifies a Reject Resolution Required Code defined for the selected ePharmacy
Division.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 52.865^B
1)= S ^PS(52.86,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^PS(52.86,DA(1),5,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^52.865^.03
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,5,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.865,.01,1,2,1.4)
1.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.865,DIG=.03 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,5,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.865,.01,1,2,2.4)
2.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.865,DIG=.03 D ^DICR
CREATE VALUE)= S:$G(DUZ) X=DUZ
DELETE VALUE)= S:$G(DUZ) X=DUZ
FIELD)= USER
Sets the USER field to the current DUZ whenever the REJ RESOLUTION REQUIRED CODE field is changed
or created.
CROSS-REFERENCE:^^TRIGGER^52.865^.04
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,5,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.865,.01,1,3,1.4)
1.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.865,DIG=.04 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,5,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.865,.01,1,3,2.4)
2.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.865,DIG=.04 D ^DICR
CREATE VALUE)= NOW
DELETE VALUE)= NOW
FIELD)= DATE
Sets the DATE LAST UPDATED field to the current date and time.
52.865,.02 DOLLAR THRESHOLD 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1.N) X
LAST EDITED: JUN 10, 2013
HELP-PROMPT: Type a number between 0 and 99999, 0 decimal digits.
DESCRIPTION: If a Reject Resolution Required Code is received on an ECME claim reject, the value of this field
is compared to the Gross Amount Due of the prescription.
If the Gross Amount Due is greater or equal to the value of this field then the reject is
transferred to the Third Party WorkList for Reject Resolution Required (RRR) processing.
If the value of this field is left blank or set to 0, then all rejects with the RRR reject code
will be transferred to the Third Party Worklist for RRR processing.
CROSS-REFERENCE:^^TRIGGER^52.865^.03
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,5,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.865,.02,1,1,1.4)
1.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.865,DIG=.03 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,5,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.865,.02,1,1,2.4)
2.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.865,DIG=.03 D ^DICR
CREATE VALUE)= S:$G(DUZ) X=DUZ
DELETE VALUE)= S:$G(DUZ) X=DUZ
FIELD)= user
CROSS-REFERENCE:^^TRIGGER^52.865^.04
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,5,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.865,.02,1,2,1.4)
1.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.865,DIG=.04 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,5,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.865,.02,1,2,2.4)
2.4)= S DIH=$G(^PS(52.86,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.865,DIG=.04 D ^DICR
CREATE VALUE)= NOW
DELETE VALUE)= NOW
FIELD)= DATE LAST UPDATED
Sets DATE LAST UPDATED to the current date/time.
52.865,.03 USER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 10, 2013
HELP-PROMPT: Select the user who last edited the fields.
DESCRIPTION: This is set by a trigger to the current DUZ whenever the REJ RESOLUTION REQUIRED CODE (#.01) field
or the DOLLAR THRESHOLD (#.02) field is updated.
NOTES: TRIGGERED by the REJ RESOLUTION REQUIRED CODE field of the REJ RESOLUTION REQUIRED CODE sub-field
of the EPHARMACY SITE PARAMETERS File
TRIGGERED by the DOLLAR THRESHOLD field of the REJ RESOLUTION REQUIRED CODE sub-field of the
EPHARMACY SITE PARAMETERS File
52.865,.04 DATE LAST UPDATED 0;4 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 10, 2013
HELP-PROMPT: Enter the date/time the fields were last updated.
DESCRIPTION: This is set by a trigger to the current date/time whenever the REJ RESOLUTION REQUIRED CODE (#.01)
field or the DOLLAR THRESHOLD (#.02) field is updated.
NOTES: TRIGGERED by the REJ RESOLUTION REQUIRED CODE field of the REJ RESOLUTION REQUIRED CODE sub-field
of the EPHARMACY SITE PARAMETERS File
TRIGGERED by the DOLLAR THRESHOLD field of the REJ RESOLUTION REQUIRED CODE sub-field of the
EPHARMACY SITE PARAMETERS File
52.86,6 EPHARMACY RESPONSE PAUSE 3;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<0)!(X?.E1"."1.N) X
LAST EDITED: DEC 09, 2014
HELP-PROMPT: Type a number between 0 and 3, 0 decimal digits.
DESCRIPTION: This field contains the number of seconds the claim status message will be displayed on the screen
after the transmission message. The number of seconds to delay may be from 0 to 3 with the default
of 2 seconds.
52.86,7 IGNORE THRESHOLD 3;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1.N) X
LAST EDITED: DEC 20, 2017
HELP-PROMPT: Type a number between 0 and 9999999, 0 decimal digits.
DESCRIPTION: The value of the Ignore Threshold field is compared to the Gross Amount Due of the prescription.
If the Gross Amount Due is greater than or equal to the value of this field, then the user must
hold the EPHARMACY SITE MANAGER security key in order to Ignore the reject. If the value of this
field is set to 0, then no rejects can be Ignored unless the user has the security key. If the
value of this field is left blank, the Gross Amount Due will not be considered.
52.86,52.8651 TRANSFER REJECT CODE 1;0 POINTER Multiple #52.8651 (Add New Entry without Asking)
LAST EDITED: MAR 19, 2013
DESCRIPTION: This multiple contains all reject codes other than DUR and refill-too-soon that will be allowed to
be placed on the Pharmacy Reject Worklist.
52.8651,.01 TRANSFER REJECT CODE 0;1 POINTER TO BPS NCPDP REJECT CODES FILE (#9002313.93) (Multiply asked)
LAST EDITED: MAY 28, 2013
HELP-PROMPT: Enter a third party claim reject code.
DESCRIPTION:
This field identifies a Transfer Reject code defined for the selected ePharmacy Division.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^52.8651^2
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.8651,.01,1,1,1.4)
1.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.8651,DIG=2 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.8651,.01,1,1,2.4)
2.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.8651,DIG=2 D ^DICR
CREATE VALUE)= S:$G(DUZ) X=DUZ
DELETE VALUE)= S:$G(DUZ) X=DUZ
FIELD)= USER
This trigger is used to set the User ID of the person who lasted edited the third party reject
code.
CROSS-REFERENCE:^^TRIGGER^52.8651^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/1
00) X ^DD(52.8651,.01,1,2,1.4)
1.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.8651,DIG=3 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/1
00) X ^DD(52.8651,.01,1,2,2.4)
2.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.8651,DIG=3 D ^DICR
CREATE VALUE)= NOW
DELETE VALUE)= NOW
FIELD)= DATE
Trigger to set the DATE OF LAST UPDATE field when a third party reject code is entered.
CROSS-REFERENCE:52.8651^B
1)= S ^PS(52.86,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(52.86,DA(1),1,"B",$E(X,1,30),DA)
52.8651,1 AUTO SEND 0;2 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAY 19, 2013
HELP-PROMPT: Enter Yes for auto update or No for requires OPECC intervention.
DESCRIPTION: Enter YES to allow the Third Party claim reject code to be automatically placed on the Pharmacy
Reject Worklist or NO to require Outpatient Pharmacy Electronic Claims Coordinator (OPECC)
intervention to do so. A null value will be treated the same as entering NO in this field.
CROSS-REFERENCE:^^TRIGGER^52.8651^2
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.8651,1,1,1,1.4)
1.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.8651,DIG=2 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S:$G(DUZ) X=DUZ X ^DD(52.8651,1,1,1,2.4)
2.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=52.8651,DIG=2 D ^DICR
CREATE VALUE)= S:$G(DUZ) X=DUZ
DELETE VALUE)= S:$G(DUZ) X=DUZ
FIELD)= USER
This trigger is used to set the User ID of the person who lasted edited the AUTO SEND field.
CROSS-REFERENCE:^^TRIGGER^52.8651^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/1
00) X ^DD(52.8651,1,1,2,1.4)
1.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.8651,DIG=3 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/1
00) X ^DD(52.8651,1,1,2,2.4)
2.4)= S DIH=$G(^PS(52.86,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=52.8651,DIG=3 D ^DICR
CREATE VALUE)= NOW
DELETE VALUE)= NOW
FIELD)= DATE
This trigger is used to set the date that the AUTO SEND field was lasted updated.
52.8651,2 USER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 28, 2013
HELP-PROMPT: Enter the User who entered or edited the Third Party reject code information.
DESCRIPTION: This is the user who last updated the TRANSFER REJECT CODE (#.01) field or the AUTO SEND (#1)
field.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the TRANSFER REJECT CODE field of the TRANSFER REJECT CODE sub-field of the EPHARMACY
SITE PARAMETERS File
TRIGGERED by the AUTO SEND field of the TRANSFER REJECT CODE sub-field of the EPHARMACY SITE
PARAMETERS File
52.8651,3 DATE OF LAST UPDATE 0;4 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 19, 2013
HELP-PROMPT: Enter date and time Third Party reject code information was last updated.
DESCRIPTION: This is the date/time that the TRANSFER REJECT CODE (#.01) field or the AUTO SEND (#1) field was
added or updated.
TECHNICAL DESCR:This field provides an audit of the date/time the TRANSFER REJECT CODE (#.01) field or the AUTO
SEND (#1) field was last updated.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the TRANSFER REJECT CODE field of the TRANSFER REJECT CODE sub-field of the EPHARMACY
SITE PARAMETERS File
TRIGGERED by the AUTO SEND field of the TRANSFER REJECT CODE sub-field of the EPHARMACY SITE
PARAMETERS File
FILES POINTED TO FIELDS
BPS NCPDP REJECT CODES (#9002313.93) REJ RESOLUTION REQUIRED CODE:REJ RESOLUTION REQUIRED CODE (#.01)
TRANSFER REJECT CODE:TRANSFER REJECT CODE (#.01)
NEW PERSON (#200) USER (#2)
REJ RESOLUTION REQUIRED CODE:USER (#.03)
TRANSFER REJECT CODE:USER (#2)
OUTPATIENT SITE (#59) DIVISION (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):