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

BQIPTIMP.m

Go to the documentation of this file.
  1. BQIPTIMP ;VNGT/HS/ALA-Patient Immunization Forecast Profile ; 28 Jan 2011 8:40 AM
  1. ;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59
  1. ;
  1. ;
  1. EN(DATA,DFN) ;EP -- BQI PATIENT IMMUN PROFILE
  1. ;
  1. ;Input
  1. ; DFN - Patient internal entry number
  1. ;
  1. NEW UID,II,GLOB,HDR,BIDLLID,BIDLLRUN,BIRESULT,BISITE
  1. S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
  1. S DATA=$NA(^TMP("BQIPTIMP",UID)),GLOB=$NA(^TMP("BQIIZ",UID))
  1. K @DATA,@GLOB
  1. ;
  1. S II=0
  1. NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPTIMM D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
  1. S HDR="T01024REPORT"
  1. S @DATA@(II)=HDR_$C(30)
  1. D IMMPROF^BIRPC(.GLOB,DFN,"","")
  1. S N=0,II=II+1
  1. F S N=$O(@GLOB@(N)) Q:N="" D
  1. . NEW XX
  1. . S XX=$$CTRL^BQIUL1(@GLOB@(N))
  1. . S @DATA@(II)=$G(@DATA@(II))_XX_$C(13)_$C(10)
  1. S @DATA@(II)=@DATA@(II)_$C(30)
  1. S II=II+1,@DATA@(II)=$C(31)
  1. K @GLOB
  1. Q