BTPWTIAD.m

BTPWTIAD ;VNGT/HS/ALA-Create an Addendum to a Note ; 07 Jun 2010  6:54 AM

 ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011

 ;

 ;

EN(NDATA,TIUDA,TEXT) ; EP -- BTPW TIU ADDENDUM

 ; Input

 ;   TIUDA - IEN of the original document

 ;   TEXT  - TEXT of the addendum to be created

 NEW UID,II,TIUX,RESULT

 S II=0

 ;

 NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BTPWTINT D UNWIND^%ZTER" ; SAC 2006 2.2.3

 S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)

 S NDATA=$NA(^TMP("BTPWTIAD",UID))

 K @NDATA

 S TIUX(1202)=DUZ

 S TIUX(1301)=$$NOW^XLFDT()

 S @NDATA@(II)="I00010RESULT^T01024MSG^I00010ADIEN"_$C(30)

 ;

 S TEXT=$G(TEXT,"")

 I TEXT="" D

 . N LIST,BN

 . S LIST="",BN=""

 . F  S BN=$O(TEXT(BN)) Q:BN=""  S LIST=LIST_TEXT(BN)

 . K TEXT

 . S TEXT=LIST

 . K LIST

 ;

 ;Define Addendum Text

 I TEXT'="" F I=1:1:$L(TEXT,$C(10)) S TIUX("TEXT",I,0)=$P(TEXT,$C(10),I)

 I '$D(TIUX("TEXT")) S TIUX("TEXT",1,0)="CMET Notification marked as Entered in Error"

 ;

 D MAKEADD^TIUSRVP(.RESULT,TIUDA,.TIUX,1)

 I $P(RESULT,U,1)=0 D  Q

 . S II=II+1,@NDATA@(II)="-1^"_$P(RESULT,U,2)_$C(30)

 . S II=II+1,@NDATA@(II)=$C(31)

 S II=II+1,@NDATA@(II)="1^^"_$P(RESULT,U,1)_$C(30)

 S II=II+1,@NDATA@(II)=$C(31)

 Q

BTPWTIAD  ;VNGT/HS/ALA-Create an Addendum to a Note ; 07 Jun 2010  6:54 AM

 +1       ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011

 +2       ;

 +3       ;

EN(NDATA,TIUDA,TEXT) ; EP -- BTPW TIU ADDENDUM

 +1       ; Input

 +2       ;   TIUDA - IEN of the original document

 +3       ;   TEXT  - TEXT of the addendum to be created

 +4        NEW UID,II,TIUX,RESULT

 +5        SET II=0

 +6       ;

 +7       ; SAC 2006 2.2.3

           NEW $ESTACK,$ETRAP

           SET $ETRAP="D ERR^BTPWTINT D UNWIND^%ZTER"

 +8        SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)

 +9        SET NDATA=$NAME(^TMP("BTPWTIAD",UID))

 +10       KILL @NDATA

 +11       SET TIUX(1202)=DUZ

 +12       SET TIUX(1301)=$$NOW^XLFDT()

 +13       SET @NDATA@(II)="I00010RESULT^T01024MSG^I00010ADIEN"_$CHAR(30)

 +14      ;

 +15       SET TEXT=$GET(TEXT,"")

 +16       IF TEXT=""

               Begin DoDot:1

 +17               NEW LIST,BN

 +18               SET LIST=""

                   SET BN=""

 +19               FOR 

                       SET BN=$ORDER(TEXT(BN))

                       IF BN=""

                           QUIT 

                       SET LIST=LIST_TEXT(BN)

 +20               KILL TEXT

 +21               SET TEXT=LIST

 +22               KILL LIST

               End DoDot:1

 +23      ;

 +24      ;Define Addendum Text

 +25       IF TEXT'=""

               FOR I=1:1:$LENGTH(TEXT,$CHAR(10))

                   SET TIUX("TEXT",I,0)=$PIECE(TEXT,$CHAR(10),I)

 +26       IF '$DATA(TIUX("TEXT"))

               SET TIUX("TEXT",1,0)="CMET Notification marked as Entered in Error"

 +27      ;

 +28       DO MAKEADD^TIUSRVP(.RESULT,TIUDA,.TIUX,1)

 +29       IF $PIECE(RESULT,U,1)=0

               Begin DoDot:1

 +30               SET II=II+1

                   SET @NDATA@(II)="-1^"_$PIECE(RESULT,U,2)_$CHAR(30)

 +31               SET II=II+1

                   SET @NDATA@(II)=$CHAR(31)

               End DoDot:1

               QUIT 

 +32       SET II=II+1

           SET @NDATA@(II)="1^^"_$PIECE(RESULT,U,1)_$CHAR(30)

 +33       SET II=II+1

           SET @NDATA@(II)=$CHAR(31)

 +34       QUIT