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

Package: Registration

Routine: DGUTL


Information

DGUTL ;ALB/MRL - DG UTILITY FUNCTIONS ; 08 JAN 86

Source Information

Source file <DGUTL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 C^%DTC  DT^DICRW  ^DIR  
Kernel 2 $$S^%ZTLOAD  H^XUS  
Registration 2 ^DGRPE  DIVISION^VAUTOMA  
Integrated Billing 1 $$INSUR^IBBAPI  

Caller Graph

Caller Graph Total: 126

Package Total Caller Graph
Registration 100 DG OERR TREATING TRANSFER  DG10  DGA4001  DGA4002  DGA4004  DGA4005  DGABUL  DGADDUTL  
DGAINP  DGANHD  DGBLRV  DGDIS  DGDISS  DGDIST  DGENCD  DGENCDA1  
DGMTLK  DGMTSCR  DGODASK  DGODNP1  DGOERR ADMIT  DGOERR BED SWITCH  DGOERR DISCHARGE  DGOERR TRANSFER  
DGOIL  DGOINPT  DGOINPT1  DGOVBC  DGOVBC1  DGOVBC2  DGPATN  DGPMEX  
DGPMGL  DGPMV  DGPTBEP  DGPTC1  DGPTEXPR  DGPTF  DGPTF099  DGPTF2  
DGPTFCR  DGPTFDEL  DGPTFFB  DGPTFREL  DGPTFUP  DGPTFVC3  DGPTMSG  DGPTMSGD  
DGPTOD0  DGPTODA1  DGPTODA2  DGPTODB1  DGPTODB2  DGPTODCM  DGPTODF1  DGPTODF2  
DGPTODI1  DGPTODI2  DGPTODT1  DGPTODT2  DGPTOLC1  DGPTOLC2  DGPTOM1  DGPTOM2  
DGPTR0  DGPTRI0  DGPTRNU  DGPTRPO  DGPTRPP  DGPTSCAN  DGPZ07P  DGREG  
DGRP11B  DGRPC  DGRPCK  DGRPCP1  DGRPCR  DGRPCU  DGRPP  DGRPTU  
DGRPX7  DGRPX75  DGRRLU2  DGRUGC  DGRUGDR  DGRUGIX  DGRUGV  DGRUGV16  
DGSCHAD  DGSCHAD2  DGSCHAD3  DGSEC  DGSEC1  DGSEC2  DGSEC3  DGUAMWS  
DGVPP  DPTVPR  DPTVPT  ^DGEN(27.11  
Scheduling 9 SCRPU3  SD53747P  SDAMN  SDC  SDD  SDN  SDNOS  SDNOS1  
SDVPR  
Accounts Receivable 6 PRCADR  PRCAUTL  RCDPAPLI  RCDPBPLM  RCKATP  RCKATRPT  
Integrated Billing 3 IB20PT81  IB20PT82  IB20PT88  
Methicillin Resistant Staph Aurerus Initiative Reports 3 MMRSCDI  MMRSCDI2  MMRSCRE  
DSS Extracts 1 ECXNUT  
Enrollment Application System 1 EASECSCR  
HINQ 1 DVBHCE18  
Income Verification Match 1 IVMLERR1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
RI ;Reimbursable Insurance
; ** NOTE: This procedure appears to be obsolete, but code was modified
; for IB/AR Encapsulation anyways.
TS ;Table of Contents SET
TP ;Table of Contents PRINT
TH ;Table of Contents HEADER
C ;Cover Page
H ;Convert $H to Readable Date/Time
DIV ;Determine Division
DT
EOM ;Required Variable: X - Date should be in internal FM date format
LO
UPPER(X) ; -- convert to uppercase
LOWER(X) ;
QUES(DFN,DGQCODE) ; EDIT REGISTRATION DATA FOR AMIE USE ONLY
QTE
QTQ
FIRST() ;First heading of report
; RETURNS STOP; 0=GO,1=STOP
SUBSEQ() ;enter for further headings of report
; RETURNS STOP; 0=GO,1=STOP
STOPCHK
STOPPED ;
ENDREP
ASKDIV(NOTALL) ;Ask for division (one/many/all)
; Input: NOTALL - Flag that prevents selection of all divisions
; 1 = Don't allow selection of all divisions
; 0 = Allow selection of all divisions (default)
ASKDIVQ
EMGRES(DFN)
  • ICR #4800
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    C^%DTC EOM+2
    $$S^%ZTLOAD STOPCHK
    ^DGRPE QUES+17
    DT^DICRW H+1, LO
    ^DIR SUBSEQ+4
    $$INSUR^IBBAPI RI+3
    DIVISION^VAUTOMA ASKDIV+24
    H^XUS LO+1, LO+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?10,J," ",X," ",J1
    • Line Location: TP+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: TP+3
    Function Call: WRITE
    • Prompt: @IOF,!,"TABLE OF CONTENTS FOR '",$P(DGTCH,U,1),"'",?(IOM-11)
    • Line Location: TH+1
    Function Call: WRITE
    • Prompt: Y,!?10,$P(DGTCH,U,2),?IOM-7-$L($P(DGTCH,U,3)),$P(DGTCH,U,3)
    • Line Location: TH+1
    Function Call: WRITE
    • Prompt: Y,!?10,$P(DGTCH,U,2),?IOM-7-$L($P(DGTCH,U,3)),$P(DGTCH,U,3)
    • Line Location: TH+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: C+2
    Function Call: WRITE
    • Prompt: !!?$P(DGCPG(I),U,2),$P(DGCPG(I),U,1)
    • Line Location: C+3
    Function Call: WRITE
    • Prompt: !!?X1,X
    • Line Location: C+4
    Function Call: WRITE
    • Prompt: !!?X1,X
    • Line Location: C+5
    Function Call: WRITE
    • Prompt: DGCPT
    • Line Location: C+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: C+7
    Function Call: WRITE
    • Prompt: +$E(%,4,5)_"-"
    • Condition for execution: $E(%,4,5)
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: +$E(%,6,7)_"-"
    • Condition for execution: $E(%,6,7)
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: $E(%,1,3)+1700
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: " ("_$E(%_0,9,10)_":"_$E(%_"000",11,12)_")"
    • Condition for execution: %["."
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: !,"ADT parameters not set up",*7
    • Line Location: LO+1
    Function Call: WRITE
    • Prompt: !!,"Please log off the computer and then back to use this option.",!!,*7
    • Line Location: LO+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: FIRST+5
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: SUBSEQ+6
    Function Call: WRITE
    • Prompt: !?5,"------------- Report stopped at user's request ------------"
    • Line Location: STOPPED+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKDIV+17
    Function Call: WRITE
    • Prompt: $C(7),"***WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP***"
    • Line Location: ASKDIV+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKDIV+19
    Routine Call
    • DIR
    • Line Location:
      • SUBSEQ+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" TH+1
    ^DD("SITE" C+5
    ^DG(40.8 - [#40.8] DIV+2, ASKDIV+16
    ^DG(40.80 ASKDIV+15
    ^DG(43 - [#43] DIV+1, LO+1, ASKDIV+20
    ^DPT - [#2] QUES+16, QUES+18, EMGRES+13
    ^UTILITY("DG" LO+2!
    ^UTILITY($J TS+1*, TP+1, TP+2, TP+3!
    ^VA(200 - [#200] C+4, LO+2

    Label References

    Name Line Occurrences
    ASKDIVQ ASKDIV+16, ASKDIV+21
    QTE QUES+11
    STOPCHK FIRST+3, SUBSEQ+3
    STOPPED FIRST+4, SUBSEQ+5
    TH TP+2

    Naked Globals

    Name Field # of Occurrence
    ^("GL" DIV+1
    ^("SITE" C+5
    ^(0 C+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % DT
    %Y QUES+9~
    C LOWER+1~, LOWER+3*
    D QUES+9~
    D0 QUES+9~
    DFN RI+3, QUES~, QUES+11, QUES+16, QUES+18, EMGRES~, EMGRES+10, EMGRES+13
    >> DGCHANGE QUES+10*, QUES+18*
    DGCODE QUES+9~, QUES+12*
    >> DGCPG( C+1*, C+3
    >> DGCPT C+6
    >> DGDATE H+1*
    >> DGDIV DIV+1*, DIV+2*
    DGDR QUES+9~, QUES+13*
    >> DGERR QUES+10*, QTE*
    >> DGINS RI+3*
    DGNODE QUES+9~, QUES+16*, QUES+18*
    >> DGPAG TS+1
    >> DGPAG1 TS+1
    DGPC QUES+9~, QUES+12*
    DGPTND QUES+9~
    DGPTND( QUES+16*, QUES+18
    DGQ QUES+9~
    DGQCODE QUES~, QUES+11
    DGQNODES QUES+9~, QUES+15*, QUES+16
    DGRPS QUES+9~, QUES+10*, QUES+14*, QTE
    DGTCH TP+3!, TH+1
    >> DGTIME H+1*
    DGX QUES+9~
    DI QUES+9~
    DIC QUES+9~
    DIR SUBSEQ+2~
    DIR(0 SUBSEQ+4*
    >> DIRUT SUBSEQ+4
    DQ QUES+9~
    DT TH+1, H+1, LO
    DTIME LO*
    DUZ C+4, LO+2
    FIRSTDIV ASKDIV+13~, ASKDIV+15*, ASKDIV+16
    I TP+2*, TP+3!, C+1*, C+2*, C+3*, C+7!, LOWER+1~, LOWER+3*
    I1 TP+2*, TP+3!
    IOF TH+1, C+1, FIRST+5, SUBSEQ+6, ENDREP
    IOM TP+2, TH+1, C+1, C+4, C+5
    >> IONOFF ENDREP
    IOSL TP+2, C+2
    IOST FIRST+5, SUBSEQ+4, ENDREP
    J TP+2*, TP+3!
    J1 TP+2*, TP+3!
    MULTIDIV ASKDIV+13~, ASKDIV+20*, ASKDIV+21
    N QUES+9~, QUES+16*
    NOTALL ASKDIV~, ASKDIV+23
    RESULT EMGRES+12~, EMGRES+13*, EMGRES+14
    STOP FIRST+2~, FIRST+4, FIRST+5, FIRST+6, SUBSEQ+2~, SUBSEQ+4*, SUBSEQ+5, SUBSEQ+6, SUBSEQ+7, STOPCHK*
    TT C+1*, C+2*, C+7!
    U TH+1, C+1, C+3, C+4, LO*, EMGRES+13
    USER LO+2*, LO+3!
    VAUTD ASKDIV+14!, ASKDIV+21*, ASKDIV+22*, ASKDIV+25!, ASKDIVQ
    VAUTNALL ASKDIV+13~, ASKDIV+23*
    X TP+2*, TP+3!, TH+1*!, C+4*, C+5*, C+7!, EOM+2!, UPPER~, UPPER+1, LOWER~
    , LOWER+2, QUES+9~, SUBSEQ+2~
    X1 C+4*, C+5*, C+7!, EOM+2*
    >> X2 EOM+2*
    Y TP+3!, TH+1*, EOM+2*, LOWER+1~, LOWER+2*, LOWER+3*, LOWER+4, QUES+9~, SUBSEQ+2~, ASKDIV+13~
    , ASKDIV+22*, ASKDIV+25
    Z LOWER+1~, LOWER+3*
    >> ZTQUEUED STOPCHK
    ZTREQ STOPPED+2!
    >> ZTSTOP STOPCHK*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All