Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls