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

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  IBXS74  IBXS77  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 88 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  DGPTX52  DGPTX7  DGPTX73  DGPTX74  DGPTX8  DGPTX81  
DGPTXA  DGPTXC  DGPTXC1  DGPTXCA  DGPTXM  DGPTXMS  DGRPTX  DGRPTX27  
DGRPTX37  DGRPX7  DGRPX75  DGRPX76  DGRPX77  DGRPXC  DGRPXCR  DGRPXI  
DGRPXIS  DGRPXIS1  DGRPXR  DGRPXX7  DGRPXX71  DGRPXX72  DGRPXX73  DGRPXX74  
DGRPXX75  DGRPXX76  DGSATX  DGX4  DGX41  DGX43  DGX44  DGX5  
DGX51  DGX54  DGX55  DGX57  DGX58  DGX5F  DGX5F1  DGX5F3  
DGX5FD  DGX5FD1  DGX5FD3  DGX5FD6  DGX5FD8  DGX5FD9  DGX6  DGX61  
DGX63  DGX7  DGX73  DGX74  DGX75  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  
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  
Radiology Nuclear Medicine 18 RACTRG  RACTRG1  RACTRG2  RACTRG3  RACTRG4  RACTRG5  RACTRG6  RACTRG7  
RACTRG8  RACTVR  RACTVR1  RACTVR4  RACTVR5  RACTWR  RACTWR1  RACTWR2  
RACTWR4  RACTWR5  
Scheduling 17 SDAMXLG  SDAMXOE  SDAMXOE1  SDBT  SDBT1  SDBT2  SDBT3  SDBT4  
SDM1T  SDM1T10  SDM1T5  SDXA  SDXA1  SDXA2  SDXACSE  SDXACSE1  
SDXACSE2  
Quasar 10 ACKQTE  ACKQTE1  ACKQTE10  ACKQTE11  ACKQTE2  ACKQTE6  ACKQTE7  ACKQTE8  
ACKQTE9  ACKQTM  
Accounts Receivable 8 PRCATA  PRCATA1  PRCATB  PRCATB1  PRCATE  PRCATE1  PRCATE2  PRCATSE  
Automated Medical Information Exchange 8 DVBAXA  DVBAXS  DVBAXS1  DVBAXS2  DVBAXS3  DVBAXS4  DVBAXS5  DVBAXS6  
Incomplete Records Tracking 8 DGJXA  DGJXA1  DGJXA2  DGJXA3  DGJXE  DGJXE1  DGJXE4  DGJXE5  
VA FileMan 8 DIA  DICATT5  DIED  DIFGA  DIP2  DIR  DIU31  DIWE1  
HINQ 6 DVBHCE  DVBHCE18  DVBHCE19  DVBHCE20  DVBHCE5  DVBHCE6  
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  A1CKC2  A1CKC3  
Medicine 3 MCOPRG  MCOPRG1  MCOPRG2  
Nursing Service 3 NURAPA  NURAPA1  NURAPA2  

Entry Points

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

    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, AA+2
    WITHWITH+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
    • Variable: X
    • Timeout: DTIME
    • 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
    • Variable: X
    • Timeout: DTIME
    • 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:
      • DIR2+15
      • DIR2+16
      • FIELD+11
      • FIELD+13
      • FIELD+15
      • NN+3
      • NN+4
      • S0+1
      • A
      • A+2
      • WITH
      • WITH+2
    Routine Call
    • DIALOG
    • Line Location:
      • DIR+5

    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 FIELDFIELD+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*, FIELDFIELD+1!, FIELD+2!, FIELD+4*, FIELD+6, NNNN+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, NNNN+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*, AWITH
    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