Routine: PSOMLLD2

Information

PSOMLLD2 ;BIR/LE - Service Connection Check for SC>50% ;14-May-2013 11:13;PLS

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSONEW2 PSONEWF PSONEWG PSORN52

Name	Comments	DBIA/ICR reference
SC	;This routine is used for SC>50% - OUTSIDE OF COPAY - DFN AND PSOSCP VARIABLES ARE EXPECTED TO BE PRESENT WHEN CALLED ; Requires: DFN, PSOSCP, PSOSCA
PAUSE
EXIT	;
SHAD	; PROJ 112/SHAD Question
SC2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",! Line Location: SC2+0
Function Call: WRITE	Prompt: !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",! Line Location: SC2+1
Function Call: WRITE	Prompt: ! Line Location: SC2+18
Function Call: WRITE	Prompt: ! Line Location: SC2+24
Function Call: WRITE	Prompt: ! Line Location: PAUSE+0
Function Call: WRITE	Prompt: ! Line Location: SHAD+18
Function Call: WRITE	Prompt: ! Line Location: SHAD+19
Function Call: WRITE	Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of " Line Location: SHAD+24
Function Call: WRITE	Prompt: !,"Shipboard Hazard and Defense (SHAD) exposure." Line Location: SHAD+25
Routine Call	DIR Line Location: SC2+18 SC2+24 PAUSE SHAD+18

Name	Line Occurrences
EXIT	SC2+28
PAUSE	SHAD+25

Name	Field # of Occurrence
DFN	SC+3~*
DIR	SC2+3!, SC2+18!, SC2+24!, EXIT+1!, PAUSE!, SHAD+5!, SHAD+18!
DIR("?"	SC2+5, SHAD+7, SHAD+8, SHAD+9, SHAD+10, SHAD+11
DIR("A"	SC2+4, SC2+24, PAUSE, SHAD+6
DIR("B"	SC2+7!, SC2+8!, SC2+9!, SC2+10!, SC2+11, SC2+12, SC2+13, SC2+15, SC2+16, SC2+17! , SHAD+13, SHAD+14!, SHAD+17*
DIR(0	SC2+3, SC2+24, PAUSE, SHAD+5
DIRUT	EXIT+1!
DTOUT	SC2+22, EXIT+1!, SHAD+20, SHAD+23
DUOUT	SC2+22, EXIT+1!, SHAD+20, SHAD+23
>> PSOANSQ(	SC2+20, SHAD+3!, SHAD+26, SHAD+27*
>> PSOANSQ("SC>50"	SC2+21, SC2+27
>> PSOANSQ("SHAD"	SHAD+3!, SHAD+21, SHAD+28
>> PSOANSQD("SC"	SC2+10, SC2+12
>> PSOANSQD("SC>50"	SC2+10, SC2+11, SC2+15, SC2+19*
>> PSOANSQD("SHAD"	SHAD+3!, SHAD+16, SHAD+17, SHAD+22*
PSOANSR	SC2+24*, SC2+29, EXIT+1!
>> PSOCPAY	SC2+24, SC2+29
>> PSOCPZ("DFLG"	SC2+22, SC2+28, SHAD+20
>> PSODFN	SC+3, SHAD+2
>> PSOFLAG	SC2+6, SC2+15, SC2+19, SC2+22, SC2+24, SC2+28, SHAD+12, SHAD+15, SHAD+19
>> PSOMESFI	SC2+1*
>> PSOMESOI	SC2*
>> PSONEWFF	SC2+15, SC2+19, SHAD+15, SHAD+22
>> PSORENW("OIRXN"	SC2+7, SC2+8, SC2+9, SC2+13, SHAD+13
>> PSORX(	SC2+7, SC2+8, SC2+9, SC2+13, SHAD+13
>> PSORX("SC"	SC2+13
>> PSORXED	SC2
PSOSCA	EXIT+1!
>> PSOSCP	SC2+7, SC2+8, SC2+9, SHAD+25
PSOUFLAG	SC2+3~, SC2+7, SC2+8, SC2+9, SC2+10, SC2+11, SC2+12, SC2+16, SC2+24, SC2+25 , SC2+27, SHAD+4~, SHAD+13, SHAD+14*, SHAD+24, SHAD+26
>> PSOX("IRXN"	SC2+20, SHAD+3, SHAD+26, SHAD+27
X	EXIT+1!
Y	SC2+19, SC2+20, SC2+21, SC2+22, SC2+23*, SC2+24, EXIT+1!, SHAD+20, SHAD+21, SHAD+22 , SHAD+23, SHAD+27, SHAD+28

Name	Field # of Occurrence
$T(GETSHAD^DGUTL3	SHAD+2