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

Package: Registration

Routine: DGPASS


Information

DGPASS ;ALB/JDS - ABSENCE LIST ; 01 JAN 86 @0800

Source Information

Source file <DGPASS.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 5 QUIT1^DGOASIH  START^DGPASS  (CLOSE,ZIS)^DGUTQ  IN5^VADPT  PID^VADPT6  
VA FileMan 2 ^%DT  (C,NOW)^%DTC  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG ABSENCE OUTPUT  DGOASIH  DGPASS  

Entry Points

Name Comments DBIA/ICR reference
CK ;check to see if xfr to absence
QUIT
HEAD
EN
WRCNT
DAT
START
EEN
WR
WR1
SET
RT
OUT ;check to see if patient returned from absence - DGFL=1 if yes

External References

Name Field # of Occurrence
^%DT EN
C^%DTC START+1
NOW^%DTC START, EEN
QUIT1^DGOASIH QUIT
START^DGPASS EN+1
CLOSE^DGUTQ QUIT
ZIS^DGUTQ EN+1
IN5^VADPT SET
PID^VADPT6 SET+2
$$FMTE^XLFDT START

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?8,"*** THERE ARE NO PATIENTS OUT ON ABSENCE FOR "_DGDAY_" ***"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: @IOF,!,"ABSENCE LIST FOR ",DGDAY,?40,"PRINTED: ",DGTIME,?72," PAGE: "_DGPG
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!,"NAME",?22,"PT ID",?36,"TYPE",?42,"LEAVE",?54,"RETURN",?66,"WARD"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGCL,!!,?10,"DIVISION: ",$S(DGDV="ZUNKNOWN":"UNKNOWN",1:DGDV),!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: !,$E(DGP,1,20),?22,$P(DGNO,"^"),?36,$P(DGNO,"^",2),?42,$P(DGNO,"^",3),?54,$P(DGNO,"^",4),?66,$E($P(DGNO,"^",5),1,14)
  • Line Location: WR1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RT+1
Function Call: READ
  • Prompt: "Enter <RET> to continue or ^ to Quit"
  • Formatting: !?22
  • Timeout: DTIME
  • Variable: X
  • Line Location: RT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+2
^DG(40.8 - [#40.8] SET+1
^DGPM - [#405] CK+1, CK+2, CK+5, SET, SET+1
^DGPM("AMV2" EEN+2
^DGPM("APCA" CK+5
^DIC(4 - [#4] SET+6
^DIC(42 - [#42] SET+1, SET+6
^DPT - [#2] SET+1
^UTILITY($J START+3, SET+9*, SET+10*, WR+1, WRCNT

Label References

Name Line Occurrences
CK EEN+2
DAT SET+3, SET+5
EEN START+3
EN EN
HEAD WR+1, WR1
OUT CK+5
QUIT EN, START+3, START+4
RT WR+1, WR1
SET CK+6
WR START+4
WR1 WRCNT
WRCNT WR+1

Naked Globals

Name Field # of Occurrence
^(0 CK+1, CK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START, EEN
>> %DT EN*
>> %DT("A" EN*
>> DFN EEN+2*, CK+5, SET+1, SET+8, SET+9, SET+10, WRCNT*
>> DG2 EN*
>> DGA EEN*, CK+3
>> DGADM SET*, SET+1
>> DGASIH SET+9
>> DGCA CK+1*, CK+2, CK+5
>> DGCD SET+3*, SET+5*, DAT*
>> DGCL START*, HEAD+2
>> DGD WR+1*
>> DGDAT EEN+1*, EEN+2, CK+5, SET, OUT+2, OUT+3, OUT+4, OUT+6
>> DGDAY START+2*, START+3, HEAD
>> DGDFN( SET+8, SET+9*, SET+10*
>> DGDT EEN+2*, CK+5
>> DGDV SET+1*, SET+9, SET+10, HEAD+2, WR*, WR+1*, WRCNT
>> DGFL START+3*, CK+4*, CK+5*, CK+6, SET*, SET+7, OUT+2*, OUT+3*, OUT+4*, OUT+6*
, WR*, WR+1, WRCNT*
>> DGI CK+5*
>> DGIFN EEN+2*, CK+1
>> DGJ CK+5*
>> DGLV SET+3*, SET+9, SET+10*
>> DGNO WRCNT*, WR1+1
>> DGNOW EEN*, OUT+5
>> DGP SET+1*, SET+9, SET+10, WR*, WR+1*, WRCNT, WR1+1
>> DGPG HEAD*, WR+1*
>> DGPGM EN+1*
>> DGRT SET+5*, SET+10*
>> DGSTART START+1*, EEN+2
>> DGT EN*, START+1, START+2, EEN+1
>> DGTIME START*, HEAD
>> DGTP SET+3*, SET+4*, SET+10*
>> DGTYP SET+3*, OUT+1*, OUT+2, OUT+3, OUT+4, OUT+6
>> DGU WR*, WR+1, WRCNT, WR1, RT+2*
>> DGVAR EN+1*
>> DGW SET+6*, SET+9, SET+10*
>> DGX CK+1*, CK+3, SET*, SET+3, SET+5, SET+6
>> DGY CK+5*, OUT+1, OUT+2, OUT+3, OUT+4, OUT+5, OUT+6
DT EN
DTIME RT+2
IO EN+1
IOF HEAD
IOSL WR1, RT+1
IOST WR1, RT
>> M WR+1*
>> POP EN+1
>> VA("PID" SET+9, SET+10*
>> VAIP("D" SET*
>> VAIP(1 SET
>> VAIP(4 SET+4
>> X START+1, SET+3*, SET+5*, DAT, RT+1*, RT+2*
>> X1 START+1*
>> X2 START+1*
>> Y EN, START*, START+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All