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

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

initial load of WorldVistAEHR

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