VSITPUT.m

VSITPUT ;ISD/RJP - Verify/Set Fields and File Visit Record ;7/29/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996

 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect

 ; the incorporation of the module into PCE.  For historical reference,

 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT

 ; patches.

 ;

 ;;2.0;VISIT TRACKING;;Aug 12, 1996;

 ;

 ; - verify/set visit record fields

 ; - called by ^VSIT

 ;

 N FLD,FLDINDX,VSITREC

 S FLDINDX=""

 F  S FLDINDX=$O(^TMP("VSITDD",$J,FLDINDX)) Q:FLDINDX=""  D

 . S FLD=^TMP("VSITDD",$J,FLDINDX)

 . S:$P(VSIT(FLDINDX),"^")]"" $P(VSITREC($P(FLD,";",3)),"^",$P(FLD,";",4))=$P(VSIT(FLDINDX),"^")

 ;

 Q:'$D(VSITREC(0))

 ;

 D ^VSITPUT1

 ;

QUIT ; - exit

 Q

ERR(ERR) ; - send error bulletin

 ;     sent at QUIT^VSIT

 ;     mail group = vsit create error

 ;

 D VAR^VSITBUL(ERR)

 Q

 ;

WRN(ERR) ; - send warning bulletin

 ;     sent at QUIT^VSIT

 ;     mail group = vsit create error

 D VAR^VSITBUL(ERR)

 Q

VSITPUT   ;ISD/RJP - Verify/Set Fields and File Visit Record ;7/29/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996

 +2       ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect

 +3       ; the incorporation of the module into PCE.  For historical reference,

 +4       ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT

 +5       ; patches.

 +6       ;

 +7       ;;2.0;VISIT TRACKING;;Aug 12, 1996;

 +8       ;

 +9       ; - verify/set visit record fields

 +10      ; - called by ^VSIT

 +11      ;

 +12       NEW FLD,FLDINDX,VSITREC

 +13       SET FLDINDX=""

 +14       FOR 

               SET FLDINDX=$ORDER(^TMP("VSITDD",$JOB,FLDINDX))

               IF FLDINDX=""

                   QUIT 

               Begin DoDot:1

 +15               SET FLD=^TMP("VSITDD",$JOB,FLDINDX)

 +16               IF $PIECE(VSIT(FLDINDX),"^")]""

                       SET $PIECE(VSITREC($PIECE(FLD,";",3)),"^",$PIECE(FLD,";",4))=$PIECE(VSIT(FLDINDX),"^")

               End DoDot:1

 +17      ;

 +18       IF '$DATA(VSITREC(0))

               QUIT 

 +19      ;

 +20       DO ^VSITPUT1

 +21      ;

QUIT      ; - exit

 +1        QUIT 

ERR(ERR)  ; - send error bulletin

 +1       ;     sent at QUIT^VSIT

 +2       ;     mail group = vsit create error

 +3       ;

 +4        DO VAR^VSITBUL(ERR)

 +5        QUIT 

 +6       ;

WRN(ERR)  ; - send warning bulletin

 +1       ;     sent at QUIT^VSIT

 +2       ;     mail group = vsit create error

 +3        DO VAR^VSITBUL(ERR)

 +4        QUIT