PXBSTOR ;ISL/JVS - PASSING THE DATA TO THE V FILES ;7/24/96 10:29
;;1.0;PCE PATIENT CARE ENCOUNTER;**73,88**;Aug 12, 1996
;
;
; VARIABLE LIST
; PEICE 1 2 3 4 5 6 7 8 9
; REQ*=PROVDER^PRIMARY^CPT^QUANTITY^POV^PRIMARY^PRV IEN^CPT IEN^POV IEN
; PEICE 10 11
; REQ STOPCODE^STOPCODE IEN
; REQ(1,MODIFIER)*=""
; REQ("IEN")=V CPT file IEN
; REQI=Internal Values
; REQE=External Values
; PXBVST=Visit Ien
; PRVIEN=Provider IEN in V Provider file
; CPTIEN=CPT IEN in the V CPT file
; POVIEN=POV INE in the V POV file
; patient is defined form the visit
;
EN0(PXBVST,PATIENT,REQI,REQ) ;--Main Entry point
EN1 ;
Q:'$D(REQI)
K ^TMP("PXK",$J) ;--MUST BE MOVED TO AFTER THE EVENT
N PRVIEN,CPTIEN,POVIEN,PRVBEF,CPTBEF,POVBEF,PPRNARR,CPRNARR
N POVBEF12,PRVAFT,PRVAFT12,PRVBEF12
N CPTAFT,CPTAFT1,CPTBEF1,CPTAFT12,CPTBEF12
N POVAFT12,POVAFT,POVI
N PRVBF812,CPTBF812,POVBF812,PRVAF812,CPTAF812,POVAF812
N SEQ
IEN ;--SET IENS OF EACH FILE
S PRVIEN=$P(REQI,"^",7) I PRVIEN]"" D
.S PRVBEF=$G(^AUPNVPRV($P(REQI,"^",7),0))
.S PRVBEF12=$G(^AUPNVPRV($P(REQI,"^",7),12))
.S PRVBF812=$G(^AUPNVPRV($P(REQI,"^",7),812))
E S (PRVBEF,PRVBEF12,PRVBF812)=""
S CPTIEN=$P(REQI,"^",8)
I CPTIEN]"" D
.S CPTBEF=$G(^AUPNVCPT($P(REQI,"^",8),0))
.;Build array for cpt modifiers
.N SUBIEN
.S SUBIEN=0
.F S SUBIEN=$O(^AUPNVCPT($P(REQI,"^",8),1,SUBIEN)) Q:'SUBIEN D
..S CPTBEF1(SUBIEN)=$G(^AUPNVCPT($P(REQI,"^",8),1,SUBIEN,0))
.S CPTBEF12=$G(^AUPNVCPT($P(REQI,"^",8),12))
.S CPTBF812=$G(^AUPNVCPT($P(REQI,"^",8),812))
E S (CPTBEF,CPTBEF12,CPTBF812)=""
S POVIEN=$P(REQI,"^",9) I POVIEN]"" D
.S POVBEF=$G(^AUPNVPOV($P(REQI,"^",9),0))
.S POVBEF12=$G(^AUPNVPOV($P(REQI,"^",9),12))
.S POVBF812=$G(^AUPNVPOV($P(REQI,"^",9),812))
E S (POVBEF,POVBEF12,POVBF812)=""
;
SET ;--SET TEMP GLOBALS
D MISC
I '$D(^TMP("PXBSTOR",$J,"SEQ")) S SEQ=1
I $D(^TMP("PXBSTOR",$J,"SEQ")) S SEQ=^TMP("PXBSTOR",$J,"SEQ")
D:$P(REQI,"^",1) PRV S SEQ=SEQ+1
D:$P(REQI,"^",3) CPT S SEQ=SEQ+1
D:$P(REQI,"^",5) POV S SEQ=SEQ+1
S ^TMP("PXBSTOR",$J,"SEQ")=SEQ+1
Q
MISC ;--SET MISCELLANEOUS TEMP NODES
;--*** CONDITION THE SOURCE
I '$G(SOURCE) S ^TMP("PXK",$J,"SOR")=$O(^PX(839.7,"B","SD/PCE-INTERFACE-PROMPTS",0))
;-------------
S ^TMP("PXK",$J,"VST",1,"IEN")=PXBVST
S ^TMP("PXK",$J,"VST",1,0,"AFTER")=$G(^AUPNVSIT(PXBVST,0))
S ^TMP("PXK",$J,"VST",1,0,"BEFORE")=$G(^AUPNVSIT(PXBVST,0))
Q
;
PRV ;--PROVIDER PIECE 1 AND 2
S PRVAFT=PRVBEF,PRVAFT12=PRVBEF12,PRVAF812=PRVBF812
I $D(DELM),$P(DELM,"^",1)=1 S (PRVAFT,PRVAFT12)="" G PRV1
S $P(PRVAFT,"^",1)=$P(REQI,"^",1) ;--PROVIDER IEN
S $P(PRVAFT,"^",4)=$P(REQI,"^",2) ;--PRIMARY/SECONDARY
S $P(PRVAFT,"^",2)=PATIENT ;--PATIENT
S $P(PRVAFT,"^",3)=PXBVST ;--VISIT POINTER
I PRVBF812']"" D
.;-***POPULATE VERIFIED FIELD IN FUTURE
.S $P(PRVAF812,"^",2)=$G(PXBPKG)
.S $P(PRVAF812,"^",3)=$G(PXBSOURC)
PRV1 S ^TMP("PXK",$J,"PRV",SEQ,0,"AFTER")=PRVAFT
S ^TMP("PXK",$J,"PRV",SEQ,0,"BEFORE")=PRVBEF
S ^TMP("PXK",$J,"PRV",SEQ,12,"AFTER")=PRVAFT12
S ^TMP("PXK",$J,"PRV",SEQ,12,"BEFORE")=PRVBEF12
S ^TMP("PXK",$J,"PRV",SEQ,812,"AFTER")=PRVAF812
S ^TMP("PXK",$J,"PRV",SEQ,812,"BEFORE")=PRVBF812
S ^TMP("PXK",$J,"PRV",SEQ,"IEN")=PRVIEN
Q
;
CPT ;--CPT PROCDEURE PIECE 3 AND 4 AND
N PXMODIEN
S CPTAFT=CPTBEF,CPTAFT12=CPTBEF12,CPTAF812=CPTBF812
I $D(DELM),$P(DELM,"^",2)=1 S (CPTAFT,CPTAFT12)="" G CPT1
S $P(CPTAFT,"^",1)=$P(REQI,"^",3) ;--PROCEDURE IEN
S $P(CPTAFT,"^",2)=PATIENT ;--PATIENT
S $P(CPTAFT,"^",3)=PXBVST ;--VISIT POINTER
S $P(CPTAFT12,"^",4)=$P(REQI,"^",1) ;--PROVIDER POINTER
S CPRNARR=$$EXTTEXT^PXUTL1($P(REQI,"^",3),1,81,2) ;--TEXT PROV NARR
S $P(CPTAFT,"^",4)=+$$PROVNARR^PXAPI($G(CPRNARR),9000010.18) ;--PROV NAR
S $P(CPTAFT,"^",16)=$P(REQI,"^",4) ;--QUANTITY
I $P(REQI,"^",4)=0 S (CPTAFT,CPTAFT12)=""
I $P(REQI,"^",4)="@" S (CPTAFT,CPTAFT12)=""
;--------------------
;I $G(CPTIEN),$D(^AUPNVCPT(CPTIEN,12)),$P(REQI,"^",1)'=$P(^AUPNVCPT(CPTIEN,12),"^",4),'$D(DELM) S (CPTIEN,CPTBEF,CPTBEF12)=""
;---------------
I CPTBF812']"" D
.;-***POPULATE VERIFIED FIELD IN FUTURE
.S $P(CPTAF812,"^",2)=$G(PXBPKG)
.S $P(CPTAF812,"^",3)=$G(PXBSOURC)
S PXMODIEN=""
F S PXMODIEN=$O(REQ(1,PXMODIEN)) Q:PXMODIEN="" D
.S CPTAFT1(PXMODIEN)=REQ(1,PXMODIEN)
CPT1 ;
S ^TMP("PXK",$J,"CPT",SEQ,0,"AFTER")=CPTAFT
S ^TMP("PXK",$J,"CPT",SEQ,0,"BEFORE")=CPTBEF
S ^TMP("PXK",$J,"CPT",SEQ,12,"AFTER")=CPTAFT12
S ^TMP("PXK",$J,"CPT",SEQ,12,"BEFORE")=CPTBEF12
S ^TMP("PXK",$J,"CPT",SEQ,812,"AFTER")=CPTAF812
S ^TMP("PXK",$J,"CPT",SEQ,812,"BEFORE")=CPTBF812
S ^TMP("PXK",$J,"CPT",SEQ,"IEN")=CPTIEN
;Set modifiers into ^TMP
S PXMODIEN=""
F S PXMODIEN=$O(CPTAFT1(PXMODIEN)) Q:PXMODIEN="" D
.S ^TMP("PXK",$J,"CPT",SEQ,1,PXMODIEN,"AFTER")=CPTAFT1(PXMODIEN)
S PXMODIEN=""
F S PXMODIEN=$O(CPTBEF1(PXMODIEN)) Q:PXMODIEN="" D
.S ^TMP("PXK",$J,"CPT",SEQ,1,PXMODIEN,"BEFORE")=CPTBEF1(PXMODIEN)
;Set ^TMP file with V CPT IEN
I $G(REQ)]"" D
. S ^TMP("PXK",$J,"CPT",SEQ,"IEN")=REQ
Q
;
POV ;--POV PIECE 5 AND 6 AND
S POVAFT=POVBEF,POVAFT12=POVBEF12,POVAF812=PRVBF812
I $D(DELM),$P(DELM,"^",3)=1 S (POVAFT,POVAFT12)="" G POV1
S $P(POVAFT,"^",1)=$P(REQI,"^",5) ;--POV IEN
S $P(POVAFT,"^",12)=$P(REQI,"^",6) ;--PRI/SECONDARY
S $P(POVAFT,"^",2)=PATIENT ;--PATIENT
S $P(POVAFT,"^",3)=PXBVST ;--VISIT POINTER
S PPRNARR=$$EXTTEXT^PXUTL1($P(REQI,"^",5),1,80,10) ;--TEXT PROV NARR
S $P(POVAFT,"^",4)=+$$PROVNARR^PXAPI($G(PPRNARR),9000010.07) ;--POI PROV NARR
I $P($G(REQI),"^",7) S $P(POVAFT12,"^",4)=$P(^AUPNVPRV($P(REQI,"^",7),0),"^",1) ;--PROVIDER
I $G(PXBRES) S $P(POVAFT,"^",16)=PXBRES ;-PROBLEM LIST ENTRY
I POVBF812']"" D
.;-**POPULATE VERIFIED FIELD IN FUTURE
.S $P(POVAF812,"^",2)=$G(PXBPKG)
.S $P(POVAF812,"^",3)=$G(PXBSOURC)
POV1 S ^TMP("PXK",$J,"POV",SEQ,0,"AFTER")=POVAFT
S ^TMP("PXK",$J,"POV",SEQ,0,"BEFORE")=POVBEF
S ^TMP("PXK",$J,"POV",SEQ,12,"AFTER")=POVAFT12
S ^TMP("PXK",$J,"POV",SEQ,12,"BEFORE")=POVBEF12
S ^TMP("PXK",$J,"POV",SEQ,812,"AFTER")=POVAF812
S ^TMP("PXK",$J,"POV",SEQ,812,"BEFORE")=POVBF812
S ^TMP("PXK",$J,"POV",SEQ,"IEN")=POVIEN
Q
PXBSTOR ;ISL/JVS - PASSING THE DATA TO THE V FILES ;7/24/96 10:29
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**73,88**;Aug 12, 1996
+2 ;
+3 ;
+4 ; VARIABLE LIST
+5 ; PEICE 1 2 3 4 5 6 7 8 9
+6 ; REQ*=PROVDER^PRIMARY^CPT^QUANTITY^POV^PRIMARY^PRV IEN^CPT IEN^POV IEN
+7 ; PEICE 10 11
+8 ; REQ STOPCODE^STOPCODE IEN
+9 ; REQ(1,MODIFIER)*=""
+10 ; REQ("IEN")=V CPT file IEN
+11 ; REQI=Internal Values
+12 ; REQE=External Values
+13 ; PXBVST=Visit Ien
+14 ; PRVIEN=Provider IEN in V Provider file
+15 ; CPTIEN=CPT IEN in the V CPT file
+16 ; POVIEN=POV INE in the V POV file
+17 ; patient is defined form the visit
+18 ;
EN0(PXBVST,PATIENT,REQI,REQ) ;--Main Entry point
EN1 ;
+1 IF '$DATA(REQI)
QUIT
+2 ;--MUST BE MOVED TO AFTER THE EVENT
KILL ^TMP("PXK",$JOB)
+3 NEW PRVIEN,CPTIEN,POVIEN,PRVBEF,CPTBEF,POVBEF,PPRNARR,CPRNARR
+4 NEW POVBEF12,PRVAFT,PRVAFT12,PRVBEF12
+5 NEW CPTAFT,CPTAFT1,CPTBEF1,CPTAFT12,CPTBEF12
+6 NEW POVAFT12,POVAFT,POVI
+7 NEW PRVBF812,CPTBF812,POVBF812,PRVAF812,CPTAF812,POVAF812
+8 NEW SEQ
IEN ;--SET IENS OF EACH FILE
+1 SET PRVIEN=$PIECE(REQI,"^",7)
IF PRVIEN]""
Begin DoDot:1
+2 SET PRVBEF=$GET(^AUPNVPRV($PIECE(REQI,"^",7),0))
+3 SET PRVBEF12=$GET(^AUPNVPRV($PIECE(REQI,"^",7),12))
+4 SET PRVBF812=$GET(^AUPNVPRV($PIECE(REQI,"^",7),812))
End DoDot:1
+5 IF '$TEST
SET (PRVBEF,PRVBEF12,PRVBF812)=""
+6 SET CPTIEN=$PIECE(REQI,"^",8)
+7 IF CPTIEN]""
Begin DoDot:1
+8 SET CPTBEF=$GET(^AUPNVCPT($PIECE(REQI,"^",8),0))
+9 ;Build array for cpt modifiers
+10 NEW SUBIEN
+11 SET SUBIEN=0
+12 FOR
SET SUBIEN=$ORDER(^AUPNVCPT($PIECE(REQI,"^",8),1,SUBIEN))
IF 'SUBIEN
QUIT
Begin DoDot:2
+13 SET CPTBEF1(SUBIEN)=$GET(^AUPNVCPT($PIECE(REQI,"^",8),1,SUBIEN,0))
End DoDot:2
+14 SET CPTBEF12=$GET(^AUPNVCPT($PIECE(REQI,"^",8),12))
+15 SET CPTBF812=$GET(^AUPNVCPT($PIECE(REQI,"^",8),812))
End DoDot:1
+16 IF '$TEST
SET (CPTBEF,CPTBEF12,CPTBF812)=""
+17 SET POVIEN=$PIECE(REQI,"^",9)
IF POVIEN]""
Begin DoDot:1
+18 SET POVBEF=$GET(^AUPNVPOV($PIECE(REQI,"^",9),0))
+19 SET POVBEF12=$GET(^AUPNVPOV($PIECE(REQI,"^",9),12))
+20 SET POVBF812=$GET(^AUPNVPOV($PIECE(REQI,"^",9),812))
End DoDot:1
+21 IF '$TEST
SET (POVBEF,POVBEF12,POVBF812)=""
+22 ;
SET ;--SET TEMP GLOBALS
+1 DO MISC
+2 IF '$DATA(^TMP("PXBSTOR",$JOB,"SEQ"))
SET SEQ=1
+3 IF $DATA(^TMP("PXBSTOR",$JOB,"SEQ"))
SET SEQ=^TMP("PXBSTOR",$JOB,"SEQ")
+4 IF $PIECE(REQI,"^",1)
DO PRV
SET SEQ=SEQ+1
+5 IF $PIECE(REQI,"^",3)
DO CPT
SET SEQ=SEQ+1
+6 IF $PIECE(REQI,"^",5)
DO POV
SET SEQ=SEQ+1
+7 SET ^TMP("PXBSTOR",$JOB,"SEQ")=SEQ+1
+8 QUIT
MISC ;--SET MISCELLANEOUS TEMP NODES
+1 ;--*** CONDITION THE SOURCE
+2 IF '$GET(SOURCE)
SET ^TMP("PXK",$JOB,"SOR")=$ORDER(^PX(839.7,"B","SD/PCE-INTERFACE-PROMPTS",0))
+3 ;-------------
+4 SET ^TMP("PXK",$JOB,"VST",1,"IEN")=PXBVST
+5 SET ^TMP("PXK",$JOB,"VST",1,0,"AFTER")=$GET(^AUPNVSIT(PXBVST,0))
+6 SET ^TMP("PXK",$JOB,"VST",1,0,"BEFORE")=$GET(^AUPNVSIT(PXBVST,0))
+7 QUIT
+8 ;
PRV ;--PROVIDER PIECE 1 AND 2
+1 SET PRVAFT=PRVBEF
SET PRVAFT12=PRVBEF12
SET PRVAF812=PRVBF812
+2 IF $DATA(DELM)
IF $PIECE(DELM,"^",1)=1
SET (PRVAFT,PRVAFT12)=""
GOTO PRV1
+3 ;--PROVIDER IEN
SET $PIECE(PRVAFT,"^",1)=$PIECE(REQI,"^",1)
+4 ;--PRIMARY/SECONDARY
SET $PIECE(PRVAFT,"^",4)=$PIECE(REQI,"^",2)
+5 ;--PATIENT
SET $PIECE(PRVAFT,"^",2)=PATIENT
+6 ;--VISIT POINTER
SET $PIECE(PRVAFT,"^",3)=PXBVST
+7 IF PRVBF812']""
Begin DoDot:1
+8 ;-***POPULATE VERIFIED FIELD IN FUTURE
+9 SET $PIECE(PRVAF812,"^",2)=$GET(PXBPKG)
+10 SET $PIECE(PRVAF812,"^",3)=$GET(PXBSOURC)
End DoDot:1
PRV1 SET ^TMP("PXK",$JOB,"PRV",SEQ,0,"AFTER")=PRVAFT
+1 SET ^TMP("PXK",$JOB,"PRV",SEQ,0,"BEFORE")=PRVBEF
+2 SET ^TMP("PXK",$JOB,"PRV",SEQ,12,"AFTER")=PRVAFT12
+3 SET ^TMP("PXK",$JOB,"PRV",SEQ,12,"BEFORE")=PRVBEF12
+4 SET ^TMP("PXK",$JOB,"PRV",SEQ,812,"AFTER")=PRVAF812
+5 SET ^TMP("PXK",$JOB,"PRV",SEQ,812,"BEFORE")=PRVBF812
+6 SET ^TMP("PXK",$JOB,"PRV",SEQ,"IEN")=PRVIEN
+7 QUIT
+8 ;
CPT ;--CPT PROCDEURE PIECE 3 AND 4 AND
+1 NEW PXMODIEN
+2 SET CPTAFT=CPTBEF
SET CPTAFT12=CPTBEF12
SET CPTAF812=CPTBF812
+3 IF $DATA(DELM)
IF $PIECE(DELM,"^",2)=1
SET (CPTAFT,CPTAFT12)=""
GOTO CPT1
+4 ;--PROCEDURE IEN
SET $PIECE(CPTAFT,"^",1)=$PIECE(REQI,"^",3)
+5 ;--PATIENT
SET $PIECE(CPTAFT,"^",2)=PATIENT
+6 ;--VISIT POINTER
SET $PIECE(CPTAFT,"^",3)=PXBVST
+7 ;--PROVIDER POINTER
SET $PIECE(CPTAFT12,"^",4)=$PIECE(REQI,"^",1)
+8 ;--TEXT PROV NARR
SET CPRNARR=$$EXTTEXT^PXUTL1($PIECE(REQI,"^",3),1,81,2)
+9 ;--PROV NAR
SET $PIECE(CPTAFT,"^",4)=+$$PROVNARR^PXAPI($GET(CPRNARR),9000010.18)
+10 ;--QUANTITY
SET $PIECE(CPTAFT,"^",16)=$PIECE(REQI,"^",4)
+11 IF $PIECE(REQI,"^",4)=0
SET (CPTAFT,CPTAFT12)=""
+12 IF $PIECE(REQI,"^",4)="@"
SET (CPTAFT,CPTAFT12)=""
+13 ;--------------------
+14 ;I $G(CPTIEN),$D(^AUPNVCPT(CPTIEN,12)),$P(REQI,"^",1)'=$P(^AUPNVCPT(CPTIEN,12),"^",4),'$D(DELM) S (CPTIEN,CPTBEF,CPTBEF12)=""
+15 ;---------------
+16 IF CPTBF812']""
Begin DoDot:1
+17 ;-***POPULATE VERIFIED FIELD IN FUTURE
+18 SET $PIECE(CPTAF812,"^",2)=$GET(PXBPKG)
+19 SET $PIECE(CPTAF812,"^",3)=$GET(PXBSOURC)
End DoDot:1
+20 SET PXMODIEN=""
+21 FOR
SET PXMODIEN=$ORDER(REQ(1,PXMODIEN))
IF PXMODIEN=""
QUIT
Begin DoDot:1
+22 SET CPTAFT1(PXMODIEN)=REQ(1,PXMODIEN)
End DoDot:1
CPT1 ;
+1 SET ^TMP("PXK",$JOB,"CPT",SEQ,0,"AFTER")=CPTAFT
+2 SET ^TMP("PXK",$JOB,"CPT",SEQ,0,"BEFORE")=CPTBEF
+3 SET ^TMP("PXK",$JOB,"CPT",SEQ,12,"AFTER")=CPTAFT12
+4 SET ^TMP("PXK",$JOB,"CPT",SEQ,12,"BEFORE")=CPTBEF12
+5 SET ^TMP("PXK",$JOB,"CPT",SEQ,812,"AFTER")=CPTAF812
+6 SET ^TMP("PXK",$JOB,"CPT",SEQ,812,"BEFORE")=CPTBF812
+7 SET ^TMP("PXK",$JOB,"CPT",SEQ,"IEN")=CPTIEN
+8 ;Set modifiers into ^TMP
+9 SET PXMODIEN=""
+10 FOR
SET PXMODIEN=$ORDER(CPTAFT1(PXMODIEN))
IF PXMODIEN=""
QUIT
Begin DoDot:1
+11 SET ^TMP("PXK",$JOB,"CPT",SEQ,1,PXMODIEN,"AFTER")=CPTAFT1(PXMODIEN)
End DoDot:1
+12 SET PXMODIEN=""
+13 FOR
SET PXMODIEN=$ORDER(CPTBEF1(PXMODIEN))
IF PXMODIEN=""
QUIT
Begin DoDot:1
+14 SET ^TMP("PXK",$JOB,"CPT",SEQ,1,PXMODIEN,"BEFORE")=CPTBEF1(PXMODIEN)
End DoDot:1
+15 ;Set ^TMP file with V CPT IEN
+16 IF $GET(REQ)]""
Begin DoDot:1
+17 SET ^TMP("PXK",$JOB,"CPT",SEQ,"IEN")=REQ
End DoDot:1
+18 QUIT
+19 ;
POV ;--POV PIECE 5 AND 6 AND
+1 SET POVAFT=POVBEF
SET POVAFT12=POVBEF12
SET POVAF812=PRVBF812
+2 IF $DATA(DELM)
IF $PIECE(DELM,"^",3)=1
SET (POVAFT,POVAFT12)=""
GOTO POV1
+3 ;--POV IEN
SET $PIECE(POVAFT,"^",1)=$PIECE(REQI,"^",5)
+4 ;--PRI/SECONDARY
SET $PIECE(POVAFT,"^",12)=$PIECE(REQI,"^",6)
+5 ;--PATIENT
SET $PIECE(POVAFT,"^",2)=PATIENT
+6 ;--VISIT POINTER
SET $PIECE(POVAFT,"^",3)=PXBVST
+7 ;--TEXT PROV NARR
SET PPRNARR=$$EXTTEXT^PXUTL1($PIECE(REQI,"^",5),1,80,10)
+8 ;--POI PROV NARR
SET $PIECE(POVAFT,"^",4)=+$$PROVNARR^PXAPI($GET(PPRNARR),9000010.07)
+9 ;--PROVIDER
IF $PIECE($GET(REQI),"^",7)
SET $PIECE(POVAFT12,"^",4)=$PIECE(^AUPNVPRV($PIECE(REQI,"^",7),0),"^",1)
+10 ;-PROBLEM LIST ENTRY
IF $GET(PXBRES)
SET $PIECE(POVAFT,"^",16)=PXBRES
+11 IF POVBF812']""
Begin DoDot:1
+12 ;-**POPULATE VERIFIED FIELD IN FUTURE
+13 SET $PIECE(POVAF812,"^",2)=$GET(PXBPKG)
+14 SET $PIECE(POVAF812,"^",3)=$GET(PXBSOURC)
End DoDot:1
POV1 SET ^TMP("PXK",$JOB,"POV",SEQ,0,"AFTER")=POVAFT
+1 SET ^TMP("PXK",$JOB,"POV",SEQ,0,"BEFORE")=POVBEF
+2 SET ^TMP("PXK",$JOB,"POV",SEQ,12,"AFTER")=POVAFT12
+3 SET ^TMP("PXK",$JOB,"POV",SEQ,12,"BEFORE")=POVBEF12
+4 SET ^TMP("PXK",$JOB,"POV",SEQ,812,"AFTER")=POVAF812
+5 SET ^TMP("PXK",$JOB,"POV",SEQ,812,"BEFORE")=POVBF812
+6 SET ^TMP("PXK",$JOB,"POV",SEQ,"IEN")=POVIEN
+7 QUIT
