- BQIVFTRP ;PRXM/HC/ALA-Trigger Procedure Information ; 30 Aug 2007 1:55 PM
- ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
- Q
- ;
- EN(DATA,TEXT) ;EP - BQI VFILE TRIGGER PRC
- ;
- ; Input
- ; TEXT - Narrative Text
- ;
- NEW UID,II,VALUE,NARR,SOURCE
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BQIVFTRP",UID))
- K @DATA
- S II=0
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIVFTRP D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- S SOURCE="APCDTNQ",VALUE=""
- S DIC(0)="LX",DIC="^AUTNPOV(",DLAYGO=9999999.27,X=TEXT
- D ^DIC
- S IEN=+Y
- I IEN=-1 K DO,DD D FILE^DICN S IEN=+Y
- S VALUE=IEN_$C(29)_TEXT
- S @DATA@(II)="T00008SOURCE^T00001CODE_TYPE^T01024PARMS"_$C(30)
- S II=II+1,@DATA@(II)=SOURCE_U_"C"_U_VALUE_$C(30)
- S II=II+1,@DATA@(II)=$C(31)
- Q
- ;
- ERR ;
- D ^%ZTER
- NEW Y,ERRDTM
- S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y
- S BMXSEC="Recording that an error occurred at "_ERRDTM
- I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)
- Q
- BQIVFTRP ;PRXM/HC/ALA-Trigger Procedure Information ; 30 Aug 2007 1:55 PM
- +1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
- +2 QUIT
- +3 ;
- EN(DATA,TEXT) ;EP - BQI VFILE TRIGGER PRC
- +1 ;
- +2 ; Input
- +3 ; TEXT - Narrative Text
- +4 ;
- +5 NEW UID,II,VALUE,NARR,SOURCE
- +6 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +7 SET DATA=$NAME(^TMP("BQIVFTRP",UID))
- +8 KILL @DATA
- +9 SET II=0
- +10 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BQIVFTRP D UNWIND^%ZTER"
- +11 SET SOURCE="APCDTNQ"
- SET VALUE=""
- +12 SET DIC(0)="LX"
- SET DIC="^AUTNPOV("
- SET DLAYGO=9999999.27
- SET X=TEXT
- +13 DO ^DIC
- +14 SET IEN=+Y
- +15 IF IEN=-1
- KILL DO,DD
- DO FILE^DICN
- SET IEN=+Y
- +16 SET VALUE=IEN_$CHAR(29)_TEXT
- +17 SET @DATA@(II)="T00008SOURCE^T00001CODE_TYPE^T01024PARMS"_$CHAR(30)
- +18 SET II=II+1
- SET @DATA@(II)=SOURCE_U_"C"_U_VALUE_$CHAR(30)
- +19 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +20 QUIT
- +21 ;
- ERR ;
- +1 DO ^%ZTER
- +2 NEW Y,ERRDTM
- +3 SET Y=$$NOW^XLFDT()
- XECUTE ^DD("DD")
- SET ERRDTM=Y
- +4 SET BMXSEC="Recording that an error occurred at "_ERRDTM
- +5 IF $DATA(II)
- IF $DATA(DATA)
- SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +6 QUIT