VSITCK.m

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 ---VSITCK   1155     printed  Apr 09, 2024@21:27:54                                                                                                                                                                                                      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       ;