| [613] | 1 | PXKFCPT ;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.
|
|---|
| 35 | GLOBAL ;;^AUPNVCPT
|
|---|
| 36 | ;
|
|---|
| 37 | EN1 ;
|
|---|
| 38 | S PXKER=""
|
|---|
| 39 | S PXKER=$P($T(@PXKNOD+PXKPCE),";;",2)
|
|---|
| 40 | Q
|
|---|
| 41 | EN2 ;
|
|---|
| 42 | S PXKFD=""
|
|---|
| 43 | S PXKFD=$P($T(@PXKNOD+PXKPCE),";;",2) D
|
|---|
| 44 | .I PXKFD="" S PXKPCE=PXKPCE+1 D EN2
|
|---|
| 45 | Q
|
|---|
| 46 | ADD ;Add an entry to the file
|
|---|
| 47 | Q
|
|---|
| 48 | 0 ;;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(
|
|---|
| 69 | 1 ;;
|
|---|
| 70 | ;;.01///^S X=$G(
|
|---|
| 71 | 12 ;;
|
|---|
| 72 | ;;1201////^S X=$G(
|
|---|
| 73 | ;;1202////^S X=$G(
|
|---|
| 74 | ;;
|
|---|
| 75 | ;;1204////^S X=$G(
|
|---|
| 76 | 801 ;;
|
|---|
| 77 | ;;80101///^S X=1;
|
|---|
| 78 | ;;80102///^S X=$G(PXKAUDIT);
|
|---|
| 79 | 802 ;;
|
|---|
| 80 | ;;OPTION * 80201////^S X=$G( * 80201///^S X=$G(
|
|---|
| 81 | 811 ;;
|
|---|
| 82 | ;;81101///^S X=$G(
|
|---|
| 83 | 812 ;;
|
|---|
| 84 | ;;81201///^S X=$G(
|
|---|
| 85 | ;;81202////^S X=$G(
|
|---|
| 86 | ;;81203////^S X=$G(
|
|---|
