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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVSITPUT 1022 printed Dec 13, 2024@02:32:39 Page 2
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
