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

Package: Registration

Routine: DGRP12


Information

DGRP12 ;ALB/MRL - REGISTRATION SCREEN 12/ADMISSION INFORMATION ;06 JUN 88@2300

Source Information

Source file <DGRP12.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 3 ^DGRPP  H^DGRPU  (WW,WW1)^DGRPV  

Entry Points

Name Comments DBIA/ICR reference
ADM

External References

Name Field # of Occurrence
^DGRPP DGRP12+4
H^DGRPU DGRP12+2
WW^DGRPV ADM
WW1^DGRPV ADM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO ADMISSION DATA ON FILE FOR THIS PATIENT!!",*7
  • Line Location: DGRP12+3
Function Call: WRITE
  • Prompt: " Admission Date: "
  • Line Location: ADM+0
Function Call: WRITE
  • Prompt: "Admit Ward: ",$S($D(^DIC(42,+$P(I1,"^",6),0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: ADM+0
Function Call: WRITE
  • Prompt: !?4,"Admit Diagnosis: ",$S($P(I1,"^",10)]"":$P(I1,"^",10),1:DGRPU),!?5,"Discharge Date: "
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"NOT DISCHARGED")
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: !?5,"Discharge Type: ",$S($D(^DG(405.1,+$P(I2,"^",4),0)):$P(^(0),"^",1),1:$S(+I2>0:DGRPU,1:"NOT DISCHARGED"))
  • Line Location: ADM+2
Function Call: WRITE
  • Prompt: " TO '",$P(^(0),"^",1),"'"
  • Line Location: ADM+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ADM, ADM+1
^DG(405.1 - [#405.1] ADM+2
^DGPM - [#405] DGRP12+2
^DGPM("ATID1" DGRP12+2
^DIC(4 - [#4] ADM+2
^DIC(42 - [#42] ADM

Label References

Name Line Occurrences
ADM DGRP12+2

Naked Globals

Name Field # of Occurrence
^( DGRP12+2
^(0 DGRP12+2, ADM, ADM+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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