- VSITCK ;ISD/RJP - Visit Field Check ;6/20/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;
- ;
- Q ; - not an entry point
- ;
- ERRCHK(NODE,VALUE,DATEFMT) ;Checks the value to see if it is valid
- ;Returns:
- ; value if it is valid
- ; null in the first piece if it is not valid
- ; and the error message form VSITFLD if there is one
- ;
- S NODE=$G(NODE)
- S VALUE=$G(VALUE)
- N ERR
- I $P($G(^TMP("VSITDD",$J,NODE)),";",5)]"" S ERR="^"_$P(^TMP("VSITDD",$J,NODE),";",1)_"^"_VALUE_"^"_$P(^TMP("VSITDD",$J,NODE),";",5)
- E S ERR=""
- S VALUE=$G(VALUE)
- S:VALUE]"" VALUE=$$GET^VSITVAR(NODE,VALUE,"",$G(DATEFMT))
- S:VALUE']"" VALUE=ERR
- Q VALUE
- ;
- SETALL ;Do $GET on all of the nodes of the VSIT array
- N FLDINDX
- S FLDINDX=""
- F S FLDINDX=$O(^TMP("VSITDD",$J,FLDINDX)) Q:FLDINDX="" D
- . S VSIT(FLDINDX)=$G(VSIT(FLDINDX))
- S VSIT(0)=$G(VSIT(0))
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVSITCK 1155 printed Feb 18, 2025@23:58:44 Page 2
- VSITCK ;ISD/RJP - Visit Field Check ;6/20/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 ; - not an entry point
- QUIT
- +10 ;
- ERRCHK(NODE,VALUE,DATEFMT) ;Checks the value to see if it is valid
- +1 ;Returns:
- +2 ; value if it is valid
- +3 ; null in the first piece if it is not valid
- +4 ; and the error message form VSITFLD if there is one
- +5 ;
- +6 SET NODE=$GET(NODE)
- +7 SET VALUE=$GET(VALUE)
- +8 NEW ERR
- +9 IF $PIECE($GET(^TMP("VSITDD",$JOB,NODE)),";",5)]""
- SET ERR="^"_$PIECE(^TMP("VSITDD",$JOB,NODE),";",1)_"^"_VALUE_"^"_$PIECE(^TMP("VSITDD",$JOB,NODE),";",5)
- +10 IF '$TEST
- SET ERR=""
- +11 SET VALUE=$GET(VALUE)
- +12 if VALUE]""
- SET VALUE=$$GET^VSITVAR(NODE,VALUE,"",$GET(DATEFMT))
- +13 if VALUE']""
- SET VALUE=ERR
- +14 QUIT VALUE
- +15 ;
- SETALL ;Do $GET on all of the nodes of the VSIT array
- +1 NEW FLDINDX
- +2 SET FLDINDX=""
- +3 FOR
- SET FLDINDX=$ORDER(^TMP("VSITDD",$JOB,FLDINDX))
- if FLDINDX=""
- QUIT
- Begin DoDot:1
- +4 SET VSIT(FLDINDX)=$GET(VSIT(FLDINDX))
- End DoDot:1
- +5 SET VSIT(0)=$GET(VSIT(0))
- +6 QUIT
- +7 ;
