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

PXAPIIM2.m

Go to the documentation of this file.
  1. PXAPIIM2 ;ISP/LMT - PCE Immunization APIs Cont. ;Aug 16, 2023@14:04
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**217,236**;Aug 12, 1996;Build 17
  1. ;
  1. ;
  1. Q
  1. ;
  1. IMMGRP(PXRESULT,PXIMM,PXSKIPNOTLIMITED) ; called from IMMGRP^PXAPIIM
  1. N PXCODE,PXCVX,PXICRIEN,PXICRNAME,PXIMMB,PXNAME,PXVGIEN,PXVGNAME
  1. ;
  1. I '$G(PXIMM) Q
  1. S PXSKIPNOTLIMITED=+$G(PXSKIPNOTLIMITED)
  1. ;
  1. S PXNAME=$P($G(^AUTTIMM(PXIMM,0)),U,1)
  1. ;
  1. S PXCVX=$P($G(^AUTTIMM(PXIMM,0)),U,3)
  1. I PXCVX'="" D
  1. . S PXIMMB=0
  1. . F S PXIMMB=$O(^AUTTIMM("C",PXCVX,PXIMMB)) Q:'PXIMMB D
  1. . . S PXNAME=$P($G(^AUTTIMM(PXIMMB,0)),U,1)
  1. . . S PXRESULT("CVX",PXCVX,PXIMMB)=PXNAME
  1. ;
  1. S PXVGIEN=0
  1. F S PXVGIEN=$O(^AUTTIMM(PXIMM,7,PXVGIEN)) Q:'PXVGIEN D
  1. . S PXVGNAME=$P($G(^AUTTIMM(PXIMM,7,PXVGIEN,0)),U,1)
  1. . I PXVGNAME="" Q
  1. . S PXIMMB=0
  1. . F S PXIMMB=$O(^AUTTIMM("I",PXVGNAME,PXIMMB)) Q:'PXIMMB D
  1. . . S PXNAME=$P($G(^AUTTIMM(PXIMMB,0)),U,1)
  1. . . S PXRESULT("VG",PXVGNAME,PXIMMB)=PXNAME
  1. ;
  1. S PXICRIEN=0
  1. F S PXICRIEN=$O(^PXV(920.4,PXICRIEN)) Q:'PXICRIEN D
  1. . S PXICRNAME=$P($G(^PXV(920.4,PXICRIEN,0)),U,1)
  1. . ;
  1. . ; If this imm is listed in the Immunizations Limited To
  1. . ; multiple, include it
  1. . I $O(^PXV(920.4,PXICRIEN,3,"B",PXIMM,0)) D Q
  1. . . S PXRESULT("ICR",PXICRIEN_";PXV(920.4,")=PXICRNAME
  1. . ;
  1. . I PXSKIPNOTLIMITED Q
  1. . ; Include all contras that don't have the Immunizations
  1. . ; Limited To multiple populated, except Severe Reaction
  1. . ; Previous Dose
  1. . I '$O(^PXV(920.4,PXICRIEN,3,0)) D Q
  1. . . S PXCODE=$P($G(^PXV(920.4,PXICRIEN,0)),U,2)
  1. . . I (PXICRNAME="SEVERE REACTION PREVIOUS DOSE")!(PXCODE="VXC20") Q
  1. . . S PXRESULT("ICR",PXICRIEN_";PXV(920.4,")=PXICRNAME
  1. ;
  1. Q