Routine: DGPTIC10

Information

DGPTIC10 ;ALB/AAS/PLT - PTF API TO ICD10 Remediation calls ;9/29/2011

Package	Total	Call Graph
Registration	3	CEN^DGPTC1 ($$GET7DATE,$$IMPDATE)^DGPTIC10 PM^DGPTUTL
DRG Grouper	2	($$CODEC,$$VLT)^ICDEX $$ICDDATA^ICDXCODE
VA FileMan	2	^DIC ^DIR
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Lexicon Utility	1	$$IMPDATE^LEXU

Package	Total	Caller Graph
Registration	60	DG3PR2 DG401-10P DG601 DG601-10P DG701 DG701-10D DGENA5 DGENLCD1 DGICDGT DGMSTR3 DGPT50DI DGPT60PR DGPT70DI DGPT70DX DGPTAE03 DGPTAE04 DGPTDRG DGPTEXPR DGPTF4 DGPTF41 DGPTF5 DGPTFAPI DGPTFD DGPTFJC DGPTFM DGPTFM0 DGPTFM1 DGPTFM3 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFMO DGPTFQWK DGPTFTR0 DGPTFTR2 DGPTFUT DGPTFVC1 DGPTIC10 DGPTICD DGPTOLC2 DGPTR0 DGPTR2 DGPTR4 DGPTRI0 DGPTRI2 DGPTRI3 DGPTRI4 DGPTSUDO DGPTTS DGPTTS1 DGPTUTL DGPTX5 DGPTX7 DGX4 DGX5 DGX5F DGX5FD DGX6 DGX7 ^DIC(45.89

Entry Points

Name	Comments	DBIA/ICR reference
GETCODSY(CSYS,IEN,DATE)	; -- RETURN IF THIS IS ICD9 OR ICD10 ; returns 20th piece of call to ICDDATA^ICDxcode
IMPDATE(CODESYS)	; - calls IMPDATE^LEXU(CODESYS) ; CODESYS: 10D = diagnosis, 10P = procedure
EFFDATE(DGPTF,DGTYPE,DGMOVE,DGCSYS)	;-- build ICD-10 Implementation date / effective date
EQ
EFFDAT1(DGPTDAT)	;-- build ICD-10 Implementation date / effective date
CODESYS(PTFIEN)	; returns coding system for a PTF Based on Discharge Date ; -- called from DG701 template
CSQ
GETCODS(CODESYS,DATE)	; - Returns coding system for a date
GET8DATE(PATNUM)	; GET CPT RECORD DATE FOR 801 SERVICE
GET7DATE(PATNUM)	; FROM icdgtdrg
G7OUT
GET5DATE(PATNUM,MOVE)	; FROM icdgtdrg
G5OUT	;
GET6DATE(PATNUM,PROC,DGI)	; FROM icdgtdrg
G6OUT	;
GETCDATE(PATNUM,CPT)	;
GCOUT	;
GETLABEL(EVDATE,CODESYS)	; returns ICD label for printing ; CODESYS - D for diagnosis or P for Procedures ; EVDATE - event date to use for determine label (discharge, movement date, etc.
DISPLY(FILE,IEN,DATE,FRMT)	; -- return the Code - Description for a code
WRITECOD(FILE,IEN,DATE,FRMT,RETURN,TAB)	;
PREV	;
ICDNAME()	; -- Called from PTF EXPANDED CODE file (45.89) field Name (#200) ; -- Determines ICD Code name using supported API's ; Replaces direct global reads in computed Expression
INPUT()	; - Input transform for 27.27;9 S X=$$INPUT^DGPTIC10() K:X<1 X
DATERANG	; Get an ICD-10 compliant date range
DRQ	;
SDAT()	; ask for start date
TDAT(DGSDAT)	; ask for end date
CENSUS(DGPTF)	; display warning to user for ICD-10 transition census records
CENSUSQ	;

External References

Name	Field # of Occurrence
CEN^DGPTC1	CODESYS+10, GET7DATE+14, GET5DATE+12, GET6DATE+15, GETCDATE+12, CENSUS+13
$$GET7DATE^DGPTIC10	EFFDATE+9
$$IMPDATE^DGPTIC10	EQ, EFFDAT1+3, DATERANG+2, TDAT+3
PM^DGPTUTL	CODESYS+9, GET7DATE+13, GET5DATE+11, GET6DATE+14, GETCDATE+11
^DIC	INPUT+4
^DIR	SDAT+3, TDAT+7
$$CODEC^ICDEX	DISPLY+8
$$VLT^ICDEX	DISPLY+9, ICDNAME+11, ICDNAME+12
$$ICDDATA^ICDXCODE	GETCODSY+2
$$IMPDATE^LEXU	IMPDATE+3
$$FMADD^XLFDT	TDAT+6
$$FMTE^XLFDT	DATERANG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @RETURN,?TAB,X Line Location: WRITECOD+9
Function Call: WRITE	Prompt: @RETURN,?TAB,$E(X,1,DGSPACE) Line Location: WRITECOD+22
Function Call: WRITE	Prompt: !,?TAB2," ",$E(X,DGSPACE+1,$L(X)) Line Location: WRITECOD+24
Function Call: WRITE	Prompt: !,?TAB2," ",$E(X1,1,DGSPACE2) Line Location: WRITECOD+31
Function Call: WRITE	Prompt: !,?TAB2," ",$E(X1,DGSPACE2+1,$L(X1)) Line Location: WRITECOD+32
Function Call: WRITE	Prompt: !!,"ICD-10 Implementation Date: ",$$FMTE^XLFDT(IMPDATE),! Line Location: DATERANG+3
Function Call: WRITE	Prompt: !!,?10,"Start date is before ICD-10 implementation.",!,?10,"End date must be before ICD-10 implementation",! Line Location: TDAT+5
Function Call: WRITE	Prompt: !!,?5,"Note: This PTF record is OPEN for CENSUS." Line Location: CENSUS+22
Function Call: WRITE	Prompt: !,?7,"Census requires ICD-9 codes." Line Location: CENSUS+23
Function Call: WRITE	Prompt: !,?7,"PTF will require ICD-10 codes after the census is closed.",! Line Location: CENSUS+24
Routine Call	DIC Line Location: INPUT+4
Routine Call	DIR Line Location: SDAT+3 TDAT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(45.86 - [#45.86]	CODESYS+7, CODESYS+12, GET7DATE+11, GET7DATE+16, GET5DATE+9, GET5DATE+14, GET6DATE+12, GET6DATE+17, GETCDATE+9, GETCDATE+14 , CENSUS+19
^DGPT - [#45]	CODESYS+3, CODESYS+7, CODESYS+14, GET8DATE+2, GET7DATE+7, GET7DATE+11, GET7DATE+19, GET5DATE+9, GET5DATE+17, GET5DATE+18 , GET6DATE+12, GET6DATE+20, GET6DATE+23, GET6DATE+24, GETCDATE+9, GETCDATE+17
^DIC(45.89 - [#45.89]	ICDNAME+8, ICDNAME+10

Label References

Name	Line Occurrences
$$DISPLY	WRITECOD+8
$$GET8DATE	EFFDATE+10
$$GETCODS	CODESYS+3, CSQ
$$IMPDATE	GETCODS+2, GETLABEL+5, GETLABEL+6
$$SDAT	DATERANG+4
$$TDAT	DATERANG+5
CENSUSQ	CENSUS+15, CENSUS+16
CSQ	CODESYS+7, CODESYS+12
DRQ	DATERANG+4
EFFDATE	CENSUS+20
EQ	EFFDATE+4
G5OUT	GET5DATE+9, GET5DATE+19
G6OUT	GET6DATE+10, GET6DATE+12, GET6DATE+25
G7OUT	GET7DATE+11, GET7DATE+16, GET7DATE+20, GET7DATE+21, GET5DATE+14, GET6DATE+17, GETCDATE+14
GCOUT	GETCDATE+9, GETCDATE+18

Naked Globals

Name	Field # of Occurrence
^(0	INPUT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMDATE	GET7DATE+6~, GET7DATE+7*
CAT	INPUT+1~, INPUT+2*, INPUT+3
CENDATE	CENSUS+8~, CENSUS+19*, CENSUS+21
CODE	DISPLY+1~, DISPLY+8, DISPLY+11, DISPLY+13, DISPLY+14
CODESYS	IMPDATE~, IMPDATE+2*, IMPDATE+3, GETCODS~, GETCODS+2, GETLABEL~, GETLABEL+5, GETLABEL+6
CPT	GETCDATE~
CSYS	GETCODSY~, GETCODSY+2
>> D0	ICDNAME+4, ICDNAME+5*, ICDNAME+8, ICDNAME+10
>> DA	ICDNAME+4, ICDNAME+5
DATE	GETCODSY~, GETCODSY+2, GETCODS~, GETCODS+4, GETCODS+5, DISPLY~, DISPLY+9, WRITECOD~, WRITECOD+8
DESC	DISPLY+1~, DISPLY+9, DISPLY+12, DISPLY+13, DISPLY+14
>> DGCN	CODESYS+12, GET7DATE+16, GET5DATE+14, GET6DATE+17, GETCDATE+14, CENSUS+19
>> DGCPTDT	EFFDATE+10*
>> DGCST	CODESYS+12, GET7DATE+16, GET5DATE+14, GET6DATE+17, GETCDATE+14, CENSUS+15, CENSUS+16, CENSUS+19
DGCSYS	EFFDATE~, EFFDATE+3*, EQ
>> DGEDATE	DATERANG+5*
DGFEE	EFFDATE+1~, EFFDAT1+1~, CODESYS+2~, GETCODS+1~, GET7DATE+6~, GET5DATE+7~, GET6DATE+8~, GETCDATE+7~
DGI	GET6DATE~, GET6DATE+22, GET6DATE+23, GET6DATE+24
DGIOM	WRITECOD+1~, WRITECOD+6*, WRITECOD+9, WRITECOD+11, WRITECOD+23, WRITECOD+26
DGMOVE	EFFDATE~, EFFDATE+7*
DGPARSE	WRITECOD+1~, WRITECOD+11, WRITECOD+12, WRITECOD+14, WRITECOD+26*, WRITECOD+29
DGPARSE2	WRITECOD+1~
>> DGPMCA	CODESYS+9, GET7DATE+13, GET5DATE+11, GET6DATE+14, GETCDATE+11
>> DGPRD	GET8DATE+1
DGPTDAT	EFFDATE+4, EFFDATE+9, EFFDATE+10*, EFFDAT1~, EFFDAT1+2, EFFDAT1+4, EFFDAT1+6, CENSUS+8~
DGPTF	EFFDATE~, EFFDATE+4, EFFDATE+9, EFFDATE+10, CENSUS~, CENSUS+20
>> DGPTF0	CODESYS+10, GET7DATE+14, GET5DATE+12, GET6DATE+15, GETCDATE+12, CENSUS+13
DGSAVE	CODESYS+10~, GET7DATE+14~, GET5DATE+12~, GET6DATE+15~, GETCDATE+12~, CENSUS+13~
DGSDAT	TDAT~, TDAT+2, TDAT+4, TDAT+6
DGSDATE	DATERANG+1~, DATERANG+4*, DATERANG+5
DGSPACE	WRITECOD+1~, WRITECOD+15*, WRITECOD+22, WRITECOD+23, WRITECOD+24, WRITECOD+27
DGSPACE2	WRITECOD+1~, WRITECOD+30*, WRITECOD+31, WRITECOD+32
DGTEMP	EFFDATE+1~, EQ, EQ+1, EFFDAT1+1~, EFFDAT1+3, EFFDAT1+5, EFFDAT1+6
DGTYPE	EFFDATE~, EFFDATE+2, EFFDATE+5, EFFDATE+6*, EFFDATE+9, EFFDATE+10
>> DGZP	GET8DATE+2
DIC	INPUT+4!*
>> DIE	INPUT+4
DIR	SDAT+1~, SDAT+3!, TDAT+1~, TDAT+7!
DIR("A"	SDAT+2, TDAT+2
DIR(0	SDAT+2, TDAT+2, TDAT+6*
DISDATE	CODESYS+2~, CODESYS+7, CODESYS+12, CODESYS+14, CODESYS+15, CSQ, GET7DATE+19, GET7DATE+20, GET7DATE+21, GET5DATE+17 , GET5DATE+19, GET6DATE+20, GET6DATE+22, GET6DATE+25, GETCDATE+17, GETCDATE+18
DT	EFFDATE+4, CODESYS+3, CODESYS+15, GET8DATE+3, GET7DATE+21, GET7DATE+23, GET5DATE+21, GET6DATE+10, GET6DATE+22, GET6DATE+26 , GETCDATE+20, SDAT+2, TDAT+2, TDAT+4, CENSUS+21
DTOUT	SDAT+1~, SDAT+4, TDAT+1~, TDAT+8
DUOUT	SDAT+1~, SDAT+4, TDAT+1~, TDAT+8
EFFD	GET8DATE+1, GET8DATE+2, GET8DATE+3, GET8DATE+4, GET7DATE+6~, GET7DATE+11, GET7DATE+16, GET7DATE+20, GET7DATE+21, GET7DATE+23 , G7OUT, GET5DATE+7~, GET5DATE+9, GET5DATE+14, GET5DATE+19, GET5DATE+21, G5OUT+1, GET6DATE+8~, GET6DATE+10, GET6DATE+12 , GET6DATE+17, GET6DATE+25, GET6DATE+26, G6OUT+1, GETCDATE+7~, GETCDATE+9, GETCDATE+14, GETCDATE+18, GETCDATE+20*, GCOUT+1
EFFDATE	EFFDATE+4, EFFDATE+9, EFFDATE+10, EFFDAT1+4, EFFDAT1+6*, CENSUS+8~
ENTRY	ICDNAME+6~, ICDNAME+8*, ICDNAME+9, ICDNAME+10, ICDNAME+11, ICDNAME+12
EVDATE	GETLABEL~, GETLABEL+5, GETLABEL+6
FILE	DISPLY~, DISPLY+2, DISPLY+3, DISPLY+4, DISPLY+8, DISPLY+9, WRITECOD~, WRITECOD+8
FRMT	DISPLY~, DISPLY+6, DISPLY+7, DISPLY+13, DISPLY+14, WRITECOD~, WRITECOD+8, WRITECOD+17, WRITECOD+20
I	EFFDATE+1~, WRITECOD+1~, WRITECOD+14, WRITECOD+15, WRITECOD+18, WRITECOD+29*, WRITECOD+30
ICDVER	GETLABEL+3~, GETLABEL+4, GETLABEL+5, GETLABEL+6, GETLABEL+7, INPUT+1~, INPUT+3
IEN	GETCODSY~, GETCODSY+2, DISPLY~, DISPLY+5, DISPLY+8, DISPLY+9, WRITECOD~, WRITECOD+8
IMPDATE	EQ+1, EFFDAT1+5, EFFDAT1+6, GETCODS+1~, GETCODS+2, GETCODS+3, GETCODS+4, GETCODS+5, GET7DATE+6~, GET5DATE+7~ , GET6DATE+8~, GETCDATE+7~, DATERANG+1~, DATERANG+2, DATERANG+3, TDAT+3*, TDAT+4, TDAT+6, CENSUS+8~, CENSUS+21
IOM	WRITECOD+6
J	EFFDATE+1~
MOVDATE	GET5DATE+7~, GET5DATE+18, GET6DATE+8~, GET6DATE+22, GET6DATE+23, GET6DATE+24, GETCDATE+7~
MOVE	GET5DATE~, GET5DATE+18
PATNUM	GET8DATE~, GET8DATE+2, GET7DATE~, GET7DATE+7, GET7DATE+11, GET7DATE+13, GET7DATE+19, GET5DATE~, GET5DATE+9, GET5DATE+11 , GET5DATE+17, GET5DATE+18, GET6DATE~, GET6DATE+9*, GET6DATE+10, GET6DATE+12, GET6DATE+14, GET6DATE+20, GET6DATE+23, GET6DATE+24 , GETCDATE~, GETCDATE+9, GETCDATE+11, GETCDATE+17
PROC	GET6DATE~, GET6DATE+9, GET6DATE+23, GET6DATE+24
PTF	CODESYS+9, GET7DATE+6~, GET7DATE+13, GET5DATE+11, GET6DATE+14, GETCDATE+11*, CENSUS+10
PTFIEN	CODESYS~, CODESYS+3, CODESYS+7, CODESYS+9, CODESYS+14
PTR	CODESYS+7, GET7DATE+6~, GET7DATE+11, GET5DATE+7~, GET5DATE+9, GET6DATE+8~, GET6DATE+12, GETCDATE+7~, GETCDATE+9*
RETURN	WRITECOD~, WRITECOD+2, WRITECOD+5, WRITECOD+9, WRITECOD+22
SIZE	WRITECOD+1~, WRITECOD+4*, WRITECOD+9, WRITECOD+22
TAB	WRITECOD~, WRITECOD+2, WRITECOD+3, WRITECOD+4, WRITECOD+9, WRITECOD+11, WRITECOD+12, WRITECOD+20, WRITECOD+22
TAB1	WRITECOD+1~, WRITECOD+17, WRITECOD+18, WRITECOD+19
TAB2	WRITECOD+1~, WRITECOD+19, WRITECOD+20, WRITECOD+23, WRITECOD+24, WRITECOD+26, WRITECOD+31, WRITECOD+32
TYPE	ICDNAME+6~, ICDNAME+10*, ICDNAME+11, ICDNAME+12
U	EFFDATE+2, EQ+1, EFFDAT1+5, EFFDAT1+6, CODESYS+7, CODESYS+12, GET8DATE+4, GET7DATE+7, GET7DATE+11, GET7DATE+16 , GET7DATE+19, GET5DATE+9, GET5DATE+14, GET5DATE+17, GET5DATE+18, GET6DATE+12, GET6DATE+17, GET6DATE+20, GET6DATE+23, GET6DATE+24 , GETCDATE+9, GETCDATE+14, GETCDATE+17, GETLABEL+5, GETLABEL+6, ICDNAME+8, ICDNAME+10, INPUT+2, CENSUS+19
VERSION	GETCODS+1~, GETCODS+4, GETCODS+5, GETCODS+6, ICDNAME+8, ICDNAME+10
X	EFFDATE+1~, CODESYS+2~, GET7DATE+6~, GET5DATE+7~, GET6DATE+8~, GETCDATE+7~, WRITECOD+1~, WRITECOD+8, WRITECOD+9, WRITECOD+14 , WRITECOD+17, WRITECOD+18, WRITECOD+22, WRITECOD+23, WRITECOD+24, WRITECOD+27, ICDNAME+6~, ICDNAME+7, ICDNAME+9, ICDNAME+11* , ICDNAME+12, ICDNAME+13, INPUT+4!, INPUT+5, CENSUS+8~
X1	EFFDATE+2, WRITECOD+1~, WRITECOD+27*, WRITECOD+29, WRITECOD+31, WRITECOD+32
Y	EFFDATE+1~, CODESYS+2~, GET7DATE+6~, GET5DATE+7~, GET6DATE+8~, GETCDATE+7~, INPUT+4, SDAT+1~, SDAT+5, TDAT+1~ , TDAT+9, CENSUS+8~
Y(0	INPUT+2*

Customize PDF page

Package: Registration

Routine: DGPTIC10

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 60

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: