Routine: PXKFVST

PXKFVST ;ISL/JVS - Fields for VISIT file ;7/29/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**22,56,111**;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 ;;^AUPNVSIT

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

ADD ;Add an entry to the file

0 ;;1,3,5,7,8,22 *  * 0

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

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

;;

 ;;.03///^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(~

;;

;;

;;

;;

 ;;.18///^S X=$G(~

;;

;;

 ;;.21////^S X=$G(~

 ;;.22////^S X=$G(~

 ;;.23////^S X=$G(~

 ;;.24////^S X=$G(~

21 ;;

 ;;2101///^S X=$G(~

800 ;;

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

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

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

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

 ;;80005///^S X=$G(~ ;added 6/17/98 for MST enhancement

 ;;80006///^S X=$G(~ ;PX*1*111 - added for HNC enhancement

812 ;;

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

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

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

UPD ;Up date visit file using visit tracking

 ;--new VSIT to make sure that non are left around after call

 N PXTMPVST

 S PXTMPVST=VSIT("IEN")

 N VSIT

 S VSIT("IEN")=PXTMPVST

 I $G(PXKAV(0,8))]"" D

 .I PXKAV(0,8)="@" S VSIT("DSS")="@"

 .E  D

 ..K ^UTILITY("DIQ1",$J)

 ..S DIC=40.7,DA=+$G(PXKAV(0,8)),DIQ(0)="I",DR=1 D EN^DIQ1

 ..S VSIT("DSS")=$G(^UTILITY("DIQ1",$J,40.7,DA,1,"I"))

 K ^UTILITY("DIQ1",$J),DIQ,DR,DA,DIC

 I $G(PXKAV(0,6))]"" S VSIT("INS")=$G(PXKAV(0,6))

 I $G(PXKAV(0,18))]"" S VSIT("COD")=$G(PXKAV(0,18))

 ;--cannot edit "ELG"

 I $G(PXKAV(0,22))]"" S VSIT("LOC")=$G(PXKAV(0,22))

 N PXOLD800

 S PXOLD800=$G(^AUPNVSIT(VSIT("IEN"),800))

 I $G(PXKAV(800,1))=1 D

 .I $P(PXOLD800,"^",2)'="" S PXKAV(800,2)="@"

 .I $P(PXOLD800,"^",3)'="" S PXKAV(800,3)="@"

 .I $P(PXOLD800,"^",4)'="" S PXKAV(800,4)="@"

 .I $P(PXOLD800,"^",5)'="" S PXKAV(800,5)="@" ;added 6/17/98 for MST enhancement

 .;PX*1*111 - added for HNC enhancement

 .I $P(PXOLD800,"^",6)'="" S PXKAV(800,6)="@"

 I $G(PXKAV(800,1))]"" S VSIT("SC")=$G(PXKAV(800,1))

 I $G(PXKAV(800,2))]"" S VSIT("AO")=$G(PXKAV(800,2))

 I $G(PXKAV(800,3))]"" S VSIT("IR")=$G(PXKAV(800,3))

 I $G(PXKAV(800,4))]"" S VSIT("EC")=$G(PXKAV(800,4))

 I $G(PXKAV(800,5))]"" S VSIT("MST")=$G(PXKAV(800,5)) ;added 6/17/98 for MST enhancement

 ;PX*1*111 - added for HNC enhancement

 I $G(PXKAV(800,6))]"" S VSIT("HNC")=$G(PXKAV(800,6))

 D UPD^VSIT

 K VSIT("DSS"),VSIT("COD"),VSIT("SC"),VSIT("AO"),VSIT("IR"),VSIT("EC")

 K VSIT("LOC"),VSIT("INS"),VSIT("ELG"),VSIT("MDT")

 ;PX*1*111 - added for HNC enhancement

 K VSIT("MST"),VSIT("HNC")

SPEC ;

PXKFVST   ;ISL/JVS - Fields for VISIT file ;7/29/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**22,56,111**;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    ;;^AUPNVSIT

 +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,3,5,7,8,22 *  * 0

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

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

 +3       ;;

 +4       ;;.03///^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      ;;

 +15      ;;

 +16      ;;

 +17      ;;

 +18      ;;.18///^S X=$G(~

 +19      ;;

 +20      ;;

 +21      ;;.21////^S X=$G(~

 +22      ;;.22////^S X=$G(~

 +23      ;;.23////^S X=$G(~

 +24      ;;.24////^S X=$G(~

