Routine: DGPMTS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

DGPMTS ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93

Source Information

Source file <DGPMTS.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	^%DT YN^DICN
Registration	1	START^DGPMTSI

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPM TS INPATIENT INFORMATION

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ENQ
READ
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]

External References

Name	Field # of Occurrence
^%DT	EN+3
^%ZIS	EN+9
^%ZISC	ENQ
^%ZTLOAD	QUE+10
START^DGPMTSI	EN+10
YN^DICN	READ

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Nothing Selected!",*7 Line Location: EN+8
Function Call: WRITE	Prompt: !!,"Print ",X Line Location: READ+0
Function Call: WRITE	Prompt: !?4,"Answer YES if you wish to generate a ",X,!?4,"for this date ...Otherwise answer NO." Line Location: READ+1
Routine Call	%ZIS Line Location: EN+9

Label References

Name	Line Occurrences
$$QUE	EN+11
ENQ	EN+3, EN+8, EN+9, EN+10
READ	EN+5, EN+6, EN+7, READ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	READ*
%DT	EN+1*, EN+3!
%DT("A"	EN+2*
>> %ZIS	EN+9*
DGTSDT	EN+4*, ENQ+1!
E	EN+5, EN+6, EN+7, ENQ+1!, READ*
IO("Q"	EN+10, QUE+3!
>> POP	EN+9
PTCTS	EN+7*, EN+8, ENQ+1!
PTLTS	EN+6*, EN+8, ENQ+1!
PTLWD	EN+5*, EN+8, ENQ+1!
>> X	EN+5, EN+6, EN+7*, READ, READ+1
>> X1	EN+5, EN+6, EN+7, READ*
>> Y	EN+3, EN+4, EN+11*
>> ZTDESC	QUE+4*
>> ZTQUEUED	ENQ
>> ZTRTN	QUE+9*
>> ZTSAVE("DGTSDT"	QUE+5*
>> ZTSAVE("PTCTS"	QUE+8*
>> ZTSAVE("PTLTS"	QUE+7*
>> ZTSAVE("PTLWD"	QUE+6*
ZTSK	QUE+3!, QUE+10, QUE+11