Routine: ICD1857

Package	Total	Call Graph
VA Fileman	6	(,FIND)^DIC (FIELD,FILE)^DID $$IENS^DILF $$GET1^DIQ EN^DIQ1 ^DIR
Kernel	2	$$FMTE^XLFDT ($$PATCH,$$PKG,$$VER,$$VERSION,BMES,MES)^XPDUTL
MailMan	2	^XMD $$NETNAME^XMXUTIL

Entry Points

Name	Comments	DBIA/ICR reference
KILL	; Kill all ^TMP(
BM(X)	; Blank/Text
GOK(X)	; Input Global Ok for Install
ADR(ICD)	; Mailing Address
TRIM(X)	; Trim Spaces
ET(X)	; Error Text
NOTDEF(X)	; Check to see if user is defined
STATUS	; ICD-9/10 Status in files 80/80.1
ED	; Error Display
CONTH	; Continue Help
INSD(X)	; Installed on
IMP	; Import names
MAILQ	; Quit Mail
CONT(X)	; Continue
ENV	; ICD18.057 Environment Check ; Checks
QUIT	; Quit Passed Environment Check
VER(X)	;
ABRT	; Abort Failed Environment Check, KILL the distribution
OK	; Environment is OK
SY(X)	; Check System variables
M(X)	; Blank/Text
UR(X)	; Check User variables
EXIT	; Exit Failed Environment Check
UOK(X)	; UCI Ok for Install
MAIL	; Mail global array in message
INS(X)	;

External References

Name	Field # of Occurrence
^DIC	ADR+1, ADR+2
FIND^DIC	VER+4, VER+7, INSD+4, INSD+7, INSD+16, INSD+18
FIELD^DID	STATUS+4, STATUS+5
FILE^DID	STATUS+13
$$IENS^DILF	VER+6, INSD+6, INSD+14
$$GET1^DIQ	MAIL+3
EN^DIQ1	NOTDEF+1
^DIR	CONT+19
$$FMTE^XLFDT	ENV+37, VER+9, VER+11, INSD+9, INSD+11, INSD+20, STATUS+19
^XMD	MAIL+7
$$NETNAME^XMXUTIL	UOK+1
$$PATCH^XPDUTL	INS+1
$$PKG^XPDUTL	VER+2, INS+2, INSD+2
$$VER^XPDUTL	VER+2, INS+2, INSD+2
$$VERSION^XPDUTL	INS+2
BMES^XPDUTL	BM+1
MES^XPDUTL	M+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,"Checking for ICD Version installations",! Line Location: ENV+16
Function Call: WRITE	Prompt: !,?5,ICDVER," installed ",$P(ICDINS,"^",2) Line Location: ENV+20
Function Call: WRITE	Prompt: !,?5,ICDVER," installed ",$P(ICDINS,"^",2) Line Location: ENV+23
Function Call: WRITE	Prompt: ! Line Location: ENV+26
Function Call: WRITE	Prompt: !,?ICDC1,ICDPAT Line Location: ENV+36
Function Call: WRITE	Prompt: ?ICDC3,"Installed " Line Location: ENV+39
Function Call: WRITE	Prompt: ICDINE Condition for execution: $L($G(ICDINE)) Line Location: ENV+39
Function Call: WRITE	Prompt: ! Line Location: ENV+44
Function Call: WRITE	Prompt: ! Line Location: ENV+45
Function Call: WRITE	Prompt: !!," WARNING WARNING WARNING WARNING WARNING WARNING WARNING",! Line Location: CONT+2
Function Call: WRITE	Prompt: !," * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *" Line Location: CONT+3
Function Call: WRITE	Prompt: !," * *" Line Location: CONT+4
Function Call: WRITE	Prompt: !," * This Install will delete both the ICD-9 Data Dictionary and data in *" Line Location: CONT+5
Function Call: WRITE	Prompt: !," * files #80 and #80.1. It will then install a new Data Dictionary *" Line Location: CONT+6
Function Call: WRITE	Prompt: !," * for files #80 and #80.1. The new Data Dictionary will accommodate *" Line Location: CONT+7
Function Call: WRITE	Prompt: !," * both the ICD-9 and ICD-10 coding systems. The new data will be *" Line Location: CONT+8
Function Call: WRITE	Prompt: !," * installed by the accompanying Lexicon patch LEX2.080. These *" Line Location: CONT+9
Function Call: WRITE	Prompt: !," * changes will affect this namespace and any other namespace that *" Line Location: CONT+10
Function Call: WRITE	Prompt: !," * the ^ICD9 and ^ICD0 globals are mapped to. If your current *" Line Location: CONT+11
Function Call: WRITE	Prompt: !," * namespace is mapped to another namespace, make sure the other *" Line Location: CONT+12
Function Call: WRITE	Prompt: !," * namespace is also scheduled to be updated by this patch before *" Line Location: CONT+13
Function Call: WRITE	Prompt: !," * continuing. *" Line Location: CONT+14
Function Call: WRITE	Prompt: !," * *" Line Location: CONT+15
Function Call: WRITE	Prompt: !," * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *" Line Location: CONT+16
Function Call: WRITE	Prompt: !,?5,"Answering 'Yes' will:",! Line Location: CONTH+1
Function Call: WRITE	Prompt: !,?7,"1) Delete the Data Dictionaries and the data for the following:",! Line Location: CONTH+2
Function Call: WRITE	Prompt: !,?11,"ICD DIAGNOSIS file #80 ^ICD9(" Line Location: CONTH+3
Function Call: WRITE	Prompt: !,?11,"ICD OPERATION/PROCEDURE file #80.1 ^ICD0(",! Line Location: CONTH+4
Function Call: WRITE	Prompt: !,?7,"2) Install the new joint ICD-9/10 Data Dictionaries." Line Location: CONTH+5
Function Call: WRITE	Prompt: !,?7,"3) Update legacy ICD-9 APIs and install new ICD-9/10 APIs." Line Location: CONTH+6
Function Call: WRITE	Prompt: !,?7,"4) Populate files #80 and #80.1 with ICD-9/10 data (LEX2.080)",! Line Location: CONTH+7
Function Call: WRITE	Prompt: !,?7," This affects the current namespace and any " Line Location: CONTH+8
Function Call: WRITE	Prompt: !,?7," namespace that the Data Dictionary and files" Line Location: CONTH+9
Function Call: WRITE	Prompt: !,?7," #80 and file #80.1 are mapped to.",! Line Location: CONTH+10
Function Call: WRITE	Prompt: !,?5,"Answering 'No' will abort the installation of this patch" Line Location: CONTH+11
Routine Call	DIC Line Location: VER+4 VER+7 INSD+4 INSD+7 INSD+16 INSD+18
Routine Call	DIC Line Location: ADR+1 ADR+2
Routine Call	DIR Line Location: CONT+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4.2 - [#4.2]	Classic Fileman Calls
80.012	FIELD^DID
80.066	FIELD^DID
^DIC(9.4 - [#9.4]	FIND^DIC
9.49	FIND^DIC
9.4901	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	UOK+2, STATUS+2
^ICD0(1535	STATUS+27, STATUS+28
^ICD0(1548	STATUS+29, STATUS+30
^ICD0(366	STATUS+27, STATUS+28
^ICD9(11938	STATUS+23, STATUS+24
^ICD9(3066	STATUS+23, STATUS+24, STATUS+25, STATUS+26
^TMP("ICDKID"	MAIL+4, MAIL+5, MAIL+6!, KILL+1!
^TMP("ICDMSG"	MAIL+2!, MAIL+5*, MAIL+6, KILL+1!
^TMP("LEX2.080"	GOK+1

Label References

Name	Line Occurrences
$$ADR	MAIL+3
$$CONT	ENV+45
$$GOK	ENV+13
$$INS	ENV+34
$$INSD	ENV+34
$$NOTDEF	UR+2
$$SY	ENV+11
$$UOK	ENV+44
$$UR	ENV+9
$$VER	ENV+17, ENV+21
ABRT	ENV+14, ENV+17, ENV+44, ENV+45, ENV+46
BM	OK+3, STATUS+3, STATUS+6, STATUS+11, STATUS+23
ED	EXIT+1, ABRT+1
ET	ENV+9, ENV+11, ENV+13, ENV+18, ENV+41, ENV+44, ENV+45
IMP	ENV+6, ENV+25, OK+2, MAIL+2
KILL	MAILQ+1
M	ED+1, ED+2, OK+3, STATUS+6, STATUS+7, STATUS+8, STATUS+9, STATUS+10, STATUS+11, STATUS+21 , STATUS+22, STATUS+32, STATUS+34, STATUS+36, STATUS+38
MAILQ	MAIL+3, MAIL+6
OK	QUIT+1
QUIT	ENV+47
STATUS	ENV+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ENV+2~, NOTDEF+1~*, VER+1~, VER+6!, INSD+1~, INSD+6!, INSD+14!
DA(1	VER+6, INSD+6, INSD+14*
DA(2	INSD+14*
DIC	ENV+2~, NOTDEF+1~, ADR+1~, ADR+2*
DIC(0	ADR+1, ADR+2
DIFROM	ENV+2~, MAIL+1~
DIQ	ENV+2~, NOTDEF+1~*
DIR	ENV+2~, CONT+1~
DIR("?"	CONT+18*
DIR("??"	CONT+18*
DIR("A"	CONT+17*
DIR("PRE"	CONT+18*
DIR(0	CONT+17*
DIROUT	ENV+2~, CONT+1~
DIRUT	ENV+2~, CONT+1~
DR	ENV+2~, NOTDEF+1~*
DTOUT	ENV+2~, ADR+1~, CONT+1~
DUOUT	ENV+2~, ADR+1~, CONT+1~
DUZ	UR+2, MAIL+3
DUZ(0	UR+1
ICD	ENV+2~, ENV+26~, NOTDEF+1~, ADR~, ADR+1, ADR+2, VER+1~, VER+2, INS+1~, INS+2 , INSD+1~*, INSD+2
ICD10	ENV+2~, STATUS+1~, STATUS+9, STATUS+10
ICD9	ENV+2~, STATUS+1~, STATUS+7, STATUS+8
ICDADR	ENV+2~, MAIL+1~, MAIL+3*, MAIL+6
ICDATA	ENV+2~, STATUS+1~
ICDATA(	STATUS+27, STATUS+28, STATUS+29, STATUS+30, STATUS+37, STATUS+38
ICDATA(80	STATUS+23, STATUS+24, STATUS+25, STATUS+26, STATUS+35, STATUS+36
ICDBUILD	ENV+2~, OK+1~, OK+2, MAIL+1~, MAIL+2, IMP+19*
ICDC	ENV+2~, ENV+26~, ENV+27, ENV+29, ENV+42
ICDC1	ENV+2~, ENV+26~, ENV+27*, ENV+36
ICDC2	ENV+2~, ENV+26~, ENV+27*, ENV+30, ENV+35, ENV+37
ICDC3	ENV+2~, ENV+26~, ENV+27, ENV+30, ENV+39, ENV+40
ICDC4	ENV+3~, ENV+26~, ENV+27, ENV+30, ENV+40
ICDCOM	ENV+3~, ENV+32~, ENV+33*, ENV+40
ICDCONT	ENV+3~, ENV+45*
ICDD	ENV+3~, STATUS+1~
ICDDA	ENV+3~, VER+1~, VER+6, VER+7, INSD+1~, INSD+6, INSD+7, INSD+14*, INSD+16, INSD+18
ICDDD	ENV+3~, STATUS+2!
ICDDD(1	STATUS+8*
ICDDD(2	STATUS+9*
ICDDT	ENV+3~, STATUS+1~, STATUS+14~, STATUS+17, STATUS+19, STATUS+20*, STATUS+22
ICDE	ENV+3~, ENV+14, ENV+46, EXIT+1!, ABRT+1, ABRT+2!, ED+2!, VER+1~, INSD+1~, INSD+20* , INSD+21
ICDE(	ET+1*, ED+1
ICDE(0	ET+1*
ICDENT	ENV+3~, STATUS+1~, STATUS+14~
ICDF	ENV+3~, STATUS+1~
ICDF("GLOBAL	NAME" , STATUS+14
ICDF("NAME"	STATUS+16
ICDF("PACKAGE	REVISION DATA" , STATUS+17
ICDF("VERSION"	STATUS+16
ICDFI	ENV+3~, STATUS+1~, STATUS+14~, STATUS+15*, STATUS+22
ICDFULL	ENV+3~, ENV+47, QUIT+1!, EXIT+1!, ABRT+2!
ICDFY	ENV+3~, OK+1~, MAIL+1~, IMP+19*
ICDG	ENV+3~
ICDGBL	ENV+3~, STATUS+2!
ICDGBL(1	STATUS+24, STATUS+28
ICDGBL(2	STATUS+25, STATUS+29
ICDI	ENV+3~, ENV+26~, ENV+28, ENV+29, ENV+31, ENV+32, ENV+35, ET+1~, ED+1~, MAIL+1~ , MAIL+4, MAIL+5, VER+1~, INS+1~, INS+2, INS+3, INSD+1~, INSD+17, INSD+19, INSD+20 , INSD+21
ICDIEN	ENV+3~, STATUS+1~, STATUS+14~
ICDIGHF	ENV+3~, OK+1~, MAIL+1~, IMP+19*
ICDINE	ENV+4~, ENV+32~, ENV+34*, ENV+39
ICDINS	ENV+4~, ENV+17, ENV+19, ENV+20, ENV+21, ENV+22, ENV+23, ENV+32~, ENV+34*
ICDLREV	ENV+4~, OK+1~, MAIL+1~, IMP+18*
ICDM	ENV+4~, MAIL+1~, MAIL+5*, STATUS+1~
ICDMSG	ENV+4~, VER+1~, VER+5!, VER+12!, INSD+1~, INSD+5!, INSD+12!
ICDNM	ENV+4~, STATUS+1~, STATUS+14~, STATUS+16*, STATUS+22
ICDNS	ENV+4~, VER+1~, VER+2, VER+3, VER+4, INSD+1~, INSD+2, INSD+3, INSD+4, STATUS+1~ , STATUS+2*, STATUS+3
ICDO	ENV+4~, ENV+26~, ENV+39*, ENV+42
ICDOUT	ENV+4~, VER+1~, VER+5!, VER+12!, INSD+1~, INSD+5!, INSD+12!
ICDOUT("DILIST"	VER+4, VER+8, VER+10, VER+12, INSD+4, INSD+8, INSD+10, INSD+12, INSD+17, INSD+19
ICDP	ENV+4~, ENV+26~, INS+1~, INS+2*
ICDPAT	ENV+4~, ENV+26~, ENV+29, ENV+30, ENV+32~, ENV+33, ENV+34, ENV+36, ENV+41
ICDPI	ENV+4~, VER+1~, VER+4, VER+5, VER+6, INSD+1~, INSD+4, INSD+5, INSD+6, INSD+13 , INSD+14, INSD+15
ICDPK	ENV+4~, STATUS+1~, STATUS+14~, STATUS+17*, STATUS+18
ICDPN	ENV+4~, ENV+26~, ENV+34, ENV+38, ENV+41, VER+1~, VER+2, VER+3, VER+8, VER+10 , VER+12, INSD+1~, INSD+2, INSD+3*, INSD+8, INSD+10, INSD+12, INSD+16, INSD+18
ICDPRI	ENV+4~, MAIL+1~, MAIL+3*, MAIL+6
ICDPT	ENV+4~, STATUS+1~, STATUS+14~, STATUS+18, STATUS+19, STATUS+22
ICDPTYPE	ENV+4~, OK+1~, MAIL+1~, IMP+18*
ICDQTR	ENV+5~, OK+1~, MAIL+1~, IMP+19*
ICDR	ENV+5~, ENV+26~, ENV+27, ENV+30, ENV+35
ICDREL	ENV+5~, ENV+32~, ENV+33*, ENV+37
ICDREQ	ENV+5~, ENV+32~*, ENV+33
ICDREQP	ENV+5~, OK+1~, MAIL+1~
ICDREQP(	ENV+28, ENV+29, ENV+31, ENV+32
ICDREQP(0	ENV+25
ICDREQP(1	IMP+1*
ICDREQP(2	IMP+2*
ICDREQP(3	IMP+3*
ICDREQP(4	IMP+4*
ICDREQP(5	IMP+5*
ICDREQP(6	IMP+9*
ICDREQP(7	IMP+12*
ICDRT	ENV+5~, STATUS+1~, STATUS+14~, STATUS+15, STATUS+22
ICDRV	ENV+5~, STATUS+1~, STATUS+14~, STATUS+17*, STATUS+18
ICDSCR	ENV+5~, VER+1~, INSD+1~, INSD+15, INSD+16, INSD+18
ICDSTR	ENV+5~
ICDSUB	ENV+5~, MAIL+1~, MAIL+2*, MAIL+4
ICDT	ENV+5~, OK+1~, OK+2, OK+3, STATUS+1~, STATUS+12, STATUS+13, STATUS+15, STATUS+21
ICDTEST	ENV+13~, ENV+44
ICDUCI	ENV+5~, STATUS+1~, STATUS+2*
ICDV	ENV+5~, INS+1~, INS+2*, INS+3
ICDVD	ENV+5~, VER+1~, VER+8, VER+9, VER+10, VER+11, INSD+1~, INSD+8, INSD+9, INSD+10 , INSD+11
ICDVER	ENV+5~, ENV+17, ENV+20, ENV+21, ENV+23
ICDVI	ENV+5~, VER+1~, VER+12, INSD+1~, INSD+12, INSD+13, INSD+14, INSD+15
ICDVR	ENV+5~, VER+1~, VER+2, VER+3, VER+7, INSD+1~, INSD+2, INSD+3, INSD+7, STATUS+1~ , STATUS+14~, STATUS+16*, STATUS+18
ICDX	STATUS+1~, STATUS+3, STATUS+31, STATUS+32, STATUS+33, STATUS+34, STATUS+35, STATUS+36, STATUS+37, STATUS+38*
IEN	ENV+6~
IO	SY+1
IOF	SY+1
IOM	SY+1
ION	SY+1
IOSL	SY+1
IOST	SY+1
ND	GOK+2~, GOK+3
OK	GOK+2~, GOK+3, GOK+4
U	ENV+7*
X	ENV+6~, SY~, UR~, ET~, ET+1, NOTDEF~, NOTDEF+1, ADR+1~, ADR+2, CONT~ , CONT+19, CONT+20, UOK~, UOK+1~, GOK~, GOK+4, GOK+5, VER~, VER+1, VER+2 , VER+8, VER+9, VER+10, VER+11, INS~, INS+1, INSD~, INSD+1, INSD+2, INSD+8 , INSD+9, INSD+10, INSD+11, INSD+21, INSD+22, STATUS+1~, M~, M+1, BM~, BM+1 , TRIM~, TRIM+1, TRIM+2*, TRIM+3
XCNP	ENV+6~, MAIL+1~, MAILQ+1!
XMDUZ	ENV+6~, MAIL+1~, MAIL+7*, MAILQ+1!
XMSCR	ENV+6~, MAIL+1~, MAILQ+1!
XMSUB	ENV+6~, MAIL+1~, MAIL+4*, MAILQ+1!
XMTEXT	ENV+6~, MAIL+1~, MAIL+7*, MAILQ+1!
XMY	ENV+6~, MAIL+1~, MAILQ+1!
XMY(	MAIL+6*
XMZ	ENV+6~, MAIL+1~, MAILQ+1!
>> XPDABORT	ABRT+1, CONT+19
>> XPDDIQ("XPI1"	ENV+6!, ENV+7*
>> XPDDIQ("XPZ1"	ENV+6!, ENV+7*
>> XPDENV	ENV+47
>> XPDNOQUE	ENV+2*
>> XPDQUIT	EXIT+1, ABRT+1, CONT+19*
>> XPDQUIT("ICD18.057"	ABRT+1, CONT+19
>> XPDQUIT("LEX2.080"	ABRT+1, CONT+19
Y	ENV+6~, ADR+1~, ADR+2, CONT+1~, CONT+19*, UOK+1~, UOK+2, STATUS+1~, STATUS+2

Customize PDF page

Package: DRG Grouper

Routine: ICD1857

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: