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

BQIVFTRP.m

Go to the documentation of this file.
  1. BQIVFTRP ;PRXM/HC/ALA-Trigger Procedure Information ; 30 Aug 2007 1:55 PM
  1. ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
  1. Q
  1. ;
  1. EN(DATA,TEXT) ;EP - BQI VFILE TRIGGER PRC
  1. ;
  1. ; Input
  1. ; TEXT - Narrative Text
  1. ;
  1. NEW UID,II,VALUE,NARR,SOURCE
  1. S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
  1. S DATA=$NA(^TMP("BQIVFTRP",UID))
  1. K @DATA
  1. S II=0
  1. NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIVFTRP D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
  1. S SOURCE="APCDTNQ",VALUE=""
  1. S DIC(0)="LX",DIC="^AUTNPOV(",DLAYGO=9999999.27,X=TEXT
  1. D ^DIC
  1. S IEN=+Y
  1. I IEN=-1 K DO,DD D FILE^DICN S IEN=+Y
  1. S VALUE=IEN_$C(29)_TEXT
  1. S @DATA@(II)="T00008SOURCE^T00001CODE_TYPE^T01024PARMS"_$C(30)
  1. S II=II+1,@DATA@(II)=SOURCE_U_"C"_U_VALUE_$C(30)
  1. S II=II+1,@DATA@(II)=$C(31)
  1. Q
  1. ;
  1. ERR ;
  1. D ^%ZTER
  1. NEW Y,ERRDTM
  1. S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y
  1. S BMXSEC="Recording that an error occurred at "_ERRDTM
  1. I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)
  1. Q