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

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

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1PXKFHF ;ISL/JVS - FIELDS for V HEALTH FACTORS file ;5/21/96 13:16
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**22**;Aug 12, 1996
3 ;
4 ; Adding or Editing of data in a particular field can be controlled
5 ;by adding a ~ as a delimiter and the letters A and/or E to the
6 ;end of the line of text which represents what could be added
7 ;to the DR string in a DIE call.
8 ; 1. If none or all three(~AE) of these characters are added then
9 ; the data in this field can be either added or edited.
10 ; 2. If only the ~ is added then the data in this field can be
11 ; neither added or edited.
12 ; 3. IF only the ~A is added then the data can only be added to
13 ; the file for this field but not edited.
14 ; 4. If only the ~E is added the the data can only be edited in
15 ; this file for this field. (not a likely possibility)
16 ;
17 ; The word "OPTION" in front of the line of text below tells the
18 ;software to determine,based on the data, the appropriateness
19 ;of using either a "///" or "////" stuff in a DIE call.
20 ;
21 ; The information on line tag 0 $P(,," * ",1) are the piece numbers
22 ;of the fields on the zero node that are required by the data
23 ;dictionary and are checked for to determine if enough data is present
24 ;to proceed without any errors. $P(,," * ",2) are the nodes and
25 ;piece numbers of the fields used to determine duplicates in the
26 ;file (node+piece (eg. 12+4)). $P(,," * ",3) is a flag use to
27 ;determine if duplicates are allowed in this visit file.
28 ;If it is set to 0 then no duplicate checks will occur. If it is
29 ;set to 1 then the file will be checked for duplicates based on
30 ;the information in $P 2.
31 ;
32 ; The following is the file's global name. Each global must have a
33 ;unique name and can not have any subscripts as part of the global root.
34GLOBAL ;;^AUPNVHF
35 ;
36EN1 ;
37 S PXKER=""
38 S PXKER=$P($T(@PXKNOD+PXKPCE),";;",2)
39 Q
40EN2 ;
41 S PXKFD=""
42 S PXKFD=$P($T(@PXKNOD+PXKPCE),";;",2) D
43 .I PXKFD="" S PXKPCE=PXKPCE+1 D EN2
44 Q
45ADD ;Add an entry to the file
46 Q
470 ;;1,2,3 * 0+1,0+2,0+3 * 1
48 ;;.01////^S X=$G(
49 ;;.02////^S X=$G(
50 ;;.03////^S X=$G(
51 ;;.04///^S X=$G(
52 ;;.05////^S X=$G(
5312 ;;
54 ;;1201////^S X=$G(
55 ;;1202////^S X=$G(
56 ;;
57 ;;1204////^S X=$G(
58 ;;
59 ;;
60801 ;;
61 ;;80101///^S X=1;
62 ;;80102///^S X=$G(PXKAUDIT);
63811 ;;
64 ;;81101///^S X=$G(
65812 ;;
66 ;;81201///^S X=$G(
67 ;;81202////^S X=$G(
68 ;;81203////^S X=$G(
69SPEC ;
70 Q
Note: See TracBrowser for help on using the repository browser.