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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGRP13

Package: Registration

Routine: DGRP13


Information

DGRP13 ;ALB/MRL - REGISTRATION SCREEN 13/APPLICATION INFORMATION ;06 JUN 88@2300

Source Information

Source file <DGRP13.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 3 ^DGRPP  H^DGRPU  WW^DGRPV  

Entry Points

Name Comments DBIA/ICR reference
AC

External References

Name Field # of Occurrence
^DGRPP DGRP13+4
H^DGRPU DGRP13+2
WW^DGRPV AC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO APPLICATION DATA ON FILE FOR THIS PATIENT!",*7
  • Line Location: DGRP13+3
Function Call: WRITE
  • Prompt: " Registered: ",$S(Y]"":Y,1:DGRPU_" DATE")," by '",$S($D(^VA(200,+$P(I1,"^",5),0)):$P(^(0),"^",1)_" (#"_$P(I1,"^",5)_")",1:DGRPU_" USER")_"'"
  • Line Location: AC+0
Function Call: WRITE
  • Prompt: !?6,"Applied for: ",X
  • Line Location: AC+1
Function Call: WRITE
  • Prompt: !?4,"Dispositioned: ",$S(Y]"":Y,1:"OPEN DISPOSITION")
  • Line Location: AC+2
Function Call: WRITE
  • Prompt: " by '",$S($D(^VA(200,+$P(I1,"^",9),0)):$P(^(0),"^",1)_" (#"_$P(I1,"^",9)_")",1:"UNKNOWN USER"),"'."
  • Line Location: AC+2
Function Call: WRITE
  • Prompt: !?4,"Type of Disp.: ",$S($D(^DIC(37,+$P(I1,"^",7),0)):$P(^(0),"^",1),$P(I1,"^",9):DGRPU,1:"OPEN DISPOSITION")
  • Line Location: AC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" AC, AC+2
^DIC(37 - [#37] AC+3
^DPT - [#2] DGRP13+2
^VA(200 - [#200] AC, AC+2

Label References

Name Line Occurrences
AC DGRP13+2

Naked Globals

Name Field # of Occurrence
^(0 DGRP13+2, AC, AC+2, AC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C DGRP13+2*, DGRP13+3, AC
>> DFN DGRP13+2
>> DGRPS DGRP13+2*
>> DGRPU AC, AC+1, AC+3
>> DGRPW DGRP13+2*
>> I DGRP13+2*
>> I1 DGRP13+2*, AC, AC+1, AC+2, AC+3
>> X DGRP13+2*, AC, AC+1*
>> Y AC*, AC+2*
>> Z DGRP13+2*, AC*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All