Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACKQAICD

ACKQAICD.m

Go to the documentation of this file.
  1. ACKQAICD ;HCIOFO/BH - Quasar utilities routine ;30 Jan 2013 3:30 PM
  1. ;;3.0;QUASAR;**21**;Feb 11, 2000;Build 40
  1. ;
  1. ICDSYS(ACKQDOS,ACKQTYP) ; -- Get coding system
  1. ; -- input
  1. ; ackqdos = date of service (DT) default
  1. ; ackqtyp = diagnosis or procedure (DIAG) default
  1. ;
  1. ; -- output pointer to ICD Version file for coding system
  1. ;
  1. N ACKQTYP1,IMPDATE,VERSION
  1. I $G(ACKQDOS)="" S ACKQDOS=DT
  1. I $G(ACKQTYP)="" S ACKQTYP1="10D"
  1. S VERSION=1 ; Default answer
  1. S IMPDATE=$$IMPDATE^LEXU(ACKQTYP1)
  1. I ACKQTYP1="10D" D Q VERSION
  1. . I ACKQDOS<IMPDATE S VERSION="1",ACKQTYP="ICD"
  1. . I ACKQDOS'<IMPDATE S VERSION="30",ACKQTYP="10D" Q
  1. I ACKQTYP="PROC" D Q VERSION
  1. . I ACKQDOS<IMPDATE S VERSION="2" Q
  1. . I ACKQDOS'<IMPDATE S VERSION="31" Q
  1. Q $G(VERSION)