Routine: ACKQ3P21

Information

ACKQ3P21 ;ALB/CLA - IMPORT WIZARD FOR ICD-10 CODES INTO FILE 509850.1;31 Mar 2014 9:55 AM

Source file <ACKQ3P21.m>

Name	Comments	DBIA/ICR reference
SETVER	; Set ICD version on first entries
EN	; - Store Diagnosis DATA in file 509850.1
PURG	; -- CLEAN OUT ENTRIES TO TRY AGAIN ; - FOR development and testing only
PURGV	; delete version from entries
PURGD	; clear out data added to retest

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ICDCODE Line Location: EN+8
Function Call: WRITE	Prompt: "." Line Location: EN+16
Function Call: WRITE	Prompt: !,"Entries Deleted - Diagnosis=",$G(CNT) Line Location: PURG+5
Function Call: WRITE	Prompt: "." Line Location: PURGD+11

FileNo	Call Tags
^ACK(509850.1 - [#509850.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACK(509850.1 - [#509850.1]	SETVER+2, SETVER+4, EN+9, PURGV+2, PURGD+8

Name	Field # of Occurrence
ACKLAYGO	EN+1~, EN+12*
CNT	PURG+2~, PURG+3, PURG+5, PURGD+10
CNT2	PURG+2~
COUNT	%+1~, %+4, %+6, %+7, %+8, EN+2, EN+16
COUNT2	%+1~
DA	EN+1~, EN+10!, PURGD+1~, PURGD+9*
DD	EN+10!
DESC	EN+1~, EN+6*
DGI	EN+1~, EN+3, PURGD+3~
DIC	EN+1~, EN+10!, EN+12*, PURGD+1~
DIC("DR"	EN+14*
DIC(0	EN+12*
DIE	PURGD+1~
DIK	PURGD+1~, PURGD+9*
DINUM	EN+10!, EN+11*
DO	EN+10!
DR	EN+10!, PURGD+1~
ERR	EN+1~, EN+17*
ICDCODE	EN+1~, EN+5, EN+7, EN+8, PURGD+1~, PURGD+4, PURGD+5
ICDIEN	EN+1~, EN+7*, EN+8, EN+9, EN+11, EN+12
ICDVER	SETVER+1~, SETVER+3*, SETVER+4, PURGV+1~
IEN	SETVER+1~, SETVER+2, SETVER+3, SETVER+4, EN+1~, EN+15, PURGV+1~, PURGV+2, PURGD+1~, PURGD+5 , PURGD+8, PURGD+9
OKAY	EN+1~
ROU	EN+3~, PURGD+3~
TEXT	EN+1~, EN+3, EN+4, EN+5, EN+6, PURGD+1~, PURGD+3, PURGD+4
TYPE	EN+1~, EN+4*
X	EN+1~, EN+10!, EN+12*
Y	EN+1~, EN+2*, EN+15, EN+16, EN+17

Name	Field # of Occurrence
$T(@(7)	EN+3, PURGD+3