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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPTFM8

Package: Registration

Routine: DGPTFM8


Information

DGPTFM8 ;ALB/MTC - PTF ADDITIONAL QUESTION DISPLAY FOR MAS SCREEN ;25 APR 91

Source Information

Source file <DGPTFM8.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Registration 1 GETNUM^DGPTSCAN  

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: 5

Package Total Caller Graph
Registration 5 DGPTF4  DGPTFM  DGPTFM4  DGPTFM5  DGPTFMO  

Entry Points

Name Comments DBIA/ICR reference
WD3 ;-- display information for additional PTF questions by movement
WD3Q ;
PRN1 ;-- display additional PTF question information
PRNQ1 ;
SD3 ;-- tag for printing kidney donor source
; call only by DGPTFM@SERV
SD3Q
KID ;-- kidney transplant source
PRN2 ;-- display additional PTF question information
PRNQ2 ;
PRN3 ;-- print kidney additional question
PRNQ3 ;

External References

Name Field # of Occurrence
GETNUM^DGPTSCAN WD3+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,"Self Injury - "_$S($P(DG300,U,2)=1:"Attempted Suicide",$P(DG300,U,2)=2:"Accomplished Suicide",1:"Self Inflicted Injury")
  • Line Location: PRN1+1
Function Call: WRITE
  • Prompt: !?2,"Legionnaire's - "_$S($P(DG300,U,3)=1:"Yes",1:"No")
  • Line Location: PRN1+3
Function Call: WRITE
  • Prompt: !?2,"Substance - "_$S($D(^DIC(45.61,$P(DG300,U,4),0)):$P(^(0),U),1:"")
  • Line Location: PRN1+5
Function Call: WRITE
  • Prompt: !?2,"Psy- CL:",+$P(DG300,U,5),?DGL*40+13," CR:",+$P(DG300,U,6),?DGL*40+21," HI:",+$P(DG300,U,7)
  • Line Location: PRN1+9
Function Call: WRITE
  • Prompt: " Kidney - "_$S(+^(300)=1:"Live Donor",1:"Cadaver")
  • Line Location: KID+2
Function Call: WRITE
  • Prompt: !,"Self Injury - "_$S($P(DG300,U,2)=1:"Attempted Suicide",$P(DG300,U,2)=2:"Accomplished Suicide",1:"Self Inflicted Injury")
  • Line Location: PRN2+1
Function Call: WRITE
  • Prompt: !,"Legionnaire's - "_$S($P(DG300,U,3)=1:"Yes",1:"No")
  • Line Location: PRN2+2
Function Call: WRITE
  • Prompt: !,"Substance - "_$S($D(^DIC(45.61,$P(DG300,U,4),0)):$P(^(0),U),1:"")
  • Line Location: PRN2+3
Function Call: WRITE
  • Prompt: !,"Psy - CL:",+$P(DG300,U,5),?12,"CR:",+$P(DG300,U,6),?19,"HI:",+$P(DG300,U,7)
  • Line Location: PRN2+6
Function Call: WRITE
  • Prompt: !,"Kidney - "_$S(+DG300=1:"Live Donor",1:"Cadaver")
  • Line Location: PRN3+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] WD3+1, KID+2
^DIC(45.61 - [#45.61] PRN1+5, PRN2+3

Label References

Name Line Occurrences
KID SD3+3
PRN1 WD3+7
PRNQ1 PRN1+1, PRN1+3, PRN1+5, PRN1+8
PRNQ2 PRN2+5
WD3Q WD3+2

Naked Globals

Name Field # of Occurrence
^(0 PRN1+5, PRN2+3
^(300 WD3+1, KID+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DG300 WD3+7*, WD3Q+1!, PRN1+1, PRN1+3, PRN1+5, PRN1+7, PRN1+9, PRN2+1, PRN2+2, PRN2+3
, PRN2+4, PRN2+6, PRN3+1
DG300A WD3+1*, WD3+2, WD3+7, WD3Q+1!
DG300B WD3Q+1!
DGCA WD3+3*, WD3+7*, WD3Q+1!
DGCB WD3+3*, WD3Q+1!
DGFNUM WD3+7, WD3Q+1!
DGI WD3+7*, WD3Q+1!, PRN2+4*, PRNQ2+1!
DGJ PRN1+7*, PRNQ1+1!
DGL WD3+5*, WD3Q+1!, PRN1+9, SD3+2*, SD3Q!, KID+1
DGPSY PRN1+7*, PRN1+8, PRNQ1+1!, PRN2+4*, PRN2+5, PRNQ2+1!
DGSUR SD3+3*, SD3Q!, KID+2
>> J WD3+1, SD3+3
>> M( WD3+1
>> PTF WD3+1, KID+2
>> S( SD3+3
U PRN1+1, PRN1+3, PRN1+5, PRN1+7, PRN1+9, KID+2, PRN2+1, PRN2+2, PRN2+3, PRN2+4
, PRN2+6, PRN3+1
>> X WD3+7*, PRN1+1, PRN1+2*, PRN1+3, PRN1+4*, PRN1+5, PRN1+6*, PRN1+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All