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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPTMSG

Package: Registration

Routine: DGPTMSG


Information

DGPTMSG ;ALB/JDS/AS - PTF MESSAGE ENTRY/EDIT/PRINT ; 7 NOV 89 14:46

Source Information

Source file <DGPTMSG.m>

Call Graph

Call Graph

Call Graph Total: 10

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

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

Entry Points

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

External References

Name Field # of Occurrence
^%DT PR+1
^%ZISC QQ
DICN1^DGPTMSG1 PAT+3
LO^DGUTL DGPTMSG+3
Q1^DGUTQ PAT+7
^DIC PATPA
^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
  • DIC
  • Line Location:
    • PAT
    • PA
Routine Call
  • DIE
  • Line Location:
    • PAT+4
    • PR+9
    • PR+10

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)
^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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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 PATPAT+3, PAT+4, PR+1, PA, Q!
ZTIO PAT+6*, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All