source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXKFSK.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

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