Routine: PSNSTCK

Information

PSNSTCK ;BIR/CCH&WRT-size and type check ; 02/01/99 7:29

Source file <PSNSTCK.m>

Name	Line Occurrences
Function Call: READ	Formatting: !?10 Prompt: "Enter Package Size & Type Combination: " Variable: ANS Timeout: DTIME Line Location: SIZE+1
Function Call: WRITE	Prompt: !,"Invalid Answer" Line Location: SIZE+4
Function Call: WRITE	Prompt: !!,"Local drug ",$P(^PSDRUG(PSNB,0),"^",1),!,"matches ",?11,PSNFORM,!,"PACKAGE SIZE: ",PSNSZE,!,"PACKAGE TYPE: ",PSNTPE Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"< Enter ""Y"" for yes >" Line Location: ASK+1
Function Call: WRITE	Prompt: !,"< Enter ""N"" for no >" Line Location: ASK+2
Function Call: READ	Prompt: "OK? : " Variable: ANS Timeout: DTIME Line Location: ASK+4
Function Call: WRITE	Prompt: ?50 Line Location: ASK+4
Function Call: WRITE	Prompt: ?60,"Drug not matched" Line Location: ASK+4
Function Call: WRITE	Prompt: !,"CHOOSE FROM: " Line Location: ARR0+0
Function Call: WRITE	Prompt: !?2,PSNARY," ",PP," ",QQ Line Location: ARR1+0