Routine: PSOMLLD2

Information

PSOMLLD2 ;BIR/LE - Service Connection Check for SC>50% ;02/27/04

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
SC2
EXIT	;
PAUSE
SHAD	; PROJ 112/SHAD Question
CHKPAG	;
DISSCD	;DISPLAY SERVICE CONNECTED DISABILITIES - REPLACES CALL TO DIS^SDROUT2
DISQ

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+17
Function Call: WRITE	Prompt: ! Line Location: SHAD+18
Function Call: WRITE	Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of " Line Location: SHAD+23
Function Call: WRITE	Prompt: !,"Shipboard Hazard and Defense (SHAD) exposure." Line Location: SHAD+24
Function Call: WRITE	Prompt: "DRUG: "_$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:$G(PSODRUG("NAME"))) Line Location: DISSCD+8
Function Call: WRITE	Prompt: !," Disabilities: " Line Location: DISSCD+10
Function Call: WRITE	Prompt: "NOT A VETERAN" Line Location: DISSCD+10
Function Call: WRITE	Prompt: @IOF Line Location: DISSCD+14
Function Call: WRITE	Prompt: "DRUG: "_$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:$G(PSODRUG("NAME"))),! Line Location: DISSCD+15