- BTPWVTRG ;VNGT/HS/ALA-CMET Triggers ; 04 Nov 2009 10:20 AM
- ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011
- ;
- ;
- STT(BTPWSTGE) ;EP - State Trigger
- NEW UID,II,VALUE,SOURCE,HELP,ABLE,REQ,CLEAR,TYPE
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BTPWVTRG",UID))
- K @DATA
- S II=0
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BTPWVTRG D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- ;
- D HDR
- I BTPWSTGE="C" D
- . S SOURCE="BTPCLREA",VALUE="",HELP="",ABLE="Y",REQ="R",CLEAR="",TYPE="T" D REC
- . S SOURCE="BTPOTCOM",VALUE="",HELP="",ABLE="Y",REQ="O",CLEAR="",TYPE="W" D REC
- I BTPWSTGE="O" D
- . S SOURCE="BTPCLREA",VALUE="",HELP="",ABLE="N",REQ="R",CLEAR="BTPCLREA;BTPOTCOM",TYPE="T" D REC
- . S SOURCE="BTPOTCOM",VALUE="",HELP="",ABLE="N",REQ="O",CLEAR="",TYPE="W" D REC
- S II=II+1,@DATA@(II)=$C(31)
- Q
- ;
- FOL(BTPFLND) ; EP - Followup Needed
- NEW UID,II,VALUE,SOURCE,HELP,ABLE,REQ,CLEAR,TYPE
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BTPWVTRG",UID))
- K @DATA
- S II=0
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BTPWVTRG D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- ;
- D HDR
- I BTPFLND="Y" D
- . S SOURCE="BTPWFU",VALUE="",HELP="",ABLE="Y",REQ="R",CLEAR="",TYPE="T" D REC
- I BTPFLND="N" D
- . S SOURCE="BTPWFU",VALUE="",HELP="",ABLE="N",REQ="O",CLEAR="",TYPE="T" D REC
- S II=II+1,@DATA@(II)=$C(31)
- Q
- ;
- NTIU(BTPNOTFY) ; EP - TIU needed
- NEW UID,II,VALUE,SOURCE,HELP,ABLE,REQ,CLEAR,TYPE
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BTPWVTRG",UID))
- K @DATA
- S II=0
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BTPWVTRG D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- ;
- D HDR
- I BTPNOTFY="L" D
- . S SOURCE="BTPNTDC",VALUE="",HELP="",ABLE="Y",REQ="R",CLEAR="",TYPE="T" D REC
- . S SOURCE="BTPNTTM",VALUE="",HELP="",ABLE="Y",REQ="R",CLEAR="",TYPE="T" D REC
- . S SOURCE="BTPSIGN",VALUE="",HELP="",ABLE="Y",REQ="R",CLEAR="",TYPE="P" D REC
- I BTPFLND'="L" D
- . S SOURCE="BTPNTDC",VALUE="",HELP="",ABLE="N",REQ="O",CLEAR="BTPNTTM;BTPSIGN",TYPE="T" D REC
- . S SOURCE="BTPNTTM",VALUE="",HELP="",ABLE="N",REQ="O",CLEAR="",TYPE="T" D REC
- . S SOURCE="BTPSIGN",VALUE="",HELP="",ABLE="N",REQ="O",CLEAR="",TYPE="P" D REC
- S II=II+1,@DATA@(II)=$C(31)
- Q
- ;
- DONE ;
- 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
- ;
- HDR ; Header
- S @DATA@(II)="T00008SOURCE^T00001CODE_TYPE^T01024PARMS^T00030PROP_VALUE^T00001ABLE_FLAG^T00001REQ_OPT^T00200HELP_TEXT^T01024CLEAR_FIELDS"_$C(30)
- Q
- ;
- REC ; Record
- S II=II+1,@DATA@(II)=SOURCE_U_TYPE_U_VALUE_U_U_ABLE_U_REQ_U_HELP_U_CLEAR_$C(30)
- Q
- BTPWVTRG ;VNGT/HS/ALA-CMET Triggers ; 04 Nov 2009 10:20 AM
- +1 ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011
- +2 ;
- +3 ;
- STT(BTPWSTGE) ;EP - State Trigger
- +1 NEW UID,II,VALUE,SOURCE,HELP,ABLE,REQ,CLEAR,TYPE
- +2 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +3 SET DATA=$NAME(^TMP("BTPWVTRG",UID))
- +4 KILL @DATA
- +5 SET II=0
- +6 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BTPWVTRG D UNWIND^%ZTER"
- +7 ;
- +8 DO HDR
- +9 IF BTPWSTGE="C"
- Begin DoDot:1
- +10 SET SOURCE="BTPCLREA"
- SET VALUE=""
- SET HELP=""
- SET ABLE="Y"
- SET REQ="R"
- SET CLEAR=""
- SET TYPE="T"
- DO REC
- +11 SET SOURCE="BTPOTCOM"
- SET VALUE=""
- SET HELP=""
- SET ABLE="Y"
- SET REQ="O"
- SET CLEAR=""
- SET TYPE="W"
- DO REC
- End DoDot:1
- +12 IF BTPWSTGE="O"
- Begin DoDot:1
- +13 SET SOURCE="BTPCLREA"
- SET VALUE=""
- SET HELP=""
- SET ABLE="N"
- SET REQ="R"
- SET CLEAR="BTPCLREA;BTPOTCOM"
- SET TYPE="T"
- DO REC
- +14 SET SOURCE="BTPOTCOM"
- SET VALUE=""
- SET HELP=""
- SET ABLE="N"
- SET REQ="O"
- SET CLEAR=""
- SET TYPE="W"
- DO REC
- End DoDot:1
- +15 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +16 QUIT
- +17 ;
- FOL(BTPFLND) ; EP - Followup Needed
- +1 NEW UID,II,VALUE,SOURCE,HELP,ABLE,REQ,CLEAR,TYPE
- +2 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +3 SET DATA=$NAME(^TMP("BTPWVTRG",UID))
- +4 KILL @DATA
- +5 SET II=0
- +6 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BTPWVTRG D UNWIND^%ZTER"
- +7 ;
- +8 DO HDR
- +9 IF BTPFLND="Y"
- Begin DoDot:1
- +10 SET SOURCE="BTPWFU"
- SET VALUE=""
- SET HELP=""
- SET ABLE="Y"
- SET REQ="R"
- SET CLEAR=""
- SET TYPE="T"
- DO REC
- End DoDot:1
- +11 IF BTPFLND="N"
- Begin DoDot:1
- +12 SET SOURCE="BTPWFU"
- SET VALUE=""
- SET HELP=""
- SET ABLE="N"
- SET REQ="O"
- SET CLEAR=""
- SET TYPE="T"
- DO REC
- End DoDot:1
- +13 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +14 QUIT
- +15 ;
- NTIU(BTPNOTFY) ; EP - TIU needed
- +1 NEW UID,II,VALUE,SOURCE,HELP,ABLE,REQ,CLEAR,TYPE
- +2 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +3 SET DATA=$NAME(^TMP("BTPWVTRG",UID))
- +4 KILL @DATA
- +5 SET II=0
- +6 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BTPWVTRG D UNWIND^%ZTER"
- +7 ;
- +8 DO HDR
- +9 IF BTPNOTFY="L"
- Begin DoDot:1
- +10 SET SOURCE="BTPNTDC"
- SET VALUE=""
- SET HELP=""
- SET ABLE="Y"
- SET REQ="R"
- SET CLEAR=""
- SET TYPE="T"
- DO REC
- +11 SET SOURCE="BTPNTTM"
- SET VALUE=""
- SET HELP=""
- SET ABLE="Y"
- SET REQ="R"
- SET CLEAR=""
- SET TYPE="T"
- DO REC
- +12 SET SOURCE="BTPSIGN"
- SET VALUE=""
- SET HELP=""
- SET ABLE="Y"
- SET REQ="R"
- SET CLEAR=""
- SET TYPE="P"
- DO REC
- End DoDot:1
- +13 IF BTPFLND'="L"
- Begin DoDot:1
- +14 SET SOURCE="BTPNTDC"
- SET VALUE=""
- SET HELP=""
- SET ABLE="N"
- SET REQ="O"
- SET CLEAR="BTPNTTM;BTPSIGN"
- SET TYPE="T"
- DO REC
- +15 SET SOURCE="BTPNTTM"
- SET VALUE=""
- SET HELP=""
- SET ABLE="N"
- SET REQ="O"
- SET CLEAR=""
- SET TYPE="T"
- DO REC
- +16 SET SOURCE="BTPSIGN"
- SET VALUE=""
- SET HELP=""
- SET ABLE="N"
- SET REQ="O"
- SET CLEAR=""
- SET TYPE="P"
- DO REC
- End DoDot:1
- +17 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +18 QUIT
- +19 ;
- DONE ;
- +1 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +2 QUIT
- +3 ;
- 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
- +7 ;
- HDR ; Header
- +1 SET @DATA@(II)="T00008SOURCE^T00001CODE_TYPE^T01024PARMS^T00030PROP_VALUE^T00001ABLE_FLAG^T00001REQ_OPT^T00200HELP_TEXT^T01024CLEAR_FIELDS"_$CHAR(30)
- +2 QUIT
- +3 ;
- REC ; Record
- +1 SET II=II+1
- SET @DATA@(II)=SOURCE_U_TYPE_U_VALUE_U_U_ABLE_U_REQ_U_HELP_U_CLEAR_$CHAR(30)
- +2 QUIT
