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

Package Total Caller Graph
Registration 98 DG OERR TREATING TRANSFER  DGA4001  DGA4002  DGA4004  DGA4005  DGANHD  DGDIS  DGMTSCR  
DGOERR DISCHARGE  DGOIL  DGOINPT  DGPATN  DGPMEX  DGPMV  DGPTBEP  DGPTEXPR  
DGPTF  DGPTF099  DGPTF2  DGPTFDEL  DGPTFREL  DGPTFVC3  DGPTOD0  DGPTODA1  
DGPTODA2  DGPTODB1  DGPTODB2  DGPTODCM  DGPTOLC1  DGPTOLC2  DGPTOM1  DGPTOM2  
DGPTSCAN  DGRPC  DGRPCK  DGRPCP1  DGRPCR  DGRPCU  DGRPP  DGRPX77  
DGRUGC  DGRUGV  DGSCHAD2  DGSCHAD3  DGSEC1  DGSEC2  DGSEC3  ^DGEN(27.11  
DG10  DGABUL  DGADDUTL  DGAINP  DGBLRV  DGDISS  DGDIST  DGENCD  
DGENCDA1  DGMTLK  DGODASK  DGODNP1  DGOERR ADMIT  DGOERR BED SWITCH  DGOERR TRANSFER  DGOINPT1  
DGOVBC  DGOVBC1  DGOVBC2  DGPMGL  DGPTC1  DGPTFCR  DGPTFFB  DGPTFUP  
DGPTMSG  DGPTMSGD  DGPTODF1  DGPTODF2  DGPTODI1  DGPTODI2  DGPTODT1  DGPTODT2  
DGPTR0  DGPTRI0  DGPTRNU  DGPTRPO  DGPTRPP  DGPZ07P  DGREG  DGRPTU  
DGRPX7  DGRRLU2  DGRUGDR  DGRUGIX  DGRUGV16  DGSCHAD  DGSEC  DGVPP  
DPTVPR  DPTVPT  
Scheduling 8 SCRPU3  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 DVBHCE15  
Income Verification Match 1 IVMLERR1  
Kernel 1 ^ORD(101  

Entry Points

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

    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