Routine: DGPTIC10

Information

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

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	;

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