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

Package: VA Fileman

Routine: DICD


Information

DICD ;SFISC/XAK-DISP,SELECT,DELETE,EDIT XREF ;11:26 AM 18 Aug 2000 [ 04/02/2003 8:25 AM ]

Source Information

Source file <DICD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 9 XA^DICATTA  (,EDT,Q)^DICE  YN^DICN  WR^DIDH  ^DIK  CNT^DIK1  EN^DIKZ  ^DIR  
DIEZ^DIU0  

Caller Graph

Caller Graph Total: 261

Package Total Caller Graph
Registration 30 DG53244V  DGDEP  DGDEPE  DGENL  DGENLCD  DGENLEH  DGENLUP  DGMTHL  
DGPFLF1  DGPFLFD  DGPFLMA  DGPFLMAD  DGPFLMD  DGPFLMQ  DGPFLMQD  DGPFLMT1  
DGPFLMT3  DGPFRAB1  DGPFRAL1  DGPFRFA1  DGPFRFR1  DGPFRPA1  DGPFRPI1  DGPREBJ1  
DGPREP3  DGPREP4  DGPREP5  DGPTBE1  DGRPTL  DGV53PTB  
Scheduling 24 SCDXRT03  SCDXSUP1  SCENI0  SCENI01  SCMCHLR2  SCMCMU1  SCMCRT0  SCRPI02  
SCRPW26  SCRPW62  SCRPW72  SD53P227  SDAMEP  SDAMOC  SDAMODO  SDAMOS  
SDB1  SDC2  SDCNP0  SDMHAD  SDOQMP  SDPARM  SDPPALL  SDST  
Contract Health Management Information System 22 ACHS3PP5  ACHS3PPQ  ACHSBRF  ACHSCHF  ACHSCPTA  ACHSCPTD  ACHSEOB8  ACHSHLGQ  
ACHSNEW  ACHSOCSQ  ACHSOCVQ  ACHSODQ  ACHSPAP  ACHSPCC2  ACHSPCC3  ACHSPCC7  
ACHSSTL1  ACHSSTL2  ACHSVAR  ACHSYDRV  ACHSYES  ACHSYFYD  
Third Party Tracking 17 ABPAADR1  ABPAAGEL  ABPAALK1  ABPAAR1E  ABPABRC0  ABPACDF1  ABPACKS0  ABPACLG3  
ABPACLG5  ABPACLG7  ABPAOP4  ABPAPCLG  ABPARPCL  ABPAUPCK  ABPVCK0  ABPVEEC2  
ABPVTX0  
VA Fileman 15 DIB  DICE  DICE0  DIFROM0  DIFROMH1  DIKCUTL  DIKZ  DIOS  
DIPKINI1  DIT0  DIT1  DITP  DIU  DIU1  DIU3  
Commitment Register 9 ACRFDCC  ACRFDEL  ACRFDRCL  ACRFEA2  ACRFRR33  ACRFSHFT  ACRFSS  ACRFSS2  
ACRFTXT1  
Contracts and Grants 9 ACGS281  ACGSNC  ACGSREST  ACGSRT  ACGSTART  ACGSTMPI  ACGSUP  ACGSVGL  
ACGTMPI  
IHS Patient Registration 9 AGACXREF  AGCHLB  AGCVT3  AGCVT6  AGELUP1  AGELUPNM  AGFIX7A  AGKPAT  
AGPATCNT  
Health Level Seven 8 HLEMSA  HLEMSE  HLEMSH  HLEMSL  HLEMST  HLOUSR  HLOUSR2  HLOUSR3  
Lab Service 8 LRARC1  LRARCAM5  LRARCR1  LRCAPA12  LRCAPACC  LRCAPAM5  LRCAPR1  LRSRVR2  
PCC New Encounter Form 8 VEN8INI1  VENKINI1  VENLINI1  VENMINI1  VENPCCMA  VENPCCMB  VENPCCMG  VENPCCML  
PCC Medical Query 7 AMQQAT2  AMQQCMP0  AMQQCMPL  AMQQMGR5  AMQQN  AMQQPOS  AMQQQE  
IHS RPMS CHR System 6 BCH1INI1  BCH2INI1  BCHDL  BCHDLA  BCHDLN  BCHPRDL  
Barcode Medication Administration 5 ALPBOP  PSBIHS1  PSBIHS2  PSBIHS3  PSBIHS4  
Case Management System 5 ACMAPP1  ACMGTP  ACMGTPZ  ACMSRT  ACMTMPI  
Consult Request Tracking 5 GMRCONS1  GMRCONS3  GMRCSTL7  GMRCSTLM  GMRCSTU  
Nursing Service 5 NURACEW0  NURCCP1  NURCCP3  NURCPPS1  NURCPPS3  
Surgery 5 SROACPM  SROAPM  SROES  SROPOST1  SROPOST2  
PCE Patient Care Encounter 4 PXAPIDEL  PXBGPOV2  PXBPSTP1  PXQMAIN2  
Automated Information Collection System 3 IBDEINI1  IBDFFT  IBDFLST  
IHS Changes To Lab 3 BLRLM  BLRLMR  BLRSHDRC  
IHS Generic Interface System 3 INHMSR2  INHR  INHVAX  
IHS VA Support Files 3 AVAP10  AVAP11  AVAPINI1  
Inpatient Medications 3 PSIVAOR  PSJAINI1  PSJVINI1  
Kernel 3 XPDE  XPDER  XPDR  
Local Area Programs 3 AZAXCAD  AZCNFDPT  AZHNINI1  
Order Entry Results Reporting 3 OCXLOG1  OCXOSCR1  OCXOSCR2  
Problem List 3 GMPLINI1  GMPLRPTR  GMPLRPTS  
Beneficiary Travel 2 DGBTDIST  DGBTOA5  
Foundations 2 XOBUM  XOBUM1  
IHS Accounts Receivable 2 BAR277LM  BARLN0  
IHS Changes To Scheduling 2 BSDAMEP  BSDAMEPW  
IHS VA Utilities 2 XBHFMAN  XBLM  
Incomplete Records Tracking 2 DGJPAR1  DGJTEE  
NCR Financial System 2 AFSLDRV  AFSLDRVE  
Third Party Billing 2 ABMDELOO  ABMDRUTL  
Utility Tables 2 AUTINIT1  AUTVDUP  
Alcohol Chemical Dependency 1 ACDFUL1  
Auto Replenishment Ward Stock 1 PSGWINI1  
Automated Lab Instruments 1 LA7UTILA  
Dietetics 1 FHINIT1  
IHS GPRA Information System 1 BGPXBLM  
IHS Support HL7 Interfaces 1 BHLINIT1  
Integrated Billing 1 IBINIT1  
MailMan 1 XMA3  
Outpatient Pharmacy 1 PSOCOSTP  
Patient Care Component Reports 1 APCLPOST  
Pharmacy Point of Sale 1 ABSPOSU8  
Table Maintenance 1 AUMXPORT  
Toolkit 1 XUCSXGR  
Tucson 1 BZSMINI1  
Utilities 1 AUP6INI1  

Entry Points

Name Comments DBIA/ICR reference
Q
CHIX ;
E
D
DD ;
M
L
N
RD ;
KOLD
R
DEL
ASK
WAIT ;
  • ICR #10024
    • Status: Active
    • Usage: Supported
    DDD

    External References

    Name Field # of Occurrence
    XA^DICATTA DDD
    ^DICE DICD+4, DICD+5
    EDT^DICE DICD+6
    Q^DICE Q
    YN^DICN ASK, ASK+5, CHIX+4, CHIX+5
    WR^DIDH L+1
    ^DIK DDD+1
    CNT^DIK1 DD+5
    EN^DIKZ D
    ^DIR KOLD+1, RD+3
    DIEZ^DIU0 DDD+2

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Timeout: '$D(DICD)
    • Variable: Q
    • Line Location: DEL+0
    Function Call: WRITE
    • Prompt: !?5,$C(7),"This cross-reference cannot be deleted.",!
    • Line Location: DEL+1
    Function Call: WRITE
    • Prompt: !,"Are you sure that you want to delete the CROSS-REFERENCE "
    • Line Location: ASK+0
    Function Call: WRITE
    • Prompt: !?7,"Answer YES if you want to delete the Cross-Reference."
    • Line Location: ASK+1
    Function Call: WRITE
    • Prompt: !," ...OK",!
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: "DO YOU WANT THE INDIVIDUAL CROSS-REFERENCE VALUES DELETED"
    • Line Location: ASK+5
    Function Call: WRITE
    • Prompt: "NO ",X
    • Line Location: CHIX+3
    Function Call: WRITE
    • Prompt: !,"WANT TO "_DICD_" IT"
    • Line Location: CHIX+4
    Function Call: WRITE
    • Prompt: !,"WANT TO "_DICD_" ONE OF THEM"
    • Line Location: CHIX+5
    Function Call: READ
    • Prompt: "WHICH NUMBER: "
    • Formatting: !
    • Timeout: DTIME
    • Variable: X
    • Line Location: R+0
    Function Call: WRITE
    • Prompt: !?8,J,?14
    • Line Location: M+0
    Function Call: WRITE
    • Prompt: X
    • Line Location: L+0
    Function Call: WRITE
    • Prompt: " OF "
    • Line Location: L+1
    Function Call: WRITE
    • Prompt: " '",$P(I,U,2),"' INDEX OF "
    • Line Location: L+2
    Function Call: WRITE
    • Prompt: "FILE"
    • Line Location: L+2
    Function Call: WRITE
    • Prompt: " ("_^(%)_")"
    • Line Location: E+0
    Function Call: WRITE
    • Prompt: !!,"Executing old kill logic...",!
    • Line Location: KOLD+2
    Function Call: WRITE
    • Prompt: !,"..."
    • Line Location: WAIT+1
    Function Call: WRITE
    • Prompt: $P("HMMM^EXCUSE ME^SORRY","^",$R(3)+1),", ",$P("THIS MAY TAKE A FEW MOMENTS^LET ME PUT YOU ON 'HOLD' FOR A SECOND^HOLD ON^JUST A MOMENT PLEASE^I'M WORKING AS FAST AS I CAN^LET ME THINK ABOUT THAT A MOMENT","^",$R(6)+1)_"..."
    • Line Location: WAIT+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: RD+1
    Routine Call
    • DIR
    • Line Location:
      • KOLD+1
      • RD+3

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( ASK+2!, ASK+3*, D, CHIX+2, L+1, L+3, E, DD+2, DD+3
    ^DD("ROU" D
    ^UTILITY("DIK" DD+2!*, DD+3*

    Label References

    Name Line Occurrences
    ASK ASK+1
    CHIX DICD+4
    DD ASK+4, ASK+6, KOLD+2
    DDD ASK+3, ASK+4
    DEL DICD+7
    E L+1
    L CHIX+4, M
    M CHIX+5, R
    N L+1, E+1
    Q DICD+4, DICD+5, DICD+6, DICD+7
    R DEL, R
    RD DICD+5
    WAIT DD+5

    Naked Globals

    Name Field # of Occurrence
    ^( ASK+3, CHIX+2, E, DD+2*
    ^("DIK" D
    ^("QUES" ASK+2!
    ^($J DD+2*
    ^(1 DD+3*
    ^(3 CHIX+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ASK*, ASK+1, ASK+5*, ASK+6, CHIX+4*, CHIX+5*, L+1*, E*
    >> %F L+1*
    >> A1(2 KOLD+2
    DA DICD+4*, DDD+1*!, DDD+2*, CHIX+2, E, DD+1~, DD+4!, DD+5*, KOLD+2~
    DA(1 DDD+1*
    DA(2 DDD+1*
    DCNT DD+1~, DD+5*
    DDA DDD*, Q!
    DH CHIX+1!, DD+1~, DD+4!, RD+1~
    DH( DEL, DEL+1, CHIX+2*, R, R+1, M, L, N
    DH(0 CHIX+4
    DH(1 DD+4*
    >> DI ASK+2, CHIX+2, E, DD+2
    DICD DICD+4!, DEL, CHIX+4*, CHIX+5, R+1*, Q!
    >> DICDF CHIX+4*
    DIK DDD+1*!, DD+1~, DD+5*
    DIKJ DD+1~*
    DIR KOLD!, KOLD+1!, RD+3!
    DIR("?" KOLD*, RD+2*
    DIR("A" KOLD*, RD+1*
    DIR(0 KOLD*, RD+1*
    DIROUT KOLD+1!
    DIRUT DICD+5, KOLD+1!
    >> DIU DD+5
    >> DL DICD+4*, ASK+3, DDD+1, DDD+2, DD+2, DD+3
    >> DMAX D*
    DQ DICD+4, DEL*, DEL+1, ASK+3, DDD+1, CHIX+1*, CHIX+2*, CHIX+3*, CHIX+4*, M*
    , L, N, E, DD+3, RD+1~
    DTIME R
    DTOUT KOLD+1!
    DUOUT KOLD+1!
    DV DD+1~, DD+4!
    DV( DD+4*
    >> I ASK+2, ASK+3, ASK+4, R+1*, L*, L+1, L+2, L+3
    >> I( DD+4
    >> I(0 ASK+3
    >> J M*, DD+2*, DD+3
    >> J( ASK+3, DDD+1, DD+2, DD+4
    >> J(0 ASK+3, D, L+2, DD+4
    >> N ASK+3, DDD+1, DD+2, DD+4
    U ASK+3, ASK+4, R, L, L+1, L+2, L+3, DD+2
    >> X ASK+3*, ASK+4, D*, CHIX+1*, CHIX+3, CHIX+4, R*, R+1, L*, L+1
    , DD+2, DD+3, KOLD+2*
    Y DICD+4, DICD+5, DICD+6, ASK+3*, D*, CHIX+2*, CHIX+3, CHIX+4, L+1*, DD+1~
    , DD+2*, DD+4!*, KOLD+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All