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 |  Marked Items |  All
Print Page as PDF
Routine: DIR2

Package: VA FileMan

Routine: DIR2


Information

DIR2 ;SFISC/XAK - READER (SETUP VARS,REPLACE...WITH) ;2DEC2016

Source Information

Source file <DIR2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 7 NOW^%DTC  ($$EZBLD,BLD)^DIALOG  $$LABEL^DIALOGZ  $$GETPROP^DIETLIBF  $$UP^DILIBF  DA^DIRQ  $$DATE^DIUTL  
Kernel 1 $$LGR^%ZOSV  

Caller Graph

Caller Graph Total: 439

Package Total Caller Graph
Integrated Billing 105 IBXEX  IBXEXI  IBXEXS  IBXPAR  IBXPAR1  IBXPAR2  IBXS1  IBXS11  
IBXS12  IBXS2  IBXS21  IBXS3  IBXS36  IBXS39  IBXS4  IBXS41  
IBXS42  IBXS43  IBXS44  IBXS5  IBXS51  IBXS52  IBXS53  IBXS54  
IBXS6  IBXS63  IBXS64  IBXS7  IBXS71  IBXS73  IBXS74  IBXS8  
IBXS81  IBXS9  IBXS91  IBXSA  IBXSA2  IBXSA21  IBXSA22  IBXSA25  
IBXSA26  IBXSA27  IBXSA28  IBXSAH  IBXSAH1  IBXSAH10  IBXSAH2  IBXSAH5  
IBXSAH6  IBXSAH9  IBXSC1  IBXSC11  IBXSC114  IBXSC117  IBXSC12  IBXSC121  
IBXSC17  IBXSC2  IBXSC21  IBXSC22  IBXSC23  IBXSC3  IBXSC31  IBXSC34  
IBXSC35  IBXSC36  IBXSC39  IBXSC4  IBXSC41  IBXSC42  IBXSC43  IBXSC44  
IBXSC5  IBXSC51  IBXSC52  IBXSC53  IBXSC54  IBXSC55  IBXSC6  IBXSC61  
IBXSC67  IBXSC68  IBXSC7  IBXSC71  IBXSC712  IBXSC74  IBXSC78  IBXSC79  
IBXSC8  IBXSC82  IBXSC821  IBXSC822  IBXSC823  IBXSC824  IBXSC829  IBXSC8H  
IBXSC8H1  IBXSC8H2  IBXSC8H3  IBXSC8H4  IBXSC8H5  IBXST  IBXST1  IBXST5  
IBXST6  
Registration 100 DGMTXC  DGMTXC2  DGMTXD  DGMTXE  DGMTXI  DGMTXM  DGMTXN  DGMTXT  
DGPMX1  DGPMX2  DGPMX22  DGPMX3  DGPMX4  DGPMX5  DGPMX6  DGPMXA  
DGPMXAS  DGPMXAS1  DGPTX1  DGPTX11  DGPTX12  DGPTX13  DGPTX4  DGPTX41  
DGPTX5  DGPTX51  DGPTX53  DGPTX54  DGPTX7  DGPTX73  DGPTX74  DGPTX75  
DGPTX8  DGPTX81  DGPTXA  DGPTXC  DGPTXC1  DGPTXCA  DGPTXM  DGPTXMS  
DGRPTX  DGRPTX11  DGRPTX13  DGRPTX17  DGRPTX4  DGRPX7  DGRPX711  DGRPX77  
DGRPX78  DGRPXC  DGRPXC1  DGRPXCR  DGRPXI  DGRPXIS  DGRPXIS1  DGRPXR  
DGRPXX7  DGRPXX71  DGRPXX72  DGRPXX73  DGRPXX74  DGRPXX75  DGRPXX76  DGX4  
DGX41  DGX42  DGX44  DGX5  DGX51  DGX53  DGX55  DGX56  
DGX57  DGX58  DGX59  DGX5F  DGX5F1  DGX5F2  DGX5F3  DGX5FD  
DGX5FD1  DGX5FD2  DGX5FD4  DGX5FD5  DGX5FD6  DGX5FD7  DGX5FD8  DGX6  
DGX61  DGX63  DGX64  DGX7  DGX72  DGX73  DGX74  DGX75  
DGX76  DGXTS  DGXTS1  DGXTS2  
IFCAP 65 PRCHT1  PRCHT11  PRCHT110  PRCHT111  PRCHT112  PRCHT113  PRCHT114  PRCHT115  
PRCHT116  PRCHT12  PRCHT13  PRCHT14  PRCHT15  PRCHT16  PRCHT17  PRCHT18  
PRCHT19  PRCHT2  PRCHT21  PRCHT22  PRCHT3  PRCHT31  PRCHT310  PRCHT311  
PRCHT312  PRCHT313  PRCHT314  PRCHT315  PRCHT32  PRCHT33  PRCHT34  PRCHT35  
PRCHT36  PRCHT37  PRCHT38  PRCHT39  PRCST1  PRCST11  PRCST12  PRCST13  
PRCST17  PRCST18  PRCST19  PRCST2  PRCST21  PRCST22  PRCST25  PRCST26  
PRCST27  PRCST3  PRCST31  PRCST32  PRCST33  PRCST34  PRCST35  PRCST36  
PRCST37  PRCST38  PRCST4  PRCST41  PRCST42  PRCST43  PRCST44  PRCST45  
PRCST46  
Radiology Nuclear Medicine 26 RACTOE  RACTOE1  RACTOE2  RACTOE5  RACTOE6  RACTQE  RACTQE1  RACTQE2  
RACTRG  RACTRG1  RACTRG2  RACTRG3  RACTRG4  RACTRG5  RACTRG6  RACTRG7  
RACTRG8  RACTVR  RACTVR1  RACTVR4  RACTVR5  RACTWR  RACTWR1  RACTWR2  
RACTWR4  RACTWR5  
Record Tracking 19 RTCC  RTCC1  RTCC2  RTCC3  RTCC4  RTCM  RTCM1  RTCP  
RTCP1  RTCP2  RTCR  RTCR1  RTCR2  RTCS  RTCU  RTCU1  
RTCU2  RTCU3  RTCU4  
Automated Information Collection System 18 IBDX96  IBDX961  IBDX97  IBDXI2  IBDXI21  IBDXI22  IBDXI23  IBDXI24  
IBDXI25  IBDXI26  IBDXI5  IBDXI51  IBDXI52  IBDXI53  IBDXI93  IBDXI931  
IBDXI932  IBDXI933  
Scheduling 17 SDAMXLG  SDAMXOE  SDAMXOE1  SDBT  SDBT1  SDBT2  SDBT3  SDBT4  
SDM1T  SDM1T10  SDM1T5  SDXA  SDXA1  SDXA2  SDXACSE  SDXACSE1  
SDXACSE2  
Accounts Receivable 12 PRCATA  PRCATA1  PRCATA4  PRCATB  PRCATB1  PRCATE  PRCATE1  PRCATE2  
PRCATE3  PRCATE4  PRCATSE  PRCATSE1  
Automated Medical Information Exchange 12 DVBAXA  DVBAXA10  DVBAXA15  DVBAXA21  DVBAXA5  DVBAXS  DVBAXS1  DVBAXS2  
DVBAXS3  DVBAXS4  DVBAXS5  DVBAXS6  
Quasar 10 ACKQTE  ACKQTE1  ACKQTE10  ACKQTE11  ACKQTE2  ACKQTE6  ACKQTE7  ACKQTE8  
ACKQTE9  ACKQTM  
HINQ 8 DVBHCE  DVBHCE1  DVBHCE15  DVBHCE18  DVBHCE19  DVBHCE2  DVBHCE20  DVBHCE8  
Incomplete Records Tracking 8 DGJXA  DGJXA1  DGJXA2  DGJXA3  DGJXE  DGJXE1  DGJXE4  DGJXE5  
VA FileMan 8 DIA  DICATT5  DIED  DIFGA  DIP2  DIR  DIU31  DIWE1  
Fee Basis 5 FBCTAU  FBCTAU1  FBCTAU2  FBCTV  FBCTV3  
Graphics 5 GRPX7  GRPX71  GRPX710  GRPX78  GRPX79  
Event Capture 4 ECMXP  ECMXP1  ECMXP2  ECMXPC  
Outpatient Pharmacy 4 APSPT04  APSPT041  APSPT05  APSPT051  
Text Integration Utility 4 TIUEDS  TIUEDS5  TIUEPN  TIUEPN10  
Albany OIFO 3 A1CKC  A1CKC8  A1CKC9  
Medicine 3 MCOPRG  MCOPRG1  MCOPRG2  
Nursing Service 3 NURAPA  NURAPA1  NURAPA2  

