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 Total: 1

Package Total Call Graph
Registration 1 GETNUM^DGPTSCAN  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 5 DGPTF4  DGPTFM  DGPTFM4  DGPTFM5  DGPTFMO  

Entry Points

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

External References

Name Field # of Occurrence
GETNUM^DGPTSCAN WD3+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?DGL*40+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: ?DGL*40+2,"Legionnaire's - "_$S($P(DG300,U,3)=1:"Yes",1:"No")
  • Line Location: PRN1+3
Function Call: WRITE
  • Prompt: ?DGL*40+2,"Substance - "_$S($D(^DIC(45.61,$P(DG300,U,4),0)):$P(^(0),U),1:"")
  • Line Location: PRN1+5
Function Call: WRITE
  • Prompt: ?DGL*40+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: ?DGL*40+2,"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, WD3+2, KID+2
^DIC(45.61 - [#45.61] PRN1+5, PRN2+3

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DG300 WD3+6*, 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+3, WD3+6, WD3Q+1!
DG300B WD3+2*, WD3+3, WD3+6, WD3Q+1!
DGCA WD3+4*, WD3+6*, WD3Q+1!
DGCB WD3+4*, WD3+6*, WD3Q+1!
DGFNUM WD3+6, WD3Q+1!
DGI WD3+6*, WD3Q+1!, PRN2+4*, PRNQ2+1!
DGJ PRN1+7*, PRNQ1+1!
DGL WD3+6*, WD3Q+1!, PRN1+1, PRN1+3, PRN1+5, PRN1+9, SD3+2*, SD3+3*, SD3Q!, KID+1
, KID+2
DGPSY PRN1+7*, PRN1+8, PRNQ1+1!, PRN2+4*, PRN2+5, PRNQ2+1!
DGSUR SD3+3*, SD3Q!, KID+2
>> J WD3+1, WD3+2, SD3+3
>> M( WD3+1, WD3+2
>> PTF WD3+1, WD3+2, 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+6*, 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