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

Source Information

Source file <DICD.m>

Call Graph

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

Package Total Caller Graph
Registration 48 DGADDLST  DGDEP  DGDEPE  DGENL  DGENLCD  DGENLEH  DGENLUP  DGMTHL  
DGOTHFS2  DGOTHFSM  DGOTHRP1  DGOTHRP2  DGOTHRP3  DGOTHRP5  DGOTHRP6  DGPFCNV  
DGPFLF1  DGPFLFD  DGPFLMA  DGPFLMAD  DGPFLMD  DGPFLMQ  DGPFLMQD  DGPFLMT1  
DGPFLMT3  DGPFRAB1  DGPFRAL1  DGPFRFA1  DGPFRFR1  DGPFRPA1  DGPFRPI1  DGPOTEN  
DGPPDRPT  DGPPRRPT  DGPREBJ1  DGPREP3  DGPREP4  DGPREP5  DGPREPST  DGPTBE1  
DGR111  DGR113  DGR1131  DGR114  DGRP1152A  DGRP11B  DGRP61  DGRP62  
Scheduling 26 SCDXRT03  SCDXSUP1  SCENI0  SCENI01  SCMCHLR2  SCMCMU1  SCMCRT0  SCRPI02  
SCRPW26  SCRPW62  SCRPW72  SDAMCCKL  SDAMEP  SDAMOC  SDAMODO  SDAMOS  
SDB1  SDC2  SDCNP0  SDECSTP  SDMHAD  SDMHAP  SDOQMP  SDPARM  
SDPPALL  SDST  
IFCAP 21 PRCEADJ1  PRCFAC01  PRCFATM  PRCFFM2M  PRCFFMO1  PRCFFMOM  PRCFFU  PRCFUOM  
PRCHAM  PRCHAM2  PRCHAMU  PRCHCS  PRCHCS3  PRCHE2  PRCHEA  PRCHG  
PRCHMA0  PRCHMA1  PRCHNPO3  PRCHREC2  PRCODJM  
VA FileMan 15 DIB  DICE  DICE0  DIFROM0  DIFROMH1  DIKCUTL  DIKZ  DIOS  
DIPKINI1  DIT0  DIT1  DITP  DIU  DIU1  DIU3  
Fee Basis 11 FBAACO0  FBAADD  FBAAPIP  FBAAPP  FBAARD1  FBAARR1  FBAASCB  FBAAV0  
FBCH780  FBPRICE1  FBUTL6  
Lab Service 11 LRARC1  LRARCAM5  LRARCR1  LRCAPA12  LRCAPACC  LRCAPAM5  LRCAPR1  LRJSAU60  
LRSRVR2  LRSRVR8  LRSRVR9  
Prosthetics 10 RMPR4C1  RMPR4LOP  RMPR4OPN  RMPRBIL  RMPRLOP  RMPROPN  RMPROPN1  RMPRRET1  
RMPRSE1  RMPRSEA  
Health Level Seven 9 HLEMSA  HLEMSE  HLEMSH  HLEMSL  HLEMST  HLOUSR  HLOUSR2  HLOUSR3  
HLOUSR6  
Enrollment Application System 7 EAS114PT  EASECDEP  EASECDPE  EASEZL1  EASEZU3  EASMTRPT  EASXDRPT  
Consult Request Tracking 6 GMRCCA  GMRCONS1  GMRCONS3  GMRCSTL7  GMRCSTLM  GMRCSTU  
Nursing Service 5 NURACEW0  NURCCP1  NURCCP3  NURCPPS1  NURCPPS3  
Kernel 4 XPDE  XPDER  XPDINIT1  XPDR  
Occurrence Screen 4 QAOEDT2  QAOSCNVA  QAOSENTR  QAOSEWS0  
Oncology 4 ONCODSP  ONCOFDP  ONCOSCT  ONCOSSA  
Order Entry Results Reporting 4 OCXLOG1  OCXOSCR1  OCXOSCR2  ORY306  
PCE Patient Care Encounter 4 PXAPIDEL  PXBGPOV2  PXBPSTP1  PXQMAIN2  
Accounts Receivable 3 PRCAP276  RCDPEWL7  RCHRFS  
Automated Information Collection System 3 IBDEINI1  IBDFFT  IBDFLST  
Automated Lab Instruments 3 LA7UTILA  LA7VLCM2  LA7VLCM7  
Engineering 3 ENARY12  ENARY22  ENARY32  
Outpatient Pharmacy 3 PSOCOSTP  PSOFIXIB  PSOFIXVR  
PAID 3 PRSDSRS  PRSDV450  PRSDV459  
Quasar 3 ACKQDWLU  ACKQNQ  ACKQWL  
Surgery 3 SROACPM  SROAPM  SROES  
Barcode Medication Administration 2 ALPBOP  PSBMMRB  
Beneficiary Travel 2 DGBTDIST  DGBTOA5  
Foundations 2 XOBUM  XOBUM1  
Incident Reporting 2 QANCNVIN  QANQTOT  
Incomplete Records Tracking 2 DGJPAR1  DGJTEE  
Integrated Billing 2 IBCINPT  IBCIPAY  
Problem List 2 GMPLRPTR  GMPLRPTS  
Automated Medical Information Exchange 1 DVBAUTL2  
Clinical Information Resource Network 1 RGEX01  
E Claims Management Engine 1 BPSOSU8  
Enterprise Health Management Platform 1 HMPEQLM  
Event Capture 1 ECMLMD  
Income Verification Match 1 IVMLERR1  
Inpatient Medications 1 PSIVAOR  
MailMan 1 XMA3  
Radiology Nuclear Medicine 1 RAMAORPT  
Toolkit 1 XUCSXGR  

Entry Points

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

    External References

    Name Field # of Occurrence
    XA^DICATTA DDD
    ^DICE DICD+7, DICD+8
    EDT^DICE DICD+9
    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
    • Variable: Q
    • Timeout: '$D(DICD)
    • 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
    • Formatting: !
    • Prompt: "WHICH NUMBER: "
    • Variable: X
    • Timeout: DTIME
    • 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+7
    DD ASK+4, ASK+6, KOLD+2
    DDD ASK+3, ASK+4
    DEL DICD+10
    E L+1
    L CHIX+4, M
    M CHIX+5, R
    N L+1, E+1
    Q DICD+7, DICD+8, DICD+9, DICD+10
    R DEL, R
    RD DICD+8
    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+7*, 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+7!, 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+8, KOLD+1!
    >> DIU DD+5
    >> DL DICD+7*, ASK+3, DDD+1, DDD+2, DD+2, DD+3
    >> DMAX D*
    DQ DICD+7, 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+7, DICD+8, DICD+9, 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