Routine: PSGWCL

Package	Total	Call Graph
VA Fileman	3	^%DT YN^DICN ^DIE
Auto Replenishment Ward Stock	2	CALC^PSGWCAD ^PSGWCLP

Package

Total

Call Graph

^%DT YN^DICN ^DIE

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW CLEAR AMIS EXCEPTIONS

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will show AR/WS drugs for which information is missing.",!,"The information MUST be supplied before the AMIS report can be printed.",!! Line Location: PSGWCL+2
Function Call: WRITE	Prompt: !!,"No AMIS exceptions for selected dates." Line Location: EDT+1
Function Call: WRITE	Prompt: !!,"Do you wish to edit incomplete data now" Line Location: CONT+0
Function Call: WRITE	Prompt: !?5,"Enter ""YES"" or ""NO""" Line Location: CONT+1
Function Call: WRITE	Prompt: !!,"The name for drug ",PSGWDN," is missing from the drug file.",!,"Notify your package coordinator!" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"==> Information incomplete for: ",DRGNAM,! Line Location: ASK+3
Function Call: WRITE	Prompt: *7,!!,"DATA IS STILL MISSING! YOU WILL NOT BE ABLE",!,"TO PRINT AMIS UNTIL INFORMATION IS COMPLETE!!" Line Location: MSG+0
Function Call: WRITE	Prompt: !!,"DATA COMPLETE!!" Line Location: MSG+1
Routine Call	DIE Line Location: ASK+4

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	ASK+1, CHK+1, CHK+3
^PSI(58.5 - [#58.5]	EDT+1, DTLP, STLP, DRGLP, ASK+1, UPAMIS+1, UPAMIS+2, KILL*, KILL+1!

Name	Field # of Occurrence
%	CONT*, CONT+1, END!
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
BDT	BDT*, EDT, EDT+1, CONT+3, END!
CAT	END!, UPAMIS+2*
COST	END!, KILL+2!
D0	END!
DA	ASK+4*, END!
DATDA	CONT+3, DTLP, STLP, DRGLP, ASK+1, END!, UPAMIS+1, UPAMIS+2, KILL, KILL+1
DI	END!
DIE	ASK+4*!
DIG	END!
DIH	END!
DIU	END!
DIV	END!
DOSE	END!, KILL+2!
DQ	END!
DR	ASK+4*, END!
DRGDA	CONT+3, DRGLP, ASK+1, END!, UPAMIS+1, UPAMIS+2, KILL, KILL+1
DRGNAM	ASK+1*, ASK+3, END!
DTDA	END!
EDT	EDT*, DTLP, END!
FLD	END!, KILL+2!
FLDA	END!
G	END!
INC	CONT+3, ASK+4, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, MSG , END!
J	CHK+5, CHK+6, END!
LOC	END!
LOC(	ASK+2, ASK+4*
LOC1	CHK+1*, CHK+5, END!
LOC2	CHK+3*, CHK+6, END!
LOC3	END!, UPDATE*, KILL+2!
MSG	CONT+3, CHK+2, CHK+4, CHK+5, CHK+6*, MSG, END!
PSGWADT	DTLP*, END!
PSGWAOU	END!
PSGWCAT	END!, UPAMIS+2*, UPDATE, AMIS, KILL+2!
PSGWDN	ASK+1*, ASK+2, ASK+4, CHK+1, CHK+3, END!
PSGWQD	END!, UPAMIS+2*, KILL+2!
QUEFLG	EDT+2*, END!
SITE	CONT+3, STLP, DRGLP, ASK+1, END!, UPAMIS+1, UPAMIS+2, KILL, KILL+1
X	END!
Y	BDT, EDT, ASK+4, END!

Information

Name	Comments	DBIA/ICR reference
UPAMIS	;UPDATE THE AMIS SUBFILE AND REMOVE INCOMPLETE FLAG & X-REF
DRGLP
CHK	;VERIFY THAT USER HAS ENTERED ALL NECESSARY DATA
UPDATE
KILL
ASK	;ASK FOR MISSING DRUG DATA
BDT
MSG
END
STLP
EDT
DTLP
CONT
AMIS