PXCEC800.m

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 ---PXCEC800   1322     printed  Apr 09, 2024@21:33:42                                                                                                                                                                                                    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      ;