Routine: LREPICD

Information

LREPICD ;ALB/TEJ - EMERGING PATHOGENS ICD UTILITIES;16 Jun 2013 5:55 PM ; 19 Jun 2013 2:37 AM

Source file <LREPICD.m>

Name	Comments	DBIA/ICR reference
ICDSYS(LREPDOS,LRICDTYP)	; ; Parameters ; input: LREPDOS - date of service (REQ) ; LRICDTYP - code type requested "D"iag/"P"roc) ; output: LRICDSYS - icd system for implementation ; e.g. (3131001,"D")
Q1
ICDCONVT	; Convert File #69.5 "ICD-9" text entries to "ICD"
Q2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^LAB(69.5,LREPI695,8,LRX,0) Line Location: ICDCONVT+7

FileNo	Call Tags
^LAB(69.5 - [#69.5]	GET1^DIQ