- PXKFSK ;ISL/JVS - Fields for V SKIN TEST file ;Mar 06, 2018@15:25
- ;;1.0;PCE PATIENT CARE ENCOUNTER;**22,124,210,217**;Aug 12, 1996;Build 134
- ; Adding or Editing of data in a particular field can be controlled
- ;by adding a ~ as a delimiter and the letters A and/or E to the
- ;end of the line of text which represents what could be added
- ;to the DR string in a DIE call.
- ; 1. If none or all three(~AE) of these characters are added then
- ; the data in this field can be either added or edited.
- ; 2. If only the ~ is added then the data in this field can be
- ; neither added or edited.
- ; 3. IF only the ~A is added then the data can only be added to
- ; the file for this field but not edited.
- ; 4. If only the ~E is added the the data can only be edited in
- ; this file for this field. (not a likely possibility)
- ;
- ; The word option in front of the line of text below tells the
- ;software to determine,based on the data, the appropriateness
- ;of using either a "///" or "////" stuff in a DIE call.
- ;
- ; The information on line tag 0 $P(,," * ",1) are the piece numbers
- ;of the fields on the zero node that are required by the data
- ;dictionary and are checked for to determine if enough data is present
- ;to proceed without any errors. $P(,," * ",2) are the nodes and
- ;piece numbers of the fields used to determine duplicates in the
- ;file (node+piece (eg. 12+4)). $P(,," * ",3) is a flag use to
- ;determine if duplicates are allowed in this visit file.
- ;If it is set to 0 then no duplicate checks will occur. If it is
- ;set to 1 then the file will be checked for duplicates based on
- ;the information in $P 2.
- ;
- ; The following is the file's global name. Each global must have a
- ;unique name and can not have any subscripts as part of the global root.
- GLOBAL ;;^AUPNVSK
- ;
- EN1 ;
- S PXKER=""
- S PXKER=$P($T(@PXKNOD+PXKPCE),";;",2)
- Q
- EN2 ;
- S PXKFD=""
- S PXKFD=$P($T(@PXKNOD+PXKPCE),";;",2) D
- .I PXKFD="" S PXKPCE=PXKPCE+1 D EN2
- Q
- ADD ;Add an entry to the file
- Q
- 0 ;;1,2,3 * 0+1,0+3 * 0
- ;;.01///^S X=$G(
- ;;.02////^S X=$G(
- ;;.03////^S X=$G(
- ;;.04///^S X=$G(
- ;;.05////^S X=$G(
- ;;.06////^S X=$G(
- ;;.07////^S X=$G(
- 12 ;;
- ;;1201///^S X=$G(
- ;;1202////^S X=$G(
- ;;
- ;;1204////^S X=$G(
- ;;
- ;;
- ;;
- ;;1208////^S X=$G(
- ;;
- ;;
- ;;1211////^S X=$G(
- ;;1212////^S X=$G(
- ;;
- ;;1214////^S X=$G(
- ;;
- ;;
- ;;
- ;;
- ;;
- ;;1220////^S X=$G(
- ;;
- 13 ;;
- ;;1301///^S X=$G(
- ;;
- 80 ;;
- ;;801////^S X=$G(
- ;;802////^S X=$G(
- ;;803////^S X=$G(
- ;;804////^S X=$G(
- ;;805////^S X=$G(
- ;;806////^S X=$G(
- ;;807////^S X=$G(
- ;;808////^S X=$G(
- 801 ;;
- ;;80101///^S X=1;
- ;;80102///^S X=$G(PXKAUDIT);
- 811 ;;
- ;;81101///^S X=$G(
- 812 ;;
- ;;81201///^S X=$G(
- ;;81202////^S X=$G(
- ;;81203////^S X=$G(
- SPEC ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXKFSK 2813 printed Jan 18, 2025@03:30:21 Page 2
- PXKFSK ;ISL/JVS - Fields for V SKIN TEST file ;Mar 06, 2018@15:25
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**22,124,210,217**;Aug 12, 1996;Build 134
- +2 ; Adding or Editing of data in a particular field can be controlled
- +3 ;by adding a ~ as a delimiter and the letters A and/or E to the
- +4 ;end of the line of text which represents what could be added
- +5 ;to the DR string in a DIE call.
- +6 ; 1. If none or all three(~AE) of these characters are added then
- +7 ; the data in this field can be either added or edited.
- +8 ; 2. If only the ~ is added then the data in this field can be
- +9 ; neither added or edited.
- +10 ; 3. IF only the ~A is added then the data can only be added to
- +11 ; the file for this field but not edited.
- +12 ; 4. If only the ~E is added the the data can only be edited in
- +13 ; this file for this field. (not a likely possibility)
- +14 ;
- +15 ; The word option in front of the line of text below tells the
- +16 ;software to determine,based on the data, the appropriateness
- +17 ;of using either a "///" or "////" stuff in a DIE call.
- +18 ;
- +19 ; The information on line tag 0 $P(,," * ",1) are the piece numbers
- +20 ;of the fields on the zero node that are required by the data
- +21 ;dictionary and are checked for to determine if enough data is present
- +22 ;to proceed without any errors. $P(,," * ",2) are the nodes and
- +23 ;piece numbers of the fields used to determine duplicates in the
- +24 ;file (node+piece (eg. 12+4)). $P(,," * ",3) is a flag use to
- +25 ;determine if duplicates are allowed in this visit file.
- +26 ;If it is set to 0 then no duplicate checks will occur. If it is
- +27 ;set to 1 then the file will be checked for duplicates based on
- +28 ;the information in $P 2.
- +29 ;
- +30 ; The following is the file's global name. Each global must have a
- +31 ;unique name and can not have any subscripts as part of the global root.
- GLOBAL ;;^AUPNVSK
- +1 ;
- EN1 ;
- +1 SET PXKER=""
- +2 SET PXKER=$PIECE($TEXT(@PXKNOD+PXKPCE),";;",2)
- +3 QUIT
- EN2 ;
- +1 SET PXKFD=""
- +2 SET PXKFD=$PIECE($TEXT(@PXKNOD+PXKPCE),";;",2)
- Begin DoDot:1
- +3 IF PXKFD=""
- SET PXKPCE=PXKPCE+1
- DO EN2
- End DoDot:1
- +4 QUIT
- ADD ;Add an entry to the file
- +1 QUIT
- 0 ;;1,2,3 * 0+1,0+3 * 0
- +1 ;;.01///^S X=$G(
- +2 ;;.02////^S X=$G(
- +3 ;;.03////^S X=$G(
- +4 ;;.04///^S X=$G(
- +5 ;;.05////^S X=$G(
- +6 ;;.06////^S X=$G(
- +7 ;;.07////^S X=$G(
- 12 ;;
- +1 ;;1201///^S X=$G(
- +2 ;;1202////^S X=$G(
- +3 ;;
- +4 ;;1204////^S X=$G(
- +5 ;;
- +6 ;;
- +7 ;;
- +8 ;;1208////^S X=$G(
- +9 ;;
- +10 ;;
- +11 ;;1211////^S X=$G(
- +12 ;;1212////^S X=$G(
- +13 ;;
- +14 ;;1214////^S X=$G(
- +15 ;;
- +16 ;;
- +17 ;;
- +18 ;;
- +19 ;;
- +20 ;;1220////^S X=$G(
- +21 ;;
- 13 ;;
- +1 ;;1301///^S X=$G(
- +2 ;;
- 80 ;;
- +1 ;;801////^S X=$G(
- +2 ;;802////^S X=$G(
- +3 ;;803////^S X=$G(
- +4 ;;804////^S X=$G(
- +5 ;;805////^S X=$G(
- +6 ;;806////^S X=$G(
- +7 ;;807////^S X=$G(
- +8 ;;808////^S X=$G(
- 801 ;;
- +1 ;;80101///^S X=1;
- +2 ;;80102///^S X=$G(PXKAUDIT);
- 811 ;;
- +1 ;;81101///^S X=$G(
- 812 ;;
- +1 ;;81201///^S X=$G(
- +2 ;;81202////^S X=$G(
- +3 ;;81203////^S X=$G(
- SPEC ;
- +1 QUIT