21        ;;

 +1       ;;2101///^S X=$G(~

800       ;;

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

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

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

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

 +5       ;;80005///^S X=$G(~ ;added 6/17/98 for MST enhancement

 +6       ;;80006///^S X=$G(~ ;PX*1*111 - added for HNC enhancement

812       ;;

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

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

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

 +4       ;

UPD       ;Up date visit file using visit tracking

 +1       ;--new VSIT to make sure that non are left around after call

 +2        NEW PXTMPVST

 +3        SET PXTMPVST=VSIT("IEN")

 +4        NEW VSIT

 +5        SET VSIT("IEN")=PXTMPVST

 +6        IF $GET(PXKAV(0,8))]""

               Begin DoDot:1

 +7                IF PXKAV(0,8)="@"

                       SET VSIT("DSS")="@"

 +8               IF '$TEST

                       Begin DoDot:2

 +9                        KILL ^UTILITY("DIQ1",$JOB)

 +10                       SET DIC=40.7

                           SET DA=+$GET(PXKAV(0,8))

                           SET DIQ(0)="I"

                           SET DR=1

                           DO EN^DIQ1

 +11                       SET VSIT("DSS")=$GET(^UTILITY("DIQ1",$JOB,40.7,DA,1,"I"))

                       End DoDot:2

               End DoDot:1

 +12       KILL ^UTILITY("DIQ1",$JOB),DIQ,DR,DA,DIC

 +13       IF $GET(PXKAV(0,6))]""

               SET VSIT("INS")=$GET(PXKAV(0,6))

 +14       IF $GET(PXKAV(0,18))]""

               SET VSIT("COD")=$GET(PXKAV(0,18))

 +15      ;--cannot edit "ELG"

 +16       IF $GET(PXKAV(0,22))]""

               SET VSIT("LOC")=$GET(PXKAV(0,22))

 +17      ;

 +18       NEW PXOLD800

 +19       SET PXOLD800=$GET(^AUPNVSIT(VSIT("IEN"),800))

 +20       IF $GET(PXKAV(800,1))=1

               Begin DoDot:1

 +21               IF $PIECE(PXOLD800,"^",2)'=""

                       SET PXKAV(800,2)="@"

 +22               IF $PIECE(PXOLD800,"^",3)'=""

                       SET PXKAV(800,3)="@"

 +23               IF $PIECE(PXOLD800,"^",4)'=""

                       SET PXKAV(800,4)="@"

 +24      ;added 6/17/98 for MST enhancement

                   IF $PIECE(PXOLD800,"^",5)'=""

                       SET PXKAV(800,5)="@"

 +25      ;PX*1*111 - added for HNC enhancement

 +26               IF $PIECE(PXOLD800,"^",6)'=""

                       SET PXKAV(800,6)="@"

               End DoDot:1

 +27      ;

 +28       IF $GET(PXKAV(800,1))]""

               SET VSIT("SC")=$GET(PXKAV(800,1))

 +29       IF $GET(PXKAV(800,2))]""

               SET VSIT("AO")=$GET(PXKAV(800,2))

 +30       IF $GET(PXKAV(800,3))]""

               SET VSIT("IR")=$GET(PXKAV(800,3))

 +31       IF $GET(PXKAV(800,4))]""

               SET VSIT("EC")=$GET(PXKAV(800,4))

 +32      ;added 6/17/98 for MST enhancement

           IF $GET(PXKAV(800,5))]""

               SET VSIT("MST")=$GET(PXKAV(800,5))

 +33      ;PX*1*111 - added for HNC enhancement

 +34       IF $GET(PXKAV(800,6))]""

               SET VSIT("HNC")=$GET(PXKAV(800,6))

 +35       DO UPD^VSIT

 +36       KILL VSIT("DSS"),VSIT("COD"),VSIT("SC"),VSIT("AO"),VSIT("IR"),VSIT("EC")

 +37       KILL VSIT("LOC"),VSIT("INS"),VSIT("ELG"),VSIT("MDT")

 +38      ;PX*1*111 - added for HNC enhancement

 +39       KILL VSIT("MST"),VSIT("HNC")

 +40       QUIT

SPEC      ;

 +1        QUIT

PXKFVST.m