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

Package: VA FileMan

Routine: DIC1


Information

DIC1 ;SFISC/GFT/TKW-READ X, SHOW CHOICES ;29DEC2013

Source Information

Source file <DIC1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 13 LIST^DDSU  $$EZBLD^DIALOG  $$FILENAME^DIALOGZ  (F,IX)^DIC  DSPH^DIC0  (GETPRMT,PROMPT)^DIC11  ($$EXT,C,GOT,WO)^DIC2  (ADDKEY,S)^DIC3  
PTRID^DIC5  Y^DICN  DSPHLP^DICQ  CHK^DIE  $$DATE^DIUTL  

Caller Graph

Caller Graph Total: 206

Package Total Caller Graph
Lab Service 36 ACCESSION NUMBER  BACT RPT REMARK  BACTERIOLOGY SMEAR/PREP  COMMENT  FUNGUS/YEAST  GRAM STAIN  LRBLDC  LRBLDED  
LRBLDLG  LRBLDPH  LRBLDR  LRBLDRR  LRBLDT  LRBLDUC  LRBLDX  LRBLS  
LRMISR  LRORD2  ^LAB(61.2  MICROBIOLOGY  MYCOBACTERIUM  MYCOLOGY RPT REMARK  MYCOLOGY SMEAR/PREP  ORGANISM  
PARASITE RPT REMARK  PARASITOLOGY SMEAR/PREP  PRELIMINARY BACT COMMENT  PRELIMINARY MYCOLOGY COMMENT  PRELIMINARY PARASITE COMMENT  PRELIMINARY TB COMMENT  PRELIMINARY VIROLOGY COMMENT  SPECIMEN #  
STAGE  TB RPT REMARK  VIROLOGY RPT REMARK  ^LAB(69.9  
VA FileMan 18 DIC  DIC0  DIC2  DIC3  DIC5  DICM  DICM0  DICM1  
DICM3  DICN  DICN0  DICQ  DIE1  DIE17  DIE3  DIE9  
DIED  DIEQ  
Integrated Billing 13 CONDITION CODE  IBCEPA  IBCEPTC  IBCEPTR  IBXS42  IBXS43  IBXS44  IBXS52  
IBXS53  IBXS54  IBY687PO  OCCURRENCE CODE  VALUE CODE  
IFCAP 10 PRC0B  PRCBSUT  PRCHE  PRCHNPO5  PRCHNPO8  PRCHQ2  PRCHUSER  PRCSDIC  
PRCSUT  PRCSUT1  
Incident Reporting 9 QANAUX1  QANCDNT  QANEDIT  QANPSDO  QANQUCK  QANUTL1  QANUTL4  QANUTL6  
QANVAL  
Medicine 9 DIAGNOSIS  INDICATION  LEFT VENTRICULAR WALL MOTION  ^MCAR(691.8  ARRHYTHMIA DX  CONSULT DX  FINAL DIAGNOSIS  LOCATION EVALUATED  
PROVISIONAL DX  
Prosthetics 9 RMPR5NAE  RMPR5NDL  RMPR5NEE  RMPR5NOR  RMPR5NRE  RMPR5NTU  RMPRED6  RMPRPIYI  
RMPRSTI  
Inpatient Medications 8 PSGFILD0  PSGFILD3  PSGOE7  PSGOE8  PSGOE9  PSGS0  PSJPAD50  PSJUTL  
MailMan 8 XMCXU  XMHIU  XMKPRD  XMR1  XMVGRP  XMVSURR  XMXADDR1  XMXADDRD  
Order Entry Results Reporting 8 ORCMEDT1  ORCMEDT3  ORCMENU1  ORDV05E  ORLP01  ORWGAPIX  ORX1  ORY311  
Consult Request Tracking 6 GMRCAR  GMRCASV  GMRCONS1  GMRCQC  GMRCQCST  GMRCYP57  
Mental Health 6 YSCLPOST  YSCLSERV  YSCLSRV2  ^YS(615.2  ^YSG("INP"  ^YSG("SUB"  
Outpatient Pharmacy 6 PSODDPR5  PSODRG  PSOORED4  PSOORED5  PSOORED6  PSOORNW2  
Radiology Nuclear Medicine 6 RADRPT1  RAPSAPI2  RARTE1  RARTE4  RARTST1  RASELCT  
Automated Lab Instruments 4 LA7SMPXL  LA7SMU  LA7VLCM  LA7VLCM5  
Pharmacy Data Management 4 PSSDI  PSSDIUTL  PSSFIL  PSSPOIMO  
Registration 4 DGENA5  DPTLK  DPTLK2  VAFCRAUD  
Adverse Reaction Tracking 3 CONCOMITANT DRUGS  GMRAPER0  SUSPECTED AGENT  
Automated Information Collection System 3 IBDF16  IBDF9A  IBDF9B  
Clinical Information Resource Network 3 RGEX01  RGPVMPI  RGRPDAT  
Health Level Seven 3 HLCSHDR3  HLUCM050  HLUCM090  
Scheduling 3 SCMCQK1  SCMCQK2  SDRRSLCT  
Accounts Receivable 2 PRCAFDCT  PRCAPRO  
Barcode Medication Administration 2 PSBOBL  PSBOBZ  
Imaging 2 MAGDCCSD  MAGDLB9  
PAID 2 PRSNUT03  PRSU1B  
Auto Replenishment Ward Stock 1 PSGWPST1  
Automated Medical Information Exchange 1 DVBCADE1  
Clinical Monitoring System 1 QAMUTL0  
Clinical Reminders 1 PXRMDATA  
Dietetics 1 FHADR1  
Drug Accountability 1 PSADA  
Enrollment Application System 1 EASEZPVU  
General Medical Record - IO 1 GMRYUT12  
Health Summary 1 GMTSLRME  
Kernel 1 XPDIL1  
Lexicon Utility 1 LEXDM4  
National Drug File 1 PSNACT  
Nursing Service 1 NURCYED0  
Quality Assurance Integration 1 QAQSELCT  
Quasar 1 ACKQCLED  
Surgery 1 ^SRO(131.06  
Text Integration Utility 1 TIULA2  
Toolkit 1 XTLKDICL  
VBECS 1 VBECDCM  

Entry Points

Name Comments DBIA/ICR reference
B
PROMPT ; Prompt user for lookup values
GETFA(DIC,DO) ; Get file attributes
; DIC is open global reference, output same as documented in DO^DIC1.
DO ; GET FILE ATTR
  • ICR #10007
    • Status: Active
    • Usage: Supported
    EGP
    DO2
    P ; Add code to DIC("W") to display identifiers on pointed-to files
    W
    WOV
    RENUM ;
    DT
    Y ; Display a list of entries
    E
    BLDDSP(DS,DD,DINDXFL,DIYX,DIY,DICRS) ; Build display of index values
    GOT ; Set data for single entry selected by user.
    OK ;
    BAD
    MIX ;
  • ICR #10007
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    LIST^DDSU Y+14
    $$EZBLD^DIALOG Y+16, Y+17, OK+6
    $$FILENAME^DIALOGZ EGP
    F^DIC RENUM+5
    IX^DIC MIX+3
    DSPH^DIC0 Y+2
    GETPRMT^DIC11 DIC1+9
    PROMPT^DIC11 PROMPT+1
    $$EXT^DIC2 B+13, E+10
    C^DIC2 GOT+11
    GOT^DIC2 RENUM+3
    WO^DIC2 E+15
    ADDKEY^DIC3 RENUM+3
    S^DIC3 RENUM+3
    PTRID^DIC5 P+1
    Y^DICN OK+1
    DSPHLP^DICQ Y+32
    CHK^DIE B+15
    $$DATE^DIUTL DT

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: DST
    • Line Location: DT+1
    Function Call: WRITE
    • Prompt: !,$$EZBLD^DIALOG(8087,$S(DIC(0)["T":"'^^' to exit all lists,",1:""))
    • Line Location: Y+16
    Function Call: READ
    • Timeout: $S($D(DTIME):DTIME,1:300)
    • Line Location: Y+17
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: Y+18
    Function Call: WRITE
    • Prompt: !?4,$$EZBLD^DIALOG(8040),!
    • Line Location: OK+6
    Routine Call
    • DIALOG
    • Line Location:
      • Y+16
      • Y+17
      • OK+6
    Routine Call
    • DIC
    • Line Location:
      • RENUM+5
    Routine Call
    • DIC
    • Line Location:
      • MIX+3
    Routine Call
    • DIE
    • Line Location:
      • B+15

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( DO2DO2+1, DO2+2, WW+1, RENUM+2

    Label References

    Name Line Occurrences
    $$BLDDSP E+2
    DO GETFA+2
    DT E+7
    E Y+7
    GETFA DIC1+8, RENUM+1
    GOT Y+23
    OK OK+6
    WOV P+1, W+2

    Naked Globals

    Name Field # of Occurrence
    ^( B+6
    ^("SCR" DO2+1
    ^(0 B+6, DO+1, DO+2*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % P+2~*, W*, W+1, W+2*, DTE+3*, E+4*, E+5, E+6, E+7
    E+10*, E+12, E+14*, OK+1*, OK+2, OK+6, OK+7, OK+8, BAD+2
    >> %Y BAD+1
    B B+1~*, B+3, B+4*, B+6*, B+7, B+8, B+10, B+11, B+12, B+13
    B+14*, B+15
    B( B+4
    B(1 B+1*
    B1 B+7~*, B+15*, B+17
    D MIX+1, MIX+2~*
    DD DIC1+7~, Y+1~*, Y+2, Y+3*, Y+4, Y+5, Y+6, Y+8, Y+12, Y+16
    Y+17, Y+23, E+2, E+4, E+14, E+15, BLDDSP~, BLDDSP+2, BLDDSP+3, BLDDSP+6
    DDC Y+1~, Y+14*!
    DDD Y+1~, Y+14*!
    DDH Y+1~, Y+4*
    >> DDS DT+1, Y+5, Y+14, Y+15, GOT+3, GOT+6, OK+1
    >> DF RENUM+2
    DIC DIC1+8, DIC1+9, B+2, B+6, GETFA~, DO+1, P+1, RENUM+1, RENUM+2, Y+32
    GOT+2, GOT+10
    DIC("B" BB+1
    DIC("P" DO+2
    DIC("W" DO2+2, DO2+3*, W+2, W+3*, W+4*, WOV*
    DIC(0 Y+2, Y+5, Y+8, Y+11, Y+16, Y+20, Y+21, Y+31, E+1, E+13*
    >> DICR Y+27, OK+3
    >> DICR( E+3, OK+3*
    >> DICR(1 Y+31
    DICRS Y+31, E+5, E+8, BLDDSP~, BLDDSP+5
    DID MIX+1~*, MIX+2
    DID(1 MIX+1*
    >> DIDA E+7
    DIERR B+16!
    DIERROR B+15, B+16!
    >> DIFILEI Y+32
    >> DIFINDR GOT+5
    DIGBL B+2~*, B+5, B+17*
    >> DILONGX E+3
    >> DINDEX DIC1+9, B+2, Y+32
    >> DINDEX( B+7, B+9, B+13, B+15
    >> DINDEX("#" B+3, Y+27
    >> DINDEX("IXTYPE" E+3, E+8
    >> DINDEX(1 E+5, E+6, E+9
    DINDXFL BLDDSP~, BLDDSP+4
    DINONULL B+2~*, B+4*, B+5, B+17
    DIOUT Y+1~*, Y+3, Y+11*, Y+13*
    DIPRMT DIC1+7~, DIC1+9~
    >> DIROUT Y+20*, Y+21*, OK+7*, OK+8*, BAD+1*
    DISUB DIC1+7~, B+3*, B+4, B+7, B+8, B+9, B+13, B+14, B+15
    >> DITRANX E+5
    >> DIVPSEL( GOT+4*
    >> DIVPSEL("A" GOT+4
    >> DIX E+14*, OK+2
    DIY DIC1+7~, Y+1*, Y+11*, Y+17*, Y+19, Y+20, Y+21, Y+23, Y+24*, Y+25*
    Y+26, Y+27, Y+30, Y+33!, E+15*, BLDDSP~, GOT+2, GOT+3, GOT+7, GOT+8
    GOT+10
    DIY( B+3*, B+8, B+13*, B+14, E+4, E+15, GOT+2*, GOT+3, GOT+7, GOT+10*
    DIY(1 BLDDSP+4
    DIYX Y+4*, Y+33!, BLDDSP~, GOT+10!
    DIYX( E+4, E+15, GOT+3, GOT+7, GOT+10
    DIYX(1 BLDDSP+4
    DO DIC1+8, DIC1+9, GETFA~, DO+1*, DO+2*, EGP*, DO2*, P+1, RENUM+1
    DO("SCR" DO2+1*
    DO(2 DO+1, DO2*, DO2+1, DO2+2, P+1, WW+1, RENUM+2
    DS Y+8, Y+9, Y+12, Y+16, Y+32~, E+2, BLDDSP~, OK+1, OK+4!*
    DS( Y+3, Y+6, Y+9, Y+23, E+2, E+4, E+14, BLDDSP+2, BLDDSP+3, BLDDSP+6
    GOT+3, GOT+7, GOT+8
    DS("DD" Y+1, Y+4*, OK+4*
    DS(0 Y+11*, Y+17, Y+23*, Y+29*, GOT+6*, GOT+7*, GOT+8*, OK+4*, BAD+2*
    DS(1 BLDDSP+4
    >> DST DT*, DT+1*, E*, E+2*, E+6*, E+12*, GOT+3*, GOT+6, OK+1*
    DTIME Y+17
    DTOUT DIC1+7!, Y+17*, Y+18, Y+26, OK+7, OK+8, BAD+2
    DUOUT DIC1+7!, Y+19*, Y+26, OK+8*, BAD+1*, BAD+2
    DZ RENUM+3~
    F1 E+9~*, E+10
    F2 E+9~*, E+10
    I Y+26~*, Y+27*, Y+28, Y+29, BLDDSP+1~, BLDDSP+2*, BLDDSP+3, BLDDSP+4, BLDDSP+5, BLDDSP+6
    GOT+1~
    J GOT+1~
    K GOT+1~, GOT+4*
    R Y+17~
    R(1 Y+17*
    R(2 Y+17*
    TYPE B+9~*, B+10, B+11, B+12, B+14
    U B+6, DO+2, EGPDO2Y+19, E+3, E+4, BLDDSP+4, BLDDSP+6, GOT+2
    GOT+3, GOT+10, MIX+2
    X B+5*, B+6, W+1~*, W+2, W+4, RENUM+2, RENUM+3, Y+18*, Y+19*, Y+32~
    E+3, E+6~*, BLDDSP+1~*, BLDDSP+3, BLDDSP+4*, BLDDSP+6*, BLDDSP+7, GOT+3, GOT+7, OK+2*
    Y RENUM+2, RENUM+3*, RENUM+4*, Y+6~*, Y+9*, Y+23*, Y+29*, Y+32~, GOT+4, OK+2*
    OK+3, BAD*
    Y( Y+9*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All