source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/VSITCK.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1VSITCK ;ISD/RJP - Visit Field Check ;6/20/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
3 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
4 ; the incorporation of the module into PCE. For historical reference,
5 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
6 ; patches.
7 ;
8 ;;2.0;VISIT TRACKING;;Aug 12, 1996;
9 ;
10 Q ; - not an entry point
11 ;
12ERRCHK(NODE,VALUE,DATEFMT) ;Checks the value to see if it is valid
13 ;Returns:
14 ; value if it is valid
15 ; null in the first piece if it is not valid
16 ; and the error message form VSITFLD if there is one
17 ;
18 S NODE=$G(NODE)
19 S VALUE=$G(VALUE)
20 N ERR
21 I $P($G(^TMP("VSITDD",$J,NODE)),";",5)]"" S ERR="^"_$P(^TMP("VSITDD",$J,NODE),";",1)_"^"_VALUE_"^"_$P(^TMP("VSITDD",$J,NODE),";",5)
22 E S ERR=""
23 S VALUE=$G(VALUE)
24 S:VALUE]"" VALUE=$$GET^VSITVAR(NODE,VALUE,"",$G(DATEFMT))
25 S:VALUE']"" VALUE=ERR
26 Q VALUE
27 ;
28SETALL ;Do $GET on all of the nodes of the VSIT array
29 N FLDINDX
30 S FLDINDX=""
31 F S FLDINDX=$O(^TMP("VSITDD",$J,FLDINDX)) Q:FLDINDX="" D
32 . S VSIT(FLDINDX)=$G(VSIT(FLDINDX))
33 S VSIT(0)=$G(VSIT(0))
34 Q
35 ;
Note: See TracBrowser for help on using the repository browser.