Entry Points

Name Comments DBIA/ICR reference
S1 ;;;Enter a code from the list.;9032
WITH
DIR(DIALA) ;** INSERTS DIALOGS INTO DIR ARRAY
L ;;Enter a list or range of numbers;8056
RW ; Replace...With... ENTER WITH 'Y', EXIT WITH 'Y' CHANGED. CALLED FROM MANY ROUTINES
  • ICR #2021
    • Status: Active
    • Usage: Private
    NN
    E1 ;;;Enter either RETURN or '^';9033
    A
    EO
    B
    E ;;Press RETURN to continue or '^' to exit: ;8053
    D ;;Enter a date;8055
    F ;;Enter response: ;8051
    H
    S0(%B) ;CREATE PROMPT FOR READING A 'SET' TYPE. %B is the SET OF CODES
    N ;;Enter a number;8054
    Q
    P ;;Select: ;8057
    S ;;Enter response: ;8051
    L1 ;;;This response must be a list or range, e.g., 1,3,5 or 2-4,8;9036
    Y ;;Enter Yes or No: ;8052
    N1 ;;;This response must be a number;9034
    F1 ;;;This response can be free text;9031
    FIELD
    Y1 ;;;Enter either 'Y' or 'N'.;9040
    D1 ;;;This response must be a date;9035

    External References

    Name Field # of Occurrence
    NOW^%DTC FIELD+14
    $$LGR^%ZOSV DIR2+9
    $$EZBLD^DIALOG DIR2+15, DIR2+16, FIELD+11, FIELD+13, FIELD+15, NN+3, NN+4, S0+1, A, A+2
    , WITH, WITH+2
    BLD^DIALOG DIR+5
    $$LABEL^DIALOGZ FIELD+4
    $$GETPROP^DIETLIBF FIELD+6
    $$UP^DILIBF A+2
    DA^DIRQ FIELD+3
    $$DATE^DIUTL NN+6

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: A+0
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X>50
    • Line Location: A+0
    Function Call: WRITE
    • Prompt: $$EZBLD^DIALOG(8047)
    • Line Location: A+0
    Function Call: WRITE
    • Prompt: $C(7)," ??"
    • Line Location: A+5
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: WITH+0
    Function Call: WRITE
    • Prompt: $$EZBLD^DIALOG(8048)
    • Line Location: WITH+0
    Function Call: WRITE
    • Prompt: $C(7)," ??"
    • Line Location: WITH+0
    Function Call: WRITE
    • Prompt: $C(7),$S($L(Y)-L'>DIMAX:$$EZBLD^DIALOG(349,($L(Y)-L+$L(X)-DIMAX)),X'=U:$$EZBLD^DIALOG(350),1:" ??")
    • Line Location: WITH+2
    Function Call: WRITE
    • Prompt: $C(7)," ??"
    • Line Location: WITH+3
    Function Call: WRITE
    • Prompt: !?3
    • Line Location: B+0
    Function Call: WRITE
    • Prompt: X
    • Line Location: B+0
    Routine Call
    • DIALOG
    • Line Location:
      • DIR+5
    Routine Call
    • DIALOG
    • Line Location:
      • DIR2+15
      • DIR2+16
      • FIELD+11
      • FIELD+13
      • FIELD+15
      • NN+3
      • NN+4
      • S0+1
      • A
      • A+2
      • WITH
      • WITH+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( FIELD+1, FIELD+15
    ^DD("STRING_LIMIT" WITH+1
    ^DI( FIELD+6, DIR+3
    ^DIC - [#1] FIELD+15

    Label References

    Name Line Occurrences
    A A+2, A+3, A+4, A+5
    B A+1
    DIR DIR2+10
    EO FIELD, FIELD+7, FIELD+15
    H A+2, A+3, A+4
    NN FIELD
    Q A+1
    S S0+1
    S0 FIELD+6, NN
    WITH WITH+2, WITH+3

    Naked Globals

    Name Field # of Occurrence
    ^( DIR+3
    ^("GL" FIELD+15
    ^(0 FIELD+2, FIELD+15, RW+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DIR2+7!, FIELD+14!, RW+1~, A+2, A+3, A+4, WITH*, WITH+1*, WITH+2
    %A DIR2+13*, FIELD, FIELD+1!, FIELD+2!, FIELD+4*, FIELD+6, NN, NN+2, S0+1, S0+2
    >> %A0 DIR2+16*
    %B DIR2+13*, FIELD+2*, FIELD+6, FIELD+8, FIELD+11*, FIELD+14, NN, S0~, S0+4, S0+8
    , S0+9
    >> %B1 FIELD*, FIELD+1, FIELD+4, FIELD+6, FIELD+8*, FIELD+14*, FIELD+15*, NN+6
    >> %B2 FIELD*, FIELD+1, FIELD+4, FIELD+6, FIELD+8*, FIELD+9*, FIELD+10*, FIELD+14*, NN+6
    >> %B3 FIELD+2*, FIELD+4, FIELD+8*, FIELD+12, FIELD+13, NN+3
    >> %D1 FIELD+14*
    >> %D2 FIELD+14*
    >> %DT FIELD+12*
    %H FIELD+14!
    %I FIELD+14!, S0+4*, S0+5, S0+8*, S0+9
    >> %N DIR2+13*
    >> %P FIELD+4*, FIELD+15*, NN+1, NN+2*, NN+3*, NN+4*, NN+6*, NN+7*, S0+1*, S0+3*
    , S0+7*, S0+11*, S0+12*
    >> %T DIR2+13*, DIR2+15, FIELD+5*, FIELD+7, FIELD+9, FIELD+10, FIELD+11, FIELD+12, FIELD+13, FIELD+14
    , FIELD+15, NN, NN+3, NN+4, NN+5, NN+6, EO*
    >> %W0 DIR2+15*, FIELD+13*
    >> D A+3*, A+4*
    >> DA FIELD+3
    >> DG RW+1*, B
    >> DH A+4*
    DIALA DIR~, DIR+2, DIR+4, DIR+5
    DIALN DIR+1~, DIR+2*, DIR+3, DIR+5
    DIALP DIR+1~, DIR+4*, DIR+5
    DIMAX H~, WITH+1*, WITH+2
    DINAKED DIR2+9~*, DIR2+11*, RW+1~*, B+1*
    >> DIR( DIR+5!
    >> DIR("?" DIR2+14!, DIR2+15, FIELD+13
    >> DIR("A" DIR2+14!, FIELD+4, FIELD+15, NN+2, NN+3, NN+4, S0+1
    >> DIR("B" FIELD+3
    >> DIR("C" S0+4, S0+5
    >> DIR("DIALOG" DIR+2, DIR+4
    >> DIR("S" S0+6, S0+10
    >> DIR(0 DIR2+13
    >> DIRWP A+1
    DT FIELD+14*
    DTIME RW+1*, A, WITH
    DTOUT A!*, A+2, A+3, A+4, WITH*, B
    I FIELD+6~*
    L RW+1~, A+2*, A+3*, A+4*, WITH+1, WITH+2
    U DIR2+7*, DIR2+13, FIELD+2, FIELD+4, FIELD+6, FIELD+15, A+1, WITH+2
    >> X FIELD+14, A*, A+1, A+2, A+3, A+4*, WITH*, WITH+1, WITH+2, WITH+3
    , B*
    Y DIR2+7!, S0+5~*, S0+7, S0+9~*, S0+11, EO*, RW+1, A+1, A+2*, A+3*
    , A+4*, WITH+1, WITH+2, B

    Marked Items

    Name Field # of Occurrence
    $T(@%T NN+3
    $T(@(3) DIR2+15
    $T(S S0+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All