| [613] | 1 | PXKFTRT ;ISL/JVS - Fields for v cpt file ;7/25/96 08:35
|
|---|
| 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.
|
|---|
| 34 | GLOBAL ;;^AUPNVTRT
|
|---|
| 35 | ;
|
|---|
| 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 * 0+1,0+6,12+4 * 1
|
|---|
| 49 | ;;.01////^S X=$G(
|
|---|
| 50 | ;;.02////^S X=$G(
|
|---|
| 51 | ;;.03////^S X=$G(
|
|---|
| 52 | ;;.04///^S X=$G(
|
|---|
| 53 | ;;.05////^S X=$G(
|
|---|
| 54 | ;;OPTION * .06////^S X=$G( * .06///^S X=$G(
|
|---|
| 55 | 12 ;;
|
|---|
| 56 | ;;1201////^S X=$G(
|
|---|
| 57 | ;;1202////^S X=$G(
|
|---|
| 58 | ;;
|
|---|
| 59 | ;;1204////^S X=$G(
|
|---|
| 60 | ;;
|
|---|
| 61 | ;;
|
|---|
| 62 | 801 ;;
|
|---|
| 63 | ;;80101///^S X=1;
|
|---|
| 64 | ;;80102///^S X=$G(PXKAUDIT);
|
|---|
| 65 | 802 ;;
|
|---|
| 66 | ;;OPTION * 80201////^S X=$G( * 80201///^S X=$G(
|
|---|
| 67 | 811 ;;
|
|---|
| 68 | ;;81101///^S X=$G(
|
|---|
| 69 | 812 ;;
|
|---|
| 70 | ;;81201///^S X=$G(
|
|---|
| 71 | ;;81202////^S X=$G(
|
|---|
| 72 | ;;81203////^S X=$G(
|
|---|
| 73 | SPEC ;
|
|---|
| 74 | Q
|
|---|
