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
Q
ADD ;Add an entry to the file
Q
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")
Q
SPEC ;
Q
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
