Routine: PSGTAP

Package	Total	Call Graph
Inpatient Medications	5	$$ENDTC^PSGMI ^PSGPLG ($$LOCK,UNLOCK)^PSGPLUTL (ENCV,ENKV)^PSGSETU ENTSK^PSGTI
VA Fileman	4	YMD^%DTC ^DIC YN^DICN ^DIR
Kernel	1	^%ZIS

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI ^PSGPLG ($$LOCK,UNLOCK)^PSGPLUTL (ENCV,ENKV)^PSGSETU ENTSK^PSGTI

VA Fileman

YMD^%DTC ^DIC YN^DICN ^DIR

Kernel

^%ZIS

Package	Total	Caller Graph
Inpatient Medications	1	PSJU PLATCS

Package

Total

Caller Graph

Inpatient Medications

PSJU PLATCS

Name	Comments	DBIA/ICR reference
EN	;
NL	; numeric look-up
AD	; ATC device
EN1	;
EN2	;
ASK	;
OUT	;

Name	Field # of Occurrence
YMD^%DTC	EN1+12
^%ZIS	EN1+6
^DIC	ASK+3
YN^DICN	EN1+5, EN1+7
^DIR	EN1+3
$$ENDTC^PSGMI	EN1+2, NL+2
^PSGPLG	ASK+3
$$LOCK^PSGPLUTL	EN1+1
UNLOCK^PSGPLUTL	EN2+1
ENCV^PSGSETU	EN+1
ENKV^PSGSETU	OUT+1
ENTSK^PSGTI	EN1+11

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select WARD GROUP or PICK LIST: " Formatting: !! Timeout: DTIME Variable: X Line Location: ASK+1
Function Call: WRITE	Prompt: !!?2,"Select a Ward Group for which a pick list has been run that you wish to send",!,"to the ATC.",!?2,"You may also directly select a Pick List by number, which prints in the upper",!,"left corner of each pick list." Line Location: ASK+2
Function Call: WRITE	Prompt: $C(7),!!,"This PICK LIST is currently being accessed by another task." Line Location: EN1+1
Function Call: WRITE	Prompt: $C(7) Line Location: EN1+5
Function Call: WRITE	Prompt: !!,"THIS PICK LIST HAS NO",$S(Y:" DATA.",1:"T RUN TO COMPLETION."),!,"Do you wish to continue" Line Location: EN1+5
Function Call: WRITE	Prompt: !!,"THIS PICK LIST HAS NO",$S(Y:" DATA.",1:"T RUN TO COMPLETION."),!,"Do you wish to continue" Line Location: EN1+5
Function Call: WRITE	Prompt: $C(7),!!?10,"THE ATC MACHINE IS NOT FOUND!" Line Location: EN1+6
Function Call: WRITE	Prompt: !!,"This pick list had been previously started, but did not run to completion.",!,"Do you want to restart it where it left off" Line Location: EN1+7
Function Call: WRITE	Prompt: "...SENT!" Line Location: EN1+12
Function Call: WRITE	Prompt: !?5,"Ward Group: ",PSGPLWGN,!?5,Y," thru ",PSGOD Line Location: NL+3
Function Call: WRITE	Prompt: $C(7),!!?3,"THIS WARD GROUP DOES NOT HAVE AN ATC DEVICE DESIGNATED FOR IT." Line Location: AD+1
Routine Call	DIC Line Location: ASK+3
Routine Call	DIR Line Location: EN1+3
Routine Call	%ZIS Line Location: EN1+6

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

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.5 - [#53.5]	EN1+2, EN1+4, EN1+12*, NL+1, NL+2
^PS(53.55 - [#53.55]	EN1+7
^PS(57.5 - [#57.5]	NL+2, AD+1
^PS(59.7 - [#59.7]	EN1+10

Name	Line Occurrences
AD	ASK+3
ASK	ASK+1, ASK+2, ASK+4
EN1	ASK+1, ASK+3
EN2	EN1+2, EN1+5, EN1+6, EN1+9
NL	ASK+1
OUT	ASK+1

Name	Field # of Occurrence
^(	EN1+10
^(0	EN1+2, EN1+4, EN1+7, NL+2
^(1	EN1+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+4, EN1+5, EN1+6, EN1+7*, EN1+9, EN1+12
>> %H	EN1+12*
>> %Y	EN1+8
%ZIS	EN1+6!*
A	OUT+1!
BLKS	OUT+1!
C	OUT+1!
D	OUT+1!
DAT	OUT+1!
DIC	ASK+3!*, OUT+1!
DIC("S"	ASK+3*
DIC(0	ASK+3*
DIR	EN1+3!
DIR("A"	EN1+3*
DIR("B"	EN1+3*
DIR(0	EN1+3*
DTIME	ASK+1
G	OUT+1!
I1	OUT+1!
I2	OUT+1!
ION	EN1+6
IOP	EN1+6*!
ND	OUT+1!
O	OUT+1!
>> OK	ASK+3, EN1+1, EN1+12
P	OUT+1!
PID	OUT+1!
PL	OUT+1!
PN	OUT+1!
PND	OUT+1!
>> POP	EN1+6
>> PSGID	EN1+2*
>> PSGION	EN1+6*
PSGIOP	OUT+1!, EN1+6, AD+2*
>> PSGOD	EN1+2, EN1+3, NL+2, NL+3
PSGPLG	ASK+3, OUT+1!, EN1+1, EN1+2, EN1+3, EN1+4, EN1+7, EN1+12, EN2+1, NL+2*
PSGPLGF	ASK+3*, OUT+1!
PSGPLWG	ASK+3, OUT+1!, NL+2, AD+1
PSGPLWGN	OUT+1!, NL+2*, NL+3
PSGSPD	OUT+1!, AD+2*
>> PSGTAPR	EN1+7, EN1+9
PSGTID	EN1+11!
>> PSGTIR	EN1+10*
Q	OUT+1!
QUIT	OUT+1!
R	OUT+1!
S	OUT+1!
ST	OUT+1!
T	OUT+1!
TM	OUT+1!
W	OUT+1!
X	ASK+1, ASK+2, ASK+3, EN1+4, EN1+5, EN1+10, EN1+12, NL+1, NL+2, AD+1*! , AD+2
>> XQUIT	EN+1
>> Y	ASK+1, ASK+3, EN1+2, EN1+4, EN1+5, NL+1, NL+2, NL+3, AD+2
>> ZTDESC	EN1+11*
ZTSAVE	EN1+11!
ZTSAVE("PSGPLG"	EN1+11*
ZTSAVE("PSGPLWG"	EN1+11*
ZTSAVE("PSGSPD"	EN1+11*
ZTSAVE("PSGTAPR"	EN1+11*
>> ZTSK	EN1+12
>> ZTSK("D"	EN1+12

Customize PDF page

Package: Inpatient Medications

Routine: PSGTAP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: