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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRUUTL1

Package: Registration

Routine: DGRUUTL1


Information

DGRUUTL1 ;ALB/GRR - RAI/MDS UTILITY ROUTINE

Source Information

Source file <DGRUUTL1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 C^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Registration 3 ENMFU^DGRUDYN  $$ENGET^DGRUGMFU  IN5^VADPT  
Health Level Seven 1 $$HLDATE^HLFNC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Registration 14 2966  DGRUADT  DGRUADT0  DGRUADT2  DGRUGA01  DGRUGA02  DGRUGA03  DGRUGA08  
DGRUGA11  DGRUGA12  DGRUGA13  DGRUGA21  DGRUGA22  DGRUGMFU  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ;Process each division for routing
LOCTRAN(DGPV1) ;TRANSLATE WARD AND ROOM-BED
SKIP1 ;
LOCEX
WARDTRAN(DGWIEN,DGWNAM) ;
RBTRAN(DGRBIEN,DGRBNAM) ;
DOCTOR(X) ;DETERMINE IF NEW PERSON A PHYSICIAN ;added 1/12/2000
IN1(DFN) ;CREATE IN1 SEGMENT
CALCDT(DFN,DGMIEN) ;CALCULATE FUTURE DISCHARGE DATE
ENTS ;USED TO REVIEW HL7 MESSAGES FOR TROUBLE SHOOTING
RD2
PRIOR(DA) ;
NEXT(DA) ;
GETDIV(X) ;GET DIVISION FOR SPECIFIED WARD
CKADMIT(DFN) ;CHECH IF INTEGRATED SITE FOR ORIGINAL ADMIT DATE
FLLTCM(DFN) ;
QUIT

External References

Name Field # of Occurrence
C^%DTC CALCDT+4
ENMFU^DGRUDYN EN+4
$$ENGET^DGRUGMFU EN+3
^DIC ENTS+2
$$GET1^DIQ LOCTRAN+37, WARDTRAN+3, RBTRAN+3, DOCTOR+2, CALCDT+3, GETDIV+4, CKADMIT+6, CKADMIT+8
^DIR RD2
$$HLDATE^HLFNC IN1+3, CALCDT+4
IN5^VADPT LOCTRAN+34, IN1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The 'DGRU RAI EVENTS' entry in file 771 missing!"
  • Line Location: ENTS+3
Function Call: WRITE
  • Prompt: !,^(ZZ,0)
  • Line Location: PRIOR+4
Function Call: WRITE
  • Prompt: "...At the Top.."
  • Line Location: PRIOR+5
Function Call: WRITE
  • Prompt: !,^(ZZ,0)
  • Line Location: NEXT+4
Function Call: WRITE
  • Prompt: "...Bottomed out.."
  • Line Location: NEXT+5
Routine Call
  • DIC
  • Line Location:
    • ENTS+2
Routine Call
  • DIR
  • Line Location:
    • RD2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] GET1^DIQ
^DIC(42 - [#42] GET1^DIQ
^DGRU(46.12 - [#46.12] GET1^DIQ
^DGRU(46.13 - [#46.13] GET1^DIQ
^DIC(7 - [#7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] FLLTCM+26
^DGPM("APTT1" CKADMIT+4, CKADMIT+5, FLLTCM+9, FLLTCM+15, FLLTCM+17
^DGPM("APTT2" FLLTCM+6, FLLTCM+21, FLLTCM+25
^DGPM("ATID2" CALCDT+2
^DGRU(46.12 - [#46.12] WARDTRAN+2
^DGRU(46.13 - [#46.13] RBTRAN+2
^DPT - [#2] FLLTCM+6
^HL(772 - [#772] PRIOR+1, PRIOR+2, PRIOR+4, NEXT+1, NEXT+2, NEXT+4
^HLMA - [#773] PRIOR+3, NEXT+3
^HLMA("B" PRIOR+2, NEXT+2

Label References

Name Line Occurrences
$$RBTRAN SKIP1+2, SKIP1+4
$$WARDTRAN SKIP1+1, SKIP1+3
LOCEX LOCTRAN+5
NEXT RD2+2
PRIOR ENTS+5, RD2+1
QUIT FLLTCM+4, FLLTCM+6, FLLTCM+12, FLLTCM+16, FLLTCM+24, FLLTCM+26
RD2 RD2+1, RD2+2

Naked Globals

Name Field # of Occurrence
^( PRIOR+4, NEXT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ENTS+1~, ENTS+4*, ENTS+5, RD2+1, RD2+2, PRIOR~, PRIOR+1*, PRIOR+2, PRIOR+4, PRIOR+5*
, NEXT~, NEXT+1*, NEXT+2, NEXT+4, NEXT+5*
DFN IN1~, CALCDT~, CALCDT+2, CKADMIT~, CKADMIT+4, CKADMIT+5, FLLTCM~, FLLTCM+4, FLLTCM+6, FLLTCM+9
, FLLTCM+15, FLLTCM+17, FLLTCM+21, FLLTCM+25
DGADT IN1+1~, IN1+3*, IN1+5
>> DGARRAY LOCTRAN+5
DGASIH CKADMIT+1~, CKADMIT+6*, CKADMIT+7
DGB LOCTRAN+1~, LOCTRAN+3*, LOCTRAN+45, LOCTRAN+49, SKIP1+2
>> DGBS LOCTRAN+14
>> DGCI WARDTRAN+2*, WARDTRAN+3, RBTRAN+2*, RBTRAN+3
DGCRB LOCTRAN+1~, LOCTRAN+9*, LOCTRAN+13*, LOCTRAN+17, LOCTRAN+22*, LOCTRAN+25*, LOCTRAN+28*, LOCTRAN+31*, LOCTRAN+36*, LOCTRAN+41*
, LOCTRAN+45*, LOCTRAN+49*, LOCTRAN+54*, LOCTRAN+57*, LOCTRAN+60*, LOCTRAN+64*, LOCTRAN+67*, LOCTRAN+70*, SKIP1+2
DGCW LOCTRAN+1~, LOCTRAN+8*, LOCTRAN+12*, LOCTRAN+15, LOCTRAN+17, LOCTRAN+21*, LOCTRAN+24*, LOCTRAN+27*, LOCTRAN+30*, LOCTRAN+35*
, LOCTRAN+40*, LOCTRAN+44*, LOCTRAN+48*, LOCTRAN+53*, LOCTRAN+56*, LOCTRAN+59*, LOCTRAN+63*, LOCTRAN+66*, LOCTRAN+69*, SKIP1+1
DGDIV EN+1~, EN+3*, EN+4
DGDT CALCDT+1~, CALCDT+4*
DGETYPE LOCTRAN+5~*, LOCTRAN+7, LOCTRAN+11, LOCTRAN+19, LOCTRAN+33, LOCTRAN+39, LOCTRAN+43, LOCTRAN+47, LOCTRAN+51, LOCTRAN+61
DGHDT CALCDT+1~, CALCDT+4*, CALCDT+5
>> DGHMID PRIOR+2*, NEXT+2*
DGI LOCTRAN+1~
DGINTEG CKADMIT+1~
DGLASTA FLLTCM+2~, FLLTCM+9*, FLLTCM+12, FLLTCM+15, FLLTCM+20
DGLASTT FLLTCM+2~, FLLTCM+20*, FLLTCM+21
DGLOC LOCTRAN+1~, LOCTRAN+2*, LOCTRAN+3, SKIP1+5
DGLTCA FLLTCM+2~, FLLTCM+15*, FLLTCM+16, FLLTCM+17
DGLTCIEN FLLTCM+2~, FLLTCM+17*, FLLTCM+24, FLLTCM+26
>> DGMESS PRIOR+2*, PRIOR+3, NEXT+2*, NEXT+3
DGMIEN LOCTRAN+37~*!, LOCTRAN+68, LOCTRAN+69, LOCTRAN+70, CALCDT~, CALCDT+2
>> DGMOVE LOCTRAN+29
DGNDT CKADMIT+1~, CKADMIT+2*, CKADMIT+8*, CKADMIT+9
>> DGNLOC SKIP1+5*, SKIP1+6
>> DGNPLOC SKIP1+5*, SKIP1+6
>> DGNPRB SKIP1+4*, SKIP1+5
>> DGNPW SKIP1+3*, SKIP1+5
>> DGNRB SKIP1+2*, SKIP1+5
>> DGNW SKIP1+1*, SKIP1+5
DGOIEN CALCDT+1~, CALCDT+2*, CALCDT+3
DGOLDD CALCDT+1~, CALCDT+3*, CALCDT+4
DGPB LOCTRAN+1~, LOCTRAN+4*, LOCTRAN+8*, LOCTRAN+16*, LOCTRAN+45*, LOCTRAN+49*, SKIP1+4
>> DGPCN DOCTOR+2*, DOCTOR+3
DGPL LOCTRAN+1~
>> DGPLOC LOCTRAN+2*, LOCTRAN+4
>> DGPM0 LOCTRAN+44, LOCTRAN+45, LOCTRAN+48, LOCTRAN+49
>> DGPMA LOCTRAN+8, LOCTRAN+9, LOCTRAN+12, LOCTRAN+13, LOCTRAN+55, LOCTRAN+56, LOCTRAN+57, LOCTRAN+59, LOCTRAN+60
>> DGPMAN LOCTRAN+23, LOCTRAN+24, LOCTRAN+25, LOCTRAN+58, LOCTRAN+59, LOCTRAN+60
DGPMDA CKADMIT+1~, CKADMIT+5*, CKADMIT+6, CKADMIT+8
>> DGPMVI(5 LOCTRAN+12, LOCTRAN+26, LOCTRAN+27, LOCTRAN+40, LOCTRAN+52, LOCTRAN+53, LOCTRAN+65, LOCTRAN+66
>> DGPMVI(6 LOCTRAN+13, LOCTRAN+15, LOCTRAN+28, LOCTRAN+41, LOCTRAN+54, LOCTRAN+65, LOCTRAN+67
DGPR LOCTRAN+1~, LOCTRAN+4*, LOCTRAN+8*, LOCTRAN+16*, LOCTRAN+45*, LOCTRAN+49*, SKIP1+4
DGPRB LOCTRAN+1~, LOCTRAN+9*, LOCTRAN+13*, LOCTRAN+17*, LOCTRAN+22*, LOCTRAN+25*, LOCTRAN+28*, LOCTRAN+31*, LOCTRAN+36*, LOCTRAN+37*
, LOCTRAN+41*, LOCTRAN+45*, LOCTRAN+49*, LOCTRAN+54*, LOCTRAN+57*, LOCTRAN+60*, LOCTRAN+64*, LOCTRAN+67*, LOCTRAN+70*, SKIP1+4
>> DGPRBN LOCTRAN+15*, LOCTRAN+16
DGPV1 LOCTRAN~, LOCTRAN+2, SKIP1+6*, LOCEX
DGPW LOCTRAN+1~, LOCTRAN+8*, LOCTRAN+12*, LOCTRAN+15*, LOCTRAN+17*, LOCTRAN+21*, LOCTRAN+24*, LOCTRAN+27*, LOCTRAN+30*, LOCTRAN+35*
, LOCTRAN+40*, LOCTRAN+44*, LOCTRAN+48*, LOCTRAN+53*, LOCTRAN+56*, LOCTRAN+59*, LOCTRAN+63*, LOCTRAN+66*, LOCTRAN+69*, SKIP1+3
>> DGPWN LOCTRAN+4*, LOCTRAN+8*, LOCTRAN+15*, LOCTRAN+44*, LOCTRAN+48*, SKIP1+3
DGQ CKADMIT+1~, CKADMIT+3*, CKADMIT+4, CKADMIT+8*
DGR LOCTRAN+1~, LOCTRAN+3*, LOCTRAN+45, LOCTRAN+49, SKIP1+2
>> DGRB RBTRAN+3*, RBTRAN+4
DGRBIEN RBTRAN~, RBTRAN+1, RBTRAN+2
DGRBNAM RBTRAN~, RBTRAN+1, RBTRAN+2
DGRDIV EN+1~
DGREC IN1+1~, IN1+4*, IN1+5*, IN1+6
>> DGRU(17 LOCTRAN+30, LOCTRAN+31
DGTIEN FLLTCM+2~, FLLTCM+3*, FLLTCM+6*, FLLTCM+21*, FLLTCM+24*, FLLTCM+25*, FLLTCM+26*, QUIT
>> DGTNW WARDTRAN+3*, WARDTRAN+4
DGW LOCTRAN+1~, LOCTRAN+3*, LOCTRAN+15, LOCTRAN+44, LOCTRAN+48, SKIP1+1
DGWIEN WARDTRAN~, WARDTRAN+1, WARDTRAN+2
DGWNAM WARDTRAN~, WARDTRAN+1, WARDTRAN+2
>> DGXFR0 LOCTRAN+20, LOCTRAN+21, LOCTRAN+22
DGZDT CKADMIT+1~, CKADMIT+2*, CKADMIT+4*, CKADMIT+5
DIC ENTS+2~*
DIC(0 ENTS+2*
DIR RD2!
DIR("A" RD2*
DIR(0 RD2*
>> HL("ECH" LOCTRAN+3, LOCTRAN+4, SKIP1+5
>> HL("FS" LOCTRAN+2, LOCTRAN+5, SKIP1+6, IN1+4, IN1+5
HLL EN+2!
>> HLQ WARDTRAN+1, RBTRAN+1
>> TRSNODE LOCTRAN+62, LOCTRAN+63, LOCTRAN+64
>> VAFH(2 LOCTRAN+68, LOCTRAN+69, LOCTRAN+70
VAIP LOCTRAN+34~, IN1+1~
VAIP(13 IN1+3
VAIP(15 LOCTRAN+35, LOCTRAN+37
VAIP(5 LOCTRAN+35
VAIP(6 LOCTRAN+36
X DOCTOR~, DOCTOR+2, CALCDT+4, ENTS+1~, ENTS+2*, RD2+1, RD2+2, GETDIV~, GETDIV+3, GETDIV+4*
, GETDIV+5
>> X1 CALCDT+4*
>> X2 CALCDT+4*
Y ENTS+2~, ENTS+3
>> Z CALCDT+2*
ZX ENTS+1~, ENTS+2*, PRIOR+1, NEXT+1
ZZ ENTS+1~, PRIOR+4*, NEXT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All