| [613] | 1 | PXKFPOV ;ISL/JVS - Fields for V PURPOSE OF VISIT (POV) file ;3/1/04 10:46am
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**22,130,124**;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 ;;^AUPNVPOV
|
|---|
| 35 | ;
|
|---|
| 36 | EN1 ;
|
|---|
| 37 | S PXKER=""
|
|---|
| 38 | S PXKER=$P($T(@PXKNOD+PXKPCE),";;",2) Q
|
|---|
| 39 | EN2 ;
|
|---|
| 40 | S PXKFD=""
|
|---|
| 41 | S PXKFD=$P($T(@PXKNOD+PXKPCE),";;",2) D
|
|---|
| 42 | .I PXKFD="" S PXKPCE=PXKPCE+1 D EN2
|
|---|
| 43 | Q
|
|---|
| 44 | ADD ;Add an entry to the file
|
|---|
| 45 | Q
|
|---|
| 46 | 0 ;;1,2,3,4 * 0+1,0+3 * 1
|
|---|
| 47 | ;;.01////^S X=$G(
|
|---|
| 48 | ;;.02////^S X=$G(
|
|---|
| 49 | ;;.03////^S X=$G(
|
|---|
| 50 | ;;OPTION * .04////^S X=$G( * .04///^S X=$G(
|
|---|
| 51 | ;;.05///^S X=$G(
|
|---|
| 52 | ;;.06///^S X=$G(
|
|---|
| 53 | ;;.07///^S X=$G(
|
|---|
| 54 | ;;.08///^S X=$G(
|
|---|
| 55 | ;;.09////^S X=$G(
|
|---|
| 56 | ;;
|
|---|
| 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(
|
|---|
| 62 | ;;.16////^S X=$G(
|
|---|
| 63 | ;;.17///^S X=$G(
|
|---|
| 64 | 12 ;;
|
|---|
| 65 | ;;1201////^S X=$G(
|
|---|
| 66 | ;;1202////^S X=$G(
|
|---|
| 67 | ;;
|
|---|
| 68 | ;;1204////^S X=$G(
|
|---|
| 69 | ;;
|
|---|
| 70 | ;;
|
|---|
| 71 | 800 ;;
|
|---|
| 72 | ;;80001///^S X=$G(
|
|---|
| 73 | ;;80002///^S X=$G(
|
|---|
| 74 | ;;80003///^S X=$G(
|
|---|
| 75 | ;;80004///^S X=$G(
|
|---|
| 76 | ;;80005///^S X=$G(
|
|---|
| 77 | ;;80006///^S X=$G(
|
|---|
| 78 | ;;80007///^S X=$G(
|
|---|
| 79 | 801 ;;
|
|---|
| 80 | ;;80101///^S X=1;
|
|---|
| 81 | ;;80102///^S X=$G(PXKAUDIT);
|
|---|
| 82 | 802 ;;
|
|---|
| 83 | ;;OPTION * 80201////^S X=$G( * 80201///^S X=$G(
|
|---|
| 84 | 811 ;;
|
|---|
| 85 | ;;81101///^S X=$G(
|
|---|
| 86 | 812 ;;
|
|---|
| 87 | ;;81201///^S X=$G(
|
|---|
| 88 | ;;81202////^S X=$G(
|
|---|
| 89 | ;;81203////^S X=$G(
|
|---|
| 90 | SPEC ;
|
|---|
| 91 | Q
|
|---|
