Routine: PSNSTCK

Information

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

Source file <PSNSTCK.m>

Package	Total	Call Graph
National Drug File	3	$$PSPT^PSNAPIS (ASK1,SZ1)^PSNHELP (PKSIZE,PKTYPE)^PSNOUT

Package	Total	Caller Graph
National Drug File	2	PSNCOMP PSNHIT

Name	Line Occurrences
Function Call: READ	Prompt: "Enter Package Size & Type Combination: " Formatting: !?10 Timeout: DTIME Variable: ANS 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? : " Timeout: DTIME Variable: ANS 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

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.608 - [#50.608]	PSNSTCK+5, SIZE+3
^PS(50.609 - [#50.609]	PSNSTCK+5, SIZE+3
^PSDRUG - [#50]	ASK
^PSNDF(50.68 - [#50.68]	PACKAGE
^TMP($J	PSNSTCK+5!, PACKAGE+1, SIZE+4, SIZE+5, ARR0, ARR1

Name	Field # of Occurrence
ANS	SIZE+1, SIZE+2!, SIZE+3, SIZE+4, SIZE+5, ASK+4, ASK+5, ASK+6, ASK+7
DDD	PSNSTCK+5*, PSNSTCK+6!, PACKAGE+1
DTIME	SIZE+1, ASK+4
EEE	PSNSTCK+5*, PSNSTCK+6!, PACKAGE+1
FFF	PSNSTCK+6!, SIZE+5*
GGG	PSNSTCK+6!, SIZE+5*
>> K	PACKAGE+1*
LIST	PSNSTCK+5!, PACKAGE+1
LIST(	PACKAGE+1
>> PP	ARR0*, ARR1
>> PSNARY	PSNSTCK+5, ARR1
>> PSNB	ASK
>> PSNFL	SIZE+1, ASK+4, ASK+6*
>> PSNFNM	PACKAGE, PACKAGE+1
>> PSNFORM	PACKAGE*, ASK
>> PSNSIZE	SIZE+3, SIZE+5
>> PSNSZ	SIZE+5*
>> PSNSZE	ASK
>> PSNTPE	ASK
>> PSNTYP	SIZE+5*
>> PSNTYPE	SIZE+3, SIZE+5
>> PSNVAR	ASK+5
>> PTPS	PACKAGE+1*
>> QQ	ARR0*, ARR1
>> RR	ARR0*, ARR1
>> ST	PACKAGE+1*
>> X	PACKAGE+1*
>> XX	PACKAGE+1*
>> Z9	ASK+3, ASK+4