Routine: DGPTMSGD

Information

DGPTMSGD ;ALB/JDS - PTF MULTIMESSAGE DELETE ; 19 DEC 84@ 0800

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC YN^DICN ^DIK
Registration	2	IN^DGHELP LO^DGUTL

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Registration	3	DG PTF MESSAGE CHECK DGPTF2 DGPTF4

Entry Points

Name	Comments	DBIA/ICR reference
ALL
EN
MESS
HELP
READ
MES1
PICK1
HLPN
ONE
Q
P
N
DEL
ALL1
PICK
THRU
BACK
LOOP

External References

Name	Field # of Occurrence
^%DT	P
IN^DGHELP	EN
LO^DGUTL	DGPTMSGD+2
^DIC	P, HLPN+1
YN^DICN	HELP+2
^DIK	DEL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "DELETE BY [P]ATIENT OR [N]UMBER: " Formatting: !! Timeout: DTIME Variable: X Line Location: EN+0
Function Call: WRITE	Prompt: !!,"Enter 'P' to delete PTF messages by patient",!," or 'N' to delete PTF messages by number" Line Location: EN+0
Function Call: WRITE	Prompt: ! Line Location: LOOP+0
Function Call: WRITE	Prompt: I,?10 Line Location: LOOP+0
Function Call: READ	Prompt: "Enter the message #'s you wish to release: " Formatting: !! Timeout: DTIME Variable: X Line Location: READ+0
Function Call: WRITE	Prompt: !,I,?10," Deleted " Line Location: DEL+0
Function Call: WRITE	Prompt: !!,"Enter:",!?10,"ALL to release all messages",!?10,"# to release a specific message",!?10,"#-# to release a range of messages",!?10,"#,#,#... to release a group of messages" Line Location: HELP+0
Function Call: WRITE	Prompt: !,"Choose From:" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"Do you want to see a list of messages for this patient" Line Location: HELP+2
Function Call: WRITE	Prompt: $C(8) Line Location: BACK+0
Function Call: WRITE	Prompt: ! Condition for execution: K Line Location: MESS+0
Function Call: WRITE	Prompt: ?13,$E(L,1+(K65),65(K+1)) Line Location: MESS+0
Function Call: READ	Prompt: "Enter the message #'s you wish to release: " Formatting: !! Timeout: DTIME Variable: X Line Location: N+0
Function Call: WRITE	Prompt: !!,"Enter:",!?10,"# to release a specific message",!?10,"#-# to release a range of messages",!?10,"#,#,#... to release a group of messages",! Line Location: HLPN+0
Routine Call	DIC Line Location: P HLPN+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGM - [#45.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGM - [#45.5]	LOOP, DEL, MES1
^DGM("PT"	LOOP, ALL1

Label References

Name	Line Occurrences
@(	EN, READ, N
ALL1	ALL1
BACK	LOOP
DEL	THRU, ONE, PICK1, ALL1
EN	EN, P
HELP	HELP+2
LOOP	HELP+1, HELP+2
MES1	LOOP
MESS	MES1
N	HLPN+1
PICK1	PICK1
Q	EN, P, READ, THRU, ONE, PICK1+1, HELP+2, ALL1, N
READ	P, HELP+2

Naked Globals

Name	Field # of Occurrence
^(	MES1
^(0	DEL

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN, HELP+2*, Q!
%DT	P*, Q!
%Y	Q!
A	PICK*, PICK1, Q!
DA	DEL*, Q!
>> DGALL	ALL*
DGFR	THRU, DEL, ONE, PICK1, ALL1, Q!
DGPTF	P, LOOP, DEL, ALL1, N, Q!
DGTO	THRU, DEL, ONE, PICK1, ALL1, Q!
DIC	P!, HLPN+1, Q!
DIC("A"	P*
DIC("S"	P*
DIC(0	P, HLPN+1
DIK	DEL*, Q!
DTIME	EN, LOOP, READ, N
I	LOOP, DEL, MES1, Q!
J	PICK, PICK1, ALL, ALL1, BACK, MES1, Q!
K	MESS*, Q!
L	MES1*, MESS, Q!
>> NOW	P*
U	DEL
X	EN, P, LOOP, READ, THRU, ONE, PICK, HELP+1, N, HLPN+1 , Q!
Y	P, Q!
Z	EN, LOOP, HELP+1, BACK, MESS, Q!

Customize PDF page

Package: Registration

Routine: DGPTMSGD

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: