Routine: DICD

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

Package

Total

Call Graph

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

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

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

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

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

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

Customize PDF page

Package: VA Fileman

Routine: DICD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 261

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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