Routine: PSDCOR2

Information

PSDCOR2 ;BIR/JPW-CS Correction Action (cont'd) ; 6 July 94

Source file <PSDCOR2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKD+1
Function Call: WRITE	Prompt: $C(7),!!,?15," NOTE ",!,"Your Green Sheet selection is limited to those Green Sheets marked as",!,"COMPLETED - REVIEWED NO DISCREPANCY.",! Line Location: GS+1
Function Call: WRITE	Prompt: ! Line Location: GS+2
Function Call: WRITE	Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",! Line Location: GS+9
Function Call: WRITE	Prompt: $C(7),!!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please select another Green Sheet.",! Line Location: GS+10
Function Call: WRITE	Prompt: !!,"This action will update Green Sheet #",PSDPN," as ",!,?5," COMPLETED - PENDING PROBLEM RESOLUTION",!,?8,NCOMPN," ",! Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"No action taken.",!! Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"Accessing Green Sheet #",PSDPN," information...",!! Line Location: COM+2
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: FIND+5
Function Call: WRITE	Prompt: $C(7),!!," THIS GREEN SHEET HAS NOT BEEN CORRECTED ",!!,"The status remains "_STATN,! Line Location: FIND+8
Function Call: WRITE	Prompt: ?2,!,"*** Your Green Sheet #"_PSDPN_" is now ",! Line Location: FIND+10
Function Call: WRITE	Prompt: ?2,$S($P($G(^PSD(58.83,COMP,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",! Line Location: FIND+11