Routine: PSGWSET

Information

PSGWSET ;BHAM ISC/PTD,CML-Set Inpatient Site ; 08 Apr 93 / 1:34 PM

Source file <PSGWSET.m>

Package	Total	Call Graph
VA Fileman	3	^%DTC ^DIC ^DIE

Package	Total	Caller Graph
Auto Replenishment Ward Stock	11	PSGW RN PSGWBO PSGWEDI PSGWODRN PSGWOND PSGWONDM PSGWPERC PSGWPI PSGWPIS PSGWPL PSGWRI

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"AR/WS Inpatient Site Name: ",$P(^(0),"^") Line Location: SITE+0
Function Call: WRITE	Prompt: !!,"AR/WS Inpatient Site Name: ",$P(^(0),"^") Line Location: SITE+1
Function Call: WRITE	Prompt: 7,7,!!?32,"* WARNING *",!!,$P(Y,"@")," was the last date that AR/WS AMIS Statistics were updated.",! Line Location: WARN+2
Function Call: WRITE	Prompt: "Please contact ADP and request that Taskmanager option ""PSGW UPDATE AMIS STATS""",!,"be RESCHEDULED to run nightly. AMIS will not be current until this option runs.",!! Line Location: WARN+3
Routine Call	DIE Line Location: NONE+1
Routine Call	DIC Line Location: MULT+1 NONE

FileNo	Call Tags
^PS(59.4 - [#59.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WARN+1
^PS(59.4 - [#59.4]	PSGWSET+2, COUNT, SITE, SITE+1, MULT+1*, NONE+1
^PS(59.7 - [#59.7]	MULT+3, WARN, WARN+1

Name	Field # of Occurrence
^(	COUNT, SITE+1*
^(0	SITE, SITE+1

Name	Field # of Occurrence
CNT	COUNT*, SITE+1, MULT, END!
DA	END!, NONE+1*
DIC	MULT, MULT+1!, NONE!
DIC("A"	MULT, NONE
DIC("S"	MULT*
DIC(0	MULT, NONE
DIE	END!, NONE*
DLAYGO	MULT, MULT+1!, NONE!
DR	END!, NONE+1*
DT	WARN+1
J	COUNT*, END!
LOC	PSGWSET+2!, COUNT*, SITE, SITE+1, MULT, END!
LOC(	COUNT*
LOC(0	SITE
>> PSGWSITE	SITE, SITE+1, MULT+1, MULT+3, NONE+1
STDA	PSGWSET+2!, COUNT, SITE+1, END!, NONE+1*
UPDT	END!, WARN+1*
X	END!, WARN+2
>> X1	WARN+1*
>> X2	WARN+1*
XQUIT	PSGWSET+2!, MULT+1, NONE
Y	MULT+1, END!, NONE, NONE+1, WARN+1*, WARN+2