PXCEC800 ;ISL/dee,ISA/KWP - Used in editing the 800 node, Service Connected conditions ;12/22/04 1:38pm
;;1.0;PCE PATIENT CARE ENCOUNTER;**124,174,168**;Aug 12, 1996;Build 14
;; ;
Q
;
GET800 ;Used by the Service Connected Conditions
N PXCEINDX,PXOUT
N PXBDATA,PXLOC,PXAPTDT,PXDFN
I $O(^SCE("AVSIT",PXCEVIEN,0)) D CLASS^PXBAPI21("","","","",PXCEVIEN)
I '$O(^SCE("AVSIT",PXCEVIEN,0)) D
. S PXAPTDT=+^AUPNVSIT(PXCEVIEN,0)
. S PXDFN=$P(^AUPNVSIT(PXCEVIEN,0),"^",5)
. S PXLOC=$P(^AUPNVSIT(PXCEVIEN,0),"^",22)
. D CLASS^PXBAPI21("",PXDFN,PXAPTDT,PXLOC,"")
F PXCEINDX=1:1:8 I $G(PXBDATA("ERR",PXCEINDX))=4 S PXOUT=PXBDATA("ERR",PXCEINDX)
I $D(PXOUT) S PXCEEND=1 Q ;for visit and required fields
S $P(PXCEAFTR(800),"^",1)=$P($G(PXBDATA(3)),"^",2)
S $P(PXCEAFTR(800),"^",2)=$P($G(PXBDATA(1)),"^",2) S:$P(PXCEAFTR(800),"^",2)="" $P(PXCEAFTR(800),"^",2)="@"
S $P(PXCEAFTR(800),"^",3)=$P($G(PXBDATA(2)),"^",2) S:$P(PXCEAFTR(800),"^",3)="" $P(PXCEAFTR(800),"^",3)="@"
S $P(PXCEAFTR(800),"^",4)=$P($G(PXBDATA(4)),"^",2) S:$P(PXCEAFTR(800),"^",4)="" $P(PXCEAFTR(800),"^",4)="@"
S $P(PXCEAFTR(800),"^",5)=$P($G(PXBDATA(5)),"^",2)
S $P(PXCEAFTR(800),"^",6)=$P($G(PXBDATA(6)),"^",2)
S $P(PXCEAFTR(800),"^",7)=$P($G(PXBDATA(7)),"^",2)
S $P(PXCEAFTR(800),"^",8)=$P($G(PXBDATA(8)),"^",2)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXCEC800 1322 printed Oct 16, 2024@18:28:35 Page 2
PXCEC800 ;ISL/dee,ISA/KWP - Used in editing the 800 node, Service Connected conditions ;12/22/04 1:38pm
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**124,174,168**;Aug 12, 1996;Build 14
+2 ;; ;
+3 QUIT
+4 ;
GET800 ;Used by the Service Connected Conditions
+1 NEW PXCEINDX,PXOUT
+2 NEW PXBDATA,PXLOC,PXAPTDT,PXDFN
+3 IF $ORDER(^SCE("AVSIT",PXCEVIEN,0))
DO CLASS^PXBAPI21("","","","",PXCEVIEN)
+4 IF '$ORDER(^SCE("AVSIT",PXCEVIEN,0))
Begin DoDot:1
+5 SET PXAPTDT=+^AUPNVSIT(PXCEVIEN,0)
+6 SET PXDFN=$PIECE(^AUPNVSIT(PXCEVIEN,0),"^",5)
+7 SET PXLOC=$PIECE(^AUPNVSIT(PXCEVIEN,0),"^",22)
+8 DO CLASS^PXBAPI21("",PXDFN,PXAPTDT,PXLOC,"")
End DoDot:1
+9 FOR PXCEINDX=1:1:8
IF $GET(PXBDATA("ERR",PXCEINDX))=4
SET PXOUT=PXBDATA("ERR",PXCEINDX)
+10 ;for visit and required fields
IF $DATA(PXOUT)
SET PXCEEND=1
QUIT
+11 SET $PIECE(PXCEAFTR(800),"^",1)=$PIECE($GET(PXBDATA(3)),"^",2)
+12 SET $PIECE(PXCEAFTR(800),"^",2)=$PIECE($GET(PXBDATA(1)),"^",2)
if $PIECE(PXCEAFTR(800),"^",2)=""
SET $PIECE(PXCEAFTR(800),"^",2)="@"
+13 SET $PIECE(PXCEAFTR(800),"^",3)=$PIECE($GET(PXBDATA(2)),"^",2)
if $PIECE(PXCEAFTR(800),"^",3)=""
SET $PIECE(PXCEAFTR(800),"^",3)="@"
+14 SET $PIECE(PXCEAFTR(800),"^",4)=$PIECE($GET(PXBDATA(4)),"^",2)
if $PIECE(PXCEAFTR(800),"^",4)=""
SET $PIECE(PXCEAFTR(800),"^",4)="@"
+15 SET $PIECE(PXCEAFTR(800),"^",5)=$PIECE($GET(PXBDATA(5)),"^",2)
+16 SET $PIECE(PXCEAFTR(800),"^",6)=$PIECE($GET(PXBDATA(6)),"^",2)
+17 SET $PIECE(PXCEAFTR(800),"^",7)=$PIECE($GET(PXBDATA(7)),"^",2)
+18 SET $PIECE(PXCEAFTR(800),"^",8)=$PIECE($GET(PXBDATA(8)),"^",2)
+19 QUIT
+20 ;
