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

SDAMICD.m

Go to the documentation of this file.
  1. SDAMICD ;ALB/ART - Appt Mgt - Scheduling ICD Code APIs ;03-21-12
  1. ;;5.3;Scheduling;**586**;Aug 13, 1993;Build 28
  1. ;
  1. ; Reference to $$CSI^ICDEX supported by ICR #5747
  1. ; Reference to $$SYS^ICDEX supported by ICR #5747
  1. ; Reference to $$ICDDX^ICDEX supported by ICR #5747
  1. ;
  1. Q
  1. ; This routine contains the APIs used for screening logic, input transforms, and creating cross reference
  1. ; for File #44 (HOSPITAL LOCATION), Multiple #44.11 (IDAGNOSIS)
  1. ;
  1. F44SCRN1(SDDXIEN) ;Screening Logic for File #44, Multiple #44.11, Field #.01
  1. ;Input - SDDXIEN - Diagnosis IEN (File #44, Multiple #44.11, Field #.01)
  1. ;Returns - 1 - code is active today or future
  1. ; 0 - code is not active today
  1. ;
  1. ;
  1. N CSYS,CSS
  1. S CSYS=+$$CSI^ICDEX(80,SDDXIEN),CSS=+$$SYS^ICDEX(80,DT,"I")
  1. I CSYS<CSS Q 0
  1. I CSYS=CSS Q +$P($$ICDDX^ICDEX(SDDXIEN,DT,CSYS,"I"),"^",10)
  1. Q 1
  1. ;
  1. F44SCRN2(SDCLIEN,SDDXIEN) ;Input Transform logic for File #44, Multiple #44.11, Field #.02
  1. ;Input - SDCLIEN - Clinic IEN (File #44)
  1. ;Input - SDDXIEN - Diagnosis record IEN (File #44, Multiple #44.11)
  1. ;Returns - 1 (True) - There is already another default code for this version
  1. ; 0 (False) - There is no default code for this version OR This code is the default for this version
  1. ;
  1. Q:'$D(^SC("ADDX",SDCLIEN)) 0 ; No default diagnosis for this clinic
  1. Q:$D(^SC("ADDX",SDCLIEN,SDDXIEN)) 0 ; This code is already the default
  1. N SDVER,SDVER2,SDI,SDRET
  1. S SDRET=0
  1. S SDVER=$$ICDVER(SDCLIEN,SDDXIEN) ; version of current code
  1. ;check if some other code is the default
  1. S SDI=""
  1. F S SDI=$O(^SC("ADDX",SDCLIEN,SDI)) Q:SDI=""!SDRET D
  1. . S SDVER2=$$ICDVER(SDCLIEN,SDI)
  1. . S:SDVER=SDVER2 SDRET=1
  1. Q SDRET
  1. ;
  1. DEFLTICD(SDCLIEN,SDDXIEN) ;Get Default ICD Code for Clinic
  1. ;Input - SDCLIEN - Clinic IEN (File #44)
  1. ;Input - SDDXIEN - Diagnosis record IEN (File #44, Multiple #44.11)
  1. ;Returns - The default ICD Code for an ICD version
  1. ;
  1. N SDRET,SDI,SDIENS,SDVER,SDMATCH
  1. S SDRET="None"
  1. S SDMATCH=0
  1. S SDVER=$$ICDVER(SDCLIEN,SDDXIEN) ; version of current code
  1. W !,"SDVER=",SDVER
  1. S SDI=""
  1. F S SDI=$O(^SC("ADDX",SDCLIEN,SDI)) Q:SDI=""!SDMATCH D
  1. . I SDVER=$$ICDVER(SDCLIEN,SDI) D
  1. . . S SDIENS=SDI_","_SDCLIEN_","
  1. . . S SDRET=$$GET1^DIQ(44.11,SDIENS,.01)
  1. . . S SDMATCH=1
  1. Q SDRET
  1. ;
  1. ICDVER(SDCLIEN,SDDXIEN) ; Get ICD Version
  1. ;Input - SDCLIEN - Clinic IEN (File #44)
  1. ;Input - SDDXIEN - Diagnosis record IEN (File #44, Multiple #44.11)
  1. ;Returns - Coding System IEN
  1. ;
  1. ; Subscription to ICR #5747
  1. ; Calls $$CSI^ICDEX(), which returns the coding system IEN for a given code
  1. ;
  1. Q $$CSI^ICDEX(80,+^SC(SDCLIEN,"DX",SDDXIEN,0))
  1. ;