BGOVTM.m

BGOVTM ; IHS/BAO/TMD - Manage V ACTIVITY TIME ;09-Apr-2012 14:19;DU

 ;;1.1;BGO COMPONENTS;**1,3,11**;Mar 20, 2007;Build 3

 ; Get visit activity time

 ;  INP = Visit IEN ^ User IEN

 ; .RET = Activity Time IEN ^ Activity Time ^ Travel minutes

GET(RET,INP) ;EP

 N VIEN,UIEN,ACTTM,TRVTM,X

 S VIEN=+$G(INP)

 I 'VIEN S RET=$$ERR^BGOUTL(1002) Q

 S UIEN=$P(INP,U,2)

 I 'UIEN S RET=$$ERR^BGOUTL(1102) Q

 I '$D(^VA(200,UIEN,0)) S RET=$$ERR^BGOUTL(1103) Q

 S (ACTTM,TRVTM)=0

 S X=0

 F  S X=$O(^AUPNVTM("AD",VIEN,X)) Q:'X  I $P($G(^AUPNVTM(X,12)),U,4)=UIEN D  Q

 .S ACTTM=$P($G(^AUPNVTM(X,0)),U),TRVTM=$P($G(^(0)),U,4)

 S RET=+X_U_ACTTM_U_TRVTM

 Q

 ; Add/edit V ACTIVITY file

 ;  INP = V File IEN [1] ^ Visit IEN [2] ^ Provider IEN [3] ^ Activity Time [4] ^ Travel Minutes [5]

SET(RET,INP) ;EP

 N VIEN,PRVIEN,VFIEN,VFNEW,FNUM,TYPE,TRVTM,FDA

 S RET="",FNUM=$$FNUM

 S VFIEN=+INP

 S VFNEW='VFIEN

 I VFIEN,'$D(^AUPNVTM(VFIEN,0)) S RET=$$ERR^BGOUTL(1104) Q

 S VIEN=$P(INP,U,2)

 S RET=$$CHKVISIT^BGOUTL(VIEN)

 Q:RET

 S PRVIEN=+$P(INP,U,3)

 I 'PRVIEN S RET=$$ERR^BGOUTL(1027) Q

 I VFIEN,$P($G(^AUPNVTM(VFIEN,12)),U,4)'=PRVIEN S RET=$$ERR^BGOUTL(1105) Q

 S TYPE=+$P(INP,U,4)

 S TRVTM=$P(INP,U,5)

 I 'VFIEN D  Q:'VFIEN

 .D VFNEW^BGOUTL2(.RET,FNUM,TYPE,VIEN)

 .S:RET>0 VFIEN=RET,RET=""

 S FDA=$NA(FDA(FNUM,VFIEN_","))

 S @FDA@(.01)=TYPE

 S @FDA@(.04)=TRVTM

 S @FDA@(1201)="N"

 S @FDA@(1204)="`"_PRVIEN

 ;Patch 11 Set date entered

 I VFNEW D

 .S @FDA@(1216)="N"

 .S @FDA@(1217)="`"_DUZ

 ;Patch 11 Set last modified

 S @FDA@(1218)="N"

 S @FDA@(1219)="`"_DUZ

 S RET=$$UPDATE^BGOUTL(.FDA,"E")

 I RET,VFNEW,$$DELETE^BGOUTL(FNUM,VFIEN)

 D:'RET VFEVT^BGOUTL2(FNUM,VFIEN,'VFNEW)

 S:'RET RET=VFIEN

 Q

 ; Delete an activity time entry

DEL(RET,VFIEN) ;EP

 D VFDEL^BGOUTL2(.RET,$$FNUM,VFIEN)

 Q

 ; Return V File #

FNUM() Q 9000010.19

BGOVTM    ; IHS/BAO/TMD - Manage V ACTIVITY TIME ;09-Apr-2012 14:19;DU

 +1       ;;1.1;BGO COMPONENTS;**1,3,11**;Mar 20, 2007;Build 3

 +2       ; Get visit activity time

 +3       ;  INP = Visit IEN ^ User IEN

 +4       ; .RET = Activity Time IEN ^ Activity Time ^ Travel minutes

