Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXKFSK

PXKFSK.m

Go to the documentation of this file.
  1. 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
  1. ; Adding or Editing of data in a particular field can be controlled
  1. ;by adding a ~ as a delimiter and the letters A and/or E to the
  1. ;end of the line of text which represents what could be added
  1. ;to the DR string in a DIE call.
  1. ; 1. If none or all three(~AE) of these characters are added then
  1. ; the data in this field can be either added or edited.
  1. ; 2. If only the ~ is added then the data in this field can be
  1. ; neither added or edited.
  1. ; 3. IF only the ~A is added then the data can only be added to
  1. ; the file for this field but not edited.
  1. ; 4. If only the ~E is added the the data can only be edited in
  1. ; this file for this field. (not a likely possibility)
  1. ;
  1. ; The word option in front of the line of text below tells the
  1. ;software to determine,based on the data, the appropriateness
  1. ;of using either a "///" or "////" stuff in a DIE call.
  1. ;
  1. ; The information on line tag 0 $P(,," * ",1) are the piece numbers
  1. ;of the fields on the zero node that are required by the data
  1. ;dictionary and are checked for to determine if enough data is present
  1. ;to proceed without any errors. $P(,," * ",2) are the nodes and
  1. ;piece numbers of the fields used to determine duplicates in the
  1. ;file (node+piece (eg. 12+4)). $P(,," * ",3) is a flag use to
  1. ;determine if duplicates are allowed in this visit file.
  1. ;If it is set to 0 then no duplicate checks will occur. If it is
  1. ;set to 1 then the file will be checked for duplicates based on
  1. ;the information in $P 2.
  1. ;
  1. ; The following is the file's global name. Each global must have a
  1. ;unique name and can not have any subscripts as part of the global root.
  1. GLOBAL ;;^AUPNVSK
  1. ;
  1. EN1 ;
  1. S PXKER=""
  1. S PXKER=$P($T(@PXKNOD+PXKPCE),";;",2)
  1. Q
  1. EN2 ;
  1. S PXKFD=""
  1. S PXKFD=$P($T(@PXKNOD+PXKPCE),";;",2) D
  1. .I PXKFD="" S PXKPCE=PXKPCE+1 D EN2
  1. Q
  1. ADD ;Add an entry to the file
  1. Q
  1. 0 ;;1,2,3 * 0+1,0+3 * 0
  1. ;;.01///^S X=$G(
  1. ;;.02////^S X=$G(
  1. ;;.03////^S X=$G(
  1. ;;.04///^S X=$G(
  1. ;;.05////^S X=$G(
  1. ;;.06////^S X=$G(
  1. ;;.07////^S X=$G(
  1. 12 ;;
  1. ;;1201///^S X=$G(
  1. ;;1202////^S X=$G(
  1. ;;
  1. ;;1204////^S X=$G(
  1. ;;
  1. ;;
  1. ;;
  1. ;;1208////^S X=$G(
  1. ;;
  1. ;;
  1. ;;1211////^S X=$G(
  1. ;;1212////^S X=$G(
  1. ;;
  1. ;;1214////^S X=$G(
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;
  1. ;;1220////^S X=$G(
  1. ;;
  1. 13 ;;
  1. ;;1301///^S X=$G(
  1. ;;
  1. 80 ;;
  1. ;;801////^S X=$G(
  1. ;;802////^S X=$G(
  1. ;;803////^S X=$G(
  1. ;;804////^S X=$G(
  1. ;;805////^S X=$G(
  1. ;;806////^S X=$G(
  1. ;;807////^S X=$G(
  1. ;;808////^S X=$G(
  1. 801 ;;
  1. ;;80101///^S X=1;
  1. ;;80102///^S X=$G(PXKAUDIT);
  1. 811 ;;
  1. ;;81101///^S X=$G(
  1. 812 ;;
  1. ;;81201///^S X=$G(
  1. ;;81202////^S X=$G(
  1. ;;81203////^S X=$G(
  1. SPEC ;
  1. Q