Routine: PSDPSTK1

Information

PSDPSTK1 ;BIR/JPW-Print Data for CS Drugs (cont'd) ; 2 Aug 94

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?45,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"=> ",$S(DRUG["ZZ/":"#"_$P(DRUG,"/",2)_" NAME MISSING",1:DRUG) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?4,NAOUN_" (NAOU INACTIVE AS OF "_DATEI_")",! Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"=> ",$S(DRUG["ZZ/":"#"_$P(DRUG,"/",2)_" NAME MISSING",1:DRUG) Line Location: PRINT+10
Function Call: WRITE	Prompt: WARDN,?101 Line Location: PRINT+11
Function Call: WRITE	Prompt: TYPEN,! Line Location: PRINT+11
Function Call: WRITE	Prompt: ?67 Line Location: PRINT+12
Function Call: WRITE	Prompt: WARDN,?101 Line Location: PRINT+12
Function Call: WRITE	Prompt: WARDN,?101 Line Location: PRINT+12
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+2
Function Call: WRITE	Prompt: !,RPDT,?122,"PAGE: "_PG,!,?55,"DATA FOR CS STOCK DRUGS",!!,"=> DRUG",!,?57,"STOCK",!,?14,"NAOU",?45,"LOCATION",?57,"LEVEL",?67,"WARD (FOR DRUG)",?101,"TYPE",!,LN,! Line Location: HEADER+2