GET(RET,INP) ;EP

 +1        NEW VIEN,UIEN,ACTTM,TRVTM,X

 +2        SET VIEN=+$GET(INP)

 +3        IF 'VIEN

               SET RET=$$ERR^BGOUTL(1002)

               QUIT 

 +4        SET UIEN=$PIECE(INP,U,2)

 +5        IF 'UIEN

               SET RET=$$ERR^BGOUTL(1102)

               QUIT 

 +6        IF '$DATA(^VA(200,UIEN,0))

               SET RET=$$ERR^BGOUTL(1103)

               QUIT 

 +7        SET (ACTTM,TRVTM)=0

 +8        SET X=0

 +9        FOR 

               SET X=$ORDER(^AUPNVTM("AD",VIEN,X))

               IF 'X

                   QUIT 

               IF $PIECE($GET(^AUPNVTM(X,12)),U,4)=UIEN

                   Begin DoDot:1

 +10                   SET ACTTM=$PIECE($GET(^AUPNVTM(X,0)),U)

                       SET TRVTM=$PIECE($GET(^(0)),U,4)

                   End DoDot:1

                   QUIT 

 +11       SET RET=+X_U_ACTTM_U_TRVTM

 +12       QUIT 

 +13      ; Add/edit V ACTIVITY file

 +14      ;  INP = V File IEN [1] ^ Visit IEN [2] ^ Provider IEN [3] ^ Activity Time [4] ^ Travel Minutes [5]

SET(RET,INP) ;EP

 +1        NEW VIEN,PRVIEN,VFIEN,VFNEW,FNUM,TYPE,TRVTM,FDA

 +2        SET RET=""

           SET FNUM=$$FNUM

 +3        SET VFIEN=+INP

 +4        SET VFNEW='VFIEN

 +5        IF VFIEN

               IF '$DATA(^AUPNVTM(VFIEN,0))

                   SET RET=$$ERR^BGOUTL(1104)

                   QUIT 

 +6        SET VIEN=$PIECE(INP,U,2)

 +7        SET RET=$$CHKVISIT^BGOUTL(VIEN)

 +8        IF RET

               QUIT 

 +9        SET PRVIEN=+$PIECE(INP,U,3)

 +10       IF 'PRVIEN

               SET RET=$$ERR^BGOUTL(1027)

               QUIT 

 +11       IF VFIEN

               IF $PIECE($GET(^AUPNVTM(VFIEN,12)),U,4)'=PRVIEN

                   SET RET=$$ERR^BGOUTL(1105)

                   QUIT 

 +12       SET TYPE=+$PIECE(INP,U,4)

 +13       SET TRVTM=$PIECE(INP,U,5)

 +14       IF 'VFIEN

               Begin DoDot:1

 +15               DO VFNEW^BGOUTL2(.RET,FNUM,TYPE,VIEN)

 +16               IF RET>0

                       SET VFIEN=RET

                       SET RET=""

               End DoDot:1

               IF 'VFIEN

                   QUIT 

 +17       SET FDA=$NAME(FDA(FNUM,VFIEN_","))

 +18       SET @FDA@(.01)=TYPE

 +19       SET @FDA@(.04)=TRVTM

 +20       SET @FDA@(1201)="N"

 +21       SET @FDA@(1204)="`"_PRVIEN

 +22      ;Patch 11 Set date entered

 +23       IF VFNEW

               Begin DoDot:1

 +24               SET @FDA@(1216)="N"

 +25               SET @FDA@(1217)="`"_DUZ

               End DoDot:1

 +26      ;Patch 11 Set last modified

 +27       SET @FDA@(1218)="N"

 +28       SET @FDA@(1219)="`"_DUZ

 +29       SET RET=$$UPDATE^BGOUTL(.FDA,"E")

 +30       IF RET

               IF VFNEW

                   IF $$DELETE^BGOUTL(FNUM,VFIEN)

 +31       IF 'RET

               DO VFEVT^BGOUTL2(FNUM,VFIEN,'VFNEW)

 +32       IF 'RET

               SET RET=VFIEN

 +33       QUIT 

 +34      ; Delete an activity time entry

DEL(RET,VFIEN) ;EP

 +1        DO VFDEL^BGOUTL2(.RET,$$FNUM,VFIEN)

 +2        QUIT 

 +3       ; Return V File #

FNUM()     QUIT 9000010.19