Routine: DGPTMSG

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC ^DIE ^DIK EN^DIQ
Registration	3	DICN1^DGPTMSG1 LO^DGUTL Q1^DGUTQ
Kernel	2	^%ZISC $$FMTE^XLFDT

Package	Total	Caller Graph
Registration	2	DG PTF MESSAGE ENTER DG PTF MESSAGE INQUIRE

Entry Points

External References

Name	Field # of Occurrence
^%DT	PR+1
^%ZISC	QQ
DICN1^DGPTMSG1	PAT+3
LO^DGUTL	DGPTMSG+3
Q1^DGUTQ	PAT+7
^DIC	PAT, PA
^DIE	PAT+4, PR+9, PR+10
^DIK	PAT+5
EN^DIQ	PR+8, M
$$FMTE^XLFDT	PR+2, PR+4, PR+12, PA+2, PA+4, PA+5, M+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"MESSAGE DELETED" Line Location: PAT+5
Function Call: WRITE	Prompt: !!,"*** MESSAGE SENT **",7,!! Line Location: PAT+7
Function Call: WRITE	Prompt: !!," Mess #: ",+L,?20,"Name: ",$E($P(L1,"^",1),1,27),?55," SSN: ",$P(L1,"^",9),! Line Location: PR+1
Function Call: WRITE	Prompt: "Entered: " Line Location: PR+2
Function Call: WRITE	Prompt: $TR($$FMTE^XLFDT(D,"5DF")," ","0") Condition for execution: D Line Location: PR+2
Function Call: WRITE	Prompt: ?22,"By: ",$S($D(^VA(200,+$P(L,"^",3),0)):$P(^(0),U,1),1:""),?55,"Ward: ",$S($D(^DPT(DFN,.1)):^(.1),1:"") Line Location: PR+2
Function Call: WRITE	Prompt: !," Time: " Line Location: PR+3
Function Call: WRITE	Prompt: $E(D,9,10),":",$E(D_"0000",11,12) Condition for execution: D#1 Line Location: PR+3
Function Call: WRITE	Prompt: ?51,"Room/bed: ",$S($D(^DPT(DFN,.101)):^(.101),1:""),! Line Location: PR+3
Function Call: WRITE	Prompt: "Printed: ",$TR($$FMTE^XLFDT(NOW,"5DF")," ","0"),?20,"Time: ",$E(NOW_"00000",9,10)_":"_$E(NOW_"00000",11,12) Line Location: PR+4
Function Call: WRITE	Prompt: ?41,"Treating Specialty: ",$S($D(^DPT(DFN,.103)):$S($D(^DIC(45.7,+^(.103),0)):$P(^(0),U,1),1:""),1:""),! Line Location: PR+5
Function Call: WRITE	Prompt: "Admission Type: ",$S($D(^DG(405.1,+DGADMTY,0)):$P(^(0),"^",1),1:"NOT SPECIFIED") Line Location: PR+6
Function Call: WRITE	Prompt: ?51,"Provider: ",$S($D(^DPT(DFN,.104)):$S($D(^VA(200,+^(.104),0)):$P(^(0),U,1),1:""),1:""),! Line Location: PR+7
Function Call: WRITE	Prompt: !,"Edited",?17,"Retran",?25,"By",! Line Location: PR+11
Function Call: WRITE	Prompt: "=" Line Location: PR+11
Function Call: WRITE	Prompt: !,$TR($$FMTE^XLFDT(D,"5DF")," ","0"),"@",$E(D_"0000",9,10),":",$E(D_"00000",11,12),?17,$S($P(L,"^",3):"YES",1:"NO"),?25,$S($D(^VA(200,+$P(L,"^",2),0)):$P(^(0),U,1),1:"") Line Location: PR+12
Function Call: WRITE	Prompt: !!," Mess #: ",+L,?20,"Name: ",$E($P(L1,"^",1),1,27),?55," SSN: ",$P(L1,"^",9),! Line Location: PA+1
Function Call: WRITE	Prompt: "Entered: ",$TR($$FMTE^XLFDT(D,"5DF")," ","0"),?22,"By: ",$S($D(^VA(200,+$P(L,"^",3),0)):$P(^(0),U,1),1:""),?55,"Ward: ",$S($D(^DPT(DFN,.1)):^(.1),1:"") Line Location: PA+2
Function Call: WRITE	Prompt: !," Time: ",$E(D,9,10),":",$E(D_"0000",11,12),?51,"Room/bed: ",$S($D(^DPT(DFN,.101)):^(.101),1:""),! Line Location: PA+3
Function Call: WRITE	Prompt: "Printed: " Line Location: PA+4
Function Call: WRITE	Prompt: $TR($$FMTE^XLFDT(NOW,"5DF")," ","0") Condition for execution: NOW Line Location: PA+4
Function Call: WRITE	Prompt: ?22,"Time: " Line Location: PA+4
Function Call: WRITE	Prompt: $TR($$FMTE^XLFDT(NOW,"5DF")," ","0") Condition for execution: NOW Line Location: PA+4
Function Call: WRITE	Prompt: ?22,"Time: " Line Location: PA+4
Function Call: WRITE	Prompt: "Chk off: ",$TR($$FMTE^XLFDT(N,"5DF")," ","0"),?22,"Time: ",$E(N,9,10)_":"_$E(N,11,12),?53,"By: ",$E($S($D(^VA(200,+$P(L,U,8),0)):$P(^(0),U,1),1:""),1,22),! Line Location: PA+5
Function Call: WRITE	Prompt: !,"Edited",?17,"Retran",?25,"By",! Line Location: M+1
Function Call: WRITE	Prompt: "=" Line Location: M+1
Function Call: WRITE	Prompt: !,$TR($$FMTE^XLFDT(D,"5DF")," ","0"),"@",$E(D_"0000",9,10),":",$E(D_"00000",11,12),?17,$S($P(L,"^",3):"YES",1:"NO"),?25,$S($D(^VA(200,+$P(L,"^",2),0)):$P(^(0),U,1),1:"") Line Location: M+2
Function Call: WRITE	Prompt: !! Line Location: M+3
Routine Call	DIE Line Location: PAT+4 PR+9 PR+10
Routine Call	DIC Line Location: PAT PA

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	PAT+1
^DG(405.1 - [#405.1]	PR+6
^DG(43 - [#43]	PAT+2
^DGM - [#45.5]	PAT+5, PR+1, PR+11, PR+12, PA+1, M+1, M+2
^DIC(42 - [#42]	PAT+1
^DIC(45.7 - [#45.7]	PR+5
^DPT - [#2]	PAT+1, PR+1, PR+2, PR+3, PR+5, PR+7, PA+1, PA+2, PA+3
^UTILITY($J	PR+8!
^VA(200 - [#200]	PR+2, PR+7, PR+12, PA+2, PA+5, M+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	PR+1*, Q!
D	PAT+1, PR+2, PR+3, PR+12, PA+2, PA+3, M+2*, Q!
DA	PAT+4, PAT+5, PR+1, PR+11, PR+12, PA, PA+1, M+1, M+2, Q!
>> DFN	PAT, PAT+1, PR+1, PR+2, PR+3, PR+5, PR+7, PA+1*, PA+2, PA+3
DGADMTY	PAT*, PR+6, Q!
DGMISD	PAT, PAT+1, PAT+2*, PAT+6, Q!
DGMSG	PAT+3!
DGPGM	PAT+6*, Q!
DGUTQND	PAT+6*, Q!
DGVAR	PAT+6*, Q!
DIC	PAT, PR+8, IN, M, Q!
DIC("S"	PAT!, PA!
DIC(0	PAT, IN
DIE	PAT+4, PAT+5, PR+9, PR+10*, Q!
DIK	PAT+5*, Q!
DP	PR+9, PR+10, Q!
DR	PAT+4, PR+8, PR+9, PR+10, M*, Q!
I	PR+11, PR+12, M+1, M+2, Q!
IO	PR+1, QQ
L	PR+1, PR+2, PR+12, PA+1, PA+2, PA+5, M+2, Q!
L1	PR+1, PA+1, Q!
N	PA+5*, Q!
NOW	PR+1, PR+4, PA+1, PA+4, Q!
RET	PR+1*, PR+10, Q!
U	PR+2, PR+5, PR+7, PR+12, PA+1, PA+2, PA+5, M+2
X	PR+1*, Q!
Y	PAT, PAT+3, PAT+4, PR+1, PA, Q!
ZTIO	PAT+6*, Q!

Customize PDF page

Package: Registration

Routine: DGPTMSG

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
M	PA+5
PA	M+1, M+3
PAT	PAT+5, PAT+8
Q	PAT, PAT+2, PAT+3, PR+1, PA
QQ	PR+11

Name	Field # of Occurrence
^(	PAT+1, PR+2, PR+3, PR+5, PR+7, PR+12, PA+2, PA+3, M+2
^("DEV"	PAT+1
^(0	PR+1, PR+2, PR+5, PR+6, PR+7, PR+12, PA+2, PA+5, M+2

Name	Comments	DBIA/ICR reference
PR	;
QQ
PAT
M
Q
PA
IN