PXKFPOV.m

PXKFPOV ;ISL/JVS - Fields for V PURPOSE OF VISIT (POV) file ;5/21/96  13:17

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**22**;Aug 12, 1996

 ;

 ;  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 ;;^AUPNVPOV

 ;

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,4 * 0+1,0+3,0+4 * 1

 ;;.01////^S X=$G(

 ;;.02////^S X=$G(

 ;;.03////^S X=$G(

 ;;OPTION * .04////^S X=$G( * .04///^S X=$G(

 ;;.05///^S X=$G(

 ;;.06///^S X=$G(

 ;;.07///^S X=$G(

 ;;.08///^S X=$G(

 ;;.09////^S X=$G(

 ;;

 ;;.11///^S X=$G(

 ;;.12///^S X=$G(

 ;;.13///^S X=$G(

 ;;.14////^S X=$G(

 ;;.15////^S X=$G(

 ;;.16////^S X=$G(

12 ;;

 ;;1201////^S X=$G(

 ;;1202////^S X=$G(

 ;;

 ;;1204////^S X=$G(

 ;;

 ;;

800 ;;

 ;;80001///^S X=$G(

 ;;80002///^S X=$G(

 ;;80003///^S X=$G(

 ;;80004///^S X=$G(

801 ;;

 ;;80101///^S X=1;

 ;;80102///^S X=$G(PXKAUDIT);

802 ;;

 ;;OPTION * 80201////^S X=$G( * 80201///^S X=$G(

811 ;;

 ;;81101///^S X=$G(

812 ;;

 ;;81201///^S X=$G(

 ;;81202////^S X=$G(

 ;;81203////^S X=$G(

SPEC ;

 Q

PXKFPOV   ;ISL/JVS - Fields for V PURPOSE OF VISIT (POV) file ;5/21/96  13:17

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**22**;Aug 12, 1996

 +2       ;

 +3       ;  Adding or Editing of data in a particular field can be controlled

 +4       ;by adding a ~ as a delimiter and the letters A and/or E to the

 +5       ;end of the line of text which represents what could be added

 +6       ;to the DR string in a DIE call.

 +7       ; 1. If none or all three(~AE) of these characters are added then

 +8       ;    the data in this field can be either added or edited.

 +9       ; 2. If only the ~ is added then the data in this field can be

 +10      ;    neither added or edited.

 +11      ; 3. IF only the ~A is added then the data can only be added to

 +12      ;    the file for this field but not edited.

 +13      ; 4. If only the ~E is added the the data can only be edited in

 +14      ;    this file for this field. (not a likely possibility)

 +15      ;

 +16      ; The word "OPTION" in front of the line of text below tells the 

 +17      ;software to determine,based on the data, the appropriateness

 +18      ;of using either a "///" or "////" stuff in a DIE call.

 +19      ;

 +20      ; The information on line tag 0 $P(,," * ",1) are the piece numbers

 +21      ;of the fields on the zero node that are required by the data

 +22      ;dictionary and are checked for to determine if enough data is present

 +23      ;to proceed without any errors. $P(,," * ",2) are the nodes and

 +24      ;piece numbers of the fields used to determine duplicates in the

 +25      ;file (node+piece (eg. 12+4)). $P(,," * ",3) is a flag use to

 +26      ;determine if duplicates are allowed in this visit file. 

 +27      ;If it is set to 0 then no duplicate checks will occur. If it is

 +28      ;set to 1 then the file will be checked for duplicates based on

 +29      ;the information in $P 2.

 +30      ;

 +31      ; The following is the file's global name.  Each global must have a

 +32      ;unique name and can not have any subscripts as part of the global root.

GLOBAL    ;;^AUPNVPOV

 +1       ;

EN1       ;

 +1        SET PXKER=""

 +2        SET PXKER=$PIECE($TEXT(@PXKNOD+PXKPCE),";;",2)

           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,4 * 0+1,0+3,0+4 * 1

 +1       ;;.01////^S X=$G(

 +2       ;;.02////^S X=$G(

 +3       ;;.03////^S X=$G(

 +4       ;;OPTION * .04////^S X=$G( * .04///^S X=$G(

 +5       ;;.05///^S X=$G(

 +6       ;;.06///^S X=$G(

 +7       ;;.07///^S X=$G(

 +8       ;;.08///^S X=$G(

 +9       ;;.09////^S X=$G(

 +10      ;;

 +11      ;;.11///^S X=$G(

 +12      ;;.12///^S X=$G(

 +13      ;;.13///^S X=$G(

 +14      ;;.14////^S X=$G(

 +15      ;;.15////^S X=$G(

 +16      ;;.16////^S X=$G(

12        ;;

 +1       ;;1201////^S X=$G(

 +2       ;;1202////^S X=$G(

 +3       ;;

 +4       ;;1204////^S X=$G(

 +5       ;;

 +6       ;;

800       ;;

 +1       ;;80001///^S X=$G(

 +2       ;;80002///^S X=$G(

 +3       ;;80003///^S X=$G(

 +4       ;;80004///^S X=$G(

801       ;;

 +1       ;;80101///^S X=1;

 +2       ;;80102///^S X=$G(PXKAUDIT);

802       ;;

 +1       ;;OPTION * 80201////^S X=$G( * 80201///^S X=$G(

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