Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: PSGAMS

Package: Inpatient Medications

Routine: PSGAMS

Information

PSGAMS ;BIR/CML3-AMIS REPORT ;25 AUG 94 / 12:07 PM

Source Information

Source file <PSGAMS.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Inpatient Medications	4	^PSGAMS0 $$ENDTC^PSGMI (ENCV,ENKV)^PSGSETU EN3^PSGTI
VA Fileman	2	^%DT C^%DTC
Kernel	1	^%ZISC

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Inpatient Medications	4	PSGDCT PSGPRVR PSGSCT PSJU AMIS

Entry Points

Name	Comments	DBIA/ICR reference
DTM	;
ENDC	;
ENQ	;
ADD	;
DONE	;
ENDTS	;
GO	;
DT	;
GPR	;

External References

Name	Field # of Occurrence
^%DT	DT+1
C^%DTC	ENDTS+2
^%ZISC	GO+1
^PSGAMS0	ENQ+2
$$ENDTC^PSGMI	ENDTS+2, ENDC+2
ENCV^PSGSETU	PSGAMS+3
ENKV^PSGSETU	DONE+1
EN3^PSGTI	GO+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!?32,"* WARNING *",!,"PICK LISTS need to be filed away for the following ward group",$E("s",P>1),", or this AMIS" Line Location: PSGAMS+5
Function Call: WRITE	Prompt: !?3,$S($D(^PS(57.5,Q,0)):$P(^(0),"^"),1:Q) Line Location: PSGAMS+6
Function Call: WRITE	Prompt: $C(7),!!?10,"* THERE IS NO DATA FOR THIS REPORT, YET. *" Line Location: ENDTS+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: DT+1
Function Call: WRITE	Prompt: !!,"Enter ",D," DATE: " Line Location: DT+1
Function Call: WRITE	Prompt: X="^" Condition for execution: '$T $C(7) S:'$T Line Location: DT+1
Function Call: WRITE	Prompt: "The start and stop dates may be the same, in effect, a one day report." Line Location: DTM+2
Function Call: WRITE	Prompt: " "_$S(X1:" ",1:"")_"The stop"_$S(X1:" ",1:"")_"date may not come before the start date." Condition for execution: D="STOP" Line Location: DTM+3
Function Call: WRITE	Prompt: !?2,"Dates are inclusive. (The first date found is "_FIRST_".)" Line Location: DTM+3
Function Call: WRITE	Prompt: $C(7),!!?10," There is no data for this report, yet. " Line Location: ENDC+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	ENQ+1
^PS(53.5 - [#53.5]	PSGAMS+4
^PS(55 - [#55]	ENDTS+1
^PS(57.5 - [#57.5]	PSGAMS+6
^PS(57.6 - [#57.6]	ENQ+1, GPR+1, ENDTS+1, ENDC+1
^UTILITY("PSG"	DONE+1!, ENQ+1!, ADD+1

Label References

Name	Line Occurrences
ADD	GPR+1
DONE	PSGAMS+4
DT	ENDTS+2
DTM	DT+1
ENDTS	PSGAMS+4
ENQ	GO+1
GPR	ENQ+1

Naked Globals

Name	Field # of Occurrence
^(	PSGAMS+4, GPR+1, ADD+1*
^(0	PSGAMS+6, ENQ+1, GPR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ENDTS+2!*, ENDTS+3!
%DT(0	ENDTS+2*
>> D	ENDTS+2*, DT+1, DTM+1, DTM+2, DTM+3
DRG	DONE+1!, GPR+1*
DTIME	DT+1
FD	PSGAMS+4, DONE+1!, ENQ+1, ENDTS+1, ENDTS+2
FIRST	ENDTS+2, ENDTS+3!, DTM+3, ENDC+2
HLP	PSGAMS+4*, DONE+1!, ENDTS+1, DT+1, DTM+1, DTM+2
IO	GO+1
IO("Q"	GO+1
IO(0	GO+1
IOST	GO+1
ND	DONE+1!, GPR+1*, ADD+1
NU	DONE+1!, ADD+1*
P	PSGAMS+4!*, PSGAMS+5, DONE+1!
P(	PSGAMS+4*, PSGAMS+6
>> POP	GO+1
PR	DONE+1!, GPR+1*
>> PSGID	ENDTS+1, ENDTS+2, ENDC+1, ENDC+2
>> Q	PSGAMS+4, PSGAMS+6
>> QQ	PSGAMS+4*
RTN	GO+1*, DONE+1!
SD	PSGAMS+4, DONE+1!, ENQ+1, ENDTS+1, ENDTS+2
ST	DONE+1!, ENQ+1*, GPR+1
STOP	DONE+1!, ENDTS+2*
STRT	DONE+1!, ENDTS+2*
W	DONE+1!, ENQ+1*, GPR+1
WN	DONE+1!, ENQ+1*, ADD+1
>> X	ENDTS+2, DT+1
>> X1	ENDTS+2, DTM+1, DTM+2, DTM+3
>> X2	ENDTS+2, DTM+1, DTM+2
>> XQUIT	PSGAMS+3
>> Y	ENDTS+2, DT+1*
ZTOUT	DONE+1!

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All