Routine: DIC1

Information

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

Source Information

Source file <DIC1.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA Fileman	12	LIST^DDSU $$EZBLD^DIALOG (F,IX)^DIC DSPH^DIC0 (GETPRMT,PROMPT)^DIC11 ($$EXT,C,GOT,WO)^DIC2 (ADDKEY,S)^DIC3 PTRID^DIC5 Y^DICN DSPHLP^DICQ CHK^DIE $$FMTE^DILIBF

Caller Graph

Caller Graph Total: 176

Package	Total	Caller Graph
Lab Service	36	LRORD2 ^LAB(69.9 ACCESSION NUMBER BACT RPT REMARK BACTERIOLOGY SMEAR/PREP COMMENT FUNGUS/YEAST GRAM STAIN LRBLDC LRBLDED LRBLDLG LRBLDPH LRBLDR LRBLDRR LRBLDT LRBLDUC LRBLDX LRBLS LRMISR MICROBIOLOGY MYCOBACTERIUM ORGANISM PRELIMINARY BACT COMMENT SPECIMEN # ^LAB(61.2 MYCOLOGY RPT REMARK MYCOLOGY SMEAR/PREP PARASITE RPT REMARK PARASITOLOGY SMEAR/PREP PRELIMINARY MYCOLOGY COMMENT PRELIMINARY PARASITE COMMENT PRELIMINARY TB COMMENT PRELIMINARY VIROLOGY COMMENT STAGE TB RPT REMARK VIROLOGY RPT REMARK
VA Fileman	18	DIC DIC0 DIC2 DIC3 DIC5 DICM DICM0 DICM1 DICM3 DICN DICN0 DICQ DIE1 DIE17 DIE3 DIE9 DIED DIEQ
Patient Care Component Table Maintiance	14	APCM11E APCM11ES APCM11ET APCM13E APCM13ES APCM13ET APCM14E APCM14ET APCM24E APCM24ET APCM25E APCM25ET APCM2AE APCM2AET
Patient Care Component Reports	12	APCLADX0 APCLAL3 APCLAP3 APCLAUD0 APCLDE3 APCLDIC APCLDV3 APCLFPC APCLLTD APCLVL0 APCLYV2 APCLYV6
MailMan	8	XMCXU XMHIU XMKPRD XMR1 XMVGRP XMVSURR XMXADDR1 XMXADDRD
Inpatient Medications	7	PSGFILD0 PSGFILD3 PSGOE7 PSGOE8 PSGOE9 PSJPRE42 PSJUTL
Order Entry Results Reporting	7	ORCMEDT1 ORCMEDT3 ORCMENU1 ORDV05E ORLP01 ORWGAPIX ORX1
Consult Request Tracking	6	GMRCAR GMRCASV GMRCONS1 GMRCQC GMRCQCST GMRCYP57
Mental Health Social Services	5	AMHRAS3 AMHRDE3 AMHRDV3 AMHRSB1 AMHRSR3
Radiology Nuclear Medicine	5	RAPSAPI2 RARTE1 RARTE4 RARTST1 RASELCT
Registration	4	DGENA5 DPTLK DPTLK2 VAFCRAUD
Adverse Reaction Tracking	3	CONCOMITANT DRUGS GMRAPER0 SUSPECTED AGENT
Automated Information Collection System	3	IBDF16 IBDF9A IBDF9B
Diabetes Registry	3	BDMDIC BDMFDIC BDMLLTD
Health Level Seven	3	HLCSHDR3 HLUCM050 HLUCM090
Outpatient Pharmacy	3	PSODRG PSOORED6 PSOORNW2
Pharmacy Data Management	3	PSSDI PSSFIL PSSPOIMO
Scheduling	3	SCMCQK1 SCMCQK2 SDRRSLCT
Automated Lab Instruments	2	LA7SMPXL LA7SMU
Barcode Medication Administration	2	PSBOBL PSBOBZ
IHS Electronic Health Record	2	BEHOCCD BEHORXF3
IHS ICD CPT Lookup and Grouper	2	AICDKWI0 AICDKWI9
Kernel	2	XPDIL1 XUINTSK3
Auto Replenishment Ward Stock	1	PSGWPST1
Case Management System	1	ACMLPAT
Clinical Reminders	1	PXRMDATA
Commitment Register	1	ACRFDIC
Contracts and Grants	1	ACGSDIC
Dietetics	1	FHADR1
Drug Accountability	1	PSADA
General Medical Record - IO	1	GMRYUT12
Health Summary	1	GMTSLRME
IHS Changes To Pharmacy	1	APSPUTIL
IHS Dental System	1	ADEGRL5
IHS Patient	1	AUPNLKI
IHS Patient Registration	1	AGTMPMRG
IHS Personal Health Record	1	BPHRCHK
Lexicon Utility	1	LEXDM4
National Drug File	1	PSNACT
Nursing Acuity	1	ANSDIC
Nursing Service	1	NURCYED0
Pharmacy Barcode Scan	1	BPBSUPD
Referred Care Information System	1	BMCRR15
Text Integration Utility	1	TIULA2
Toolkit	1	XTLKDICL
Utility Tables	1	AUTNKWII

Entry Points

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

External References

Name	Field # of Occurrence
LIST^DDSU	Y+14
$$EZBLD^DIALOG	OK+6
F^DIC	RENUM+5
IX^DIC	MIX+3
DSPH^DIC0	Y+2
GETPRMT^DIC11	DIC1+5
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
$$FMTE^DILIBF	DT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: DST Line Location: DT+1
Function Call: WRITE	Prompt: !,"Press <RETURN> to see more, '^' to exit this list,"_$S(DIC(0)["T":" '^^' to exit all lists,",1:"")_" OR" Line Location: Y+16
Function Call: READ	Prompt: ": " Timeout: $S($D(DTIME):DTIME,1:300) Variable: DIY 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: OK+6
Routine Call	DIE Line Location: B+15
Routine Call	DIC Line Location: RENUM+5
Routine Call	DIC Line Location: MIX+3

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

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

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, DT, E+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+3~, 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+4, DIC1+5, B+2, B+6, GETFA~, DO+1, P+1, RENUM+1, RENUM+2, Y+32 , GOT+2, GOT+10
DIC("B"	B, B+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+5, 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+3~, DIC1+5~
>> DIROUT	Y+20, Y+21, OK+7, OK+8, BAD+1*
DISUB	DIC1+3~, 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+3~, 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+4, DIC1+5, GETFA~, DO+1, DO+2, DO2*, P+1, RENUM+1
DO("SCR"	DO2+1*
DO(2	DO+1, DO2*, DO2+1, DO2+2, P+1, W, W+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+3!, Y+17*, Y+18, Y+26, OK+7, OK+8, BAD+2
DUOUT	DIC1+3!, 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*
TYPE	B+9~*, B+10, B+11, B+12, B+14
U	B+6, DO+2, DO2, Y+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*

Customize PDF page

Package: VA Fileman

Routine: DIC1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 176

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: