PXCAXAM ;ISL/dee - Validates & Translates data from the PCE Device Interface into PCE's PXK format for Exams ;3/14/97
;;1.0;PCE PATIENT CARE ENCOUNTER;**27**;Aug 12, 1996
Q
; Variables
; PXCAXAM Copy of a EXAM node of the PXCA array
; PXCAPRV Pointer to the provider (200)
; PXCANUMB Count of the number if XAMs
; PXCAINDX Count of the number of EXAM for one provider
; PXCAFTER Temp used to build ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,0,"AFTER")
; PXCAPNAR Pointer to the provider narrative (9999999.27)
;
XAM(PXCAXAM,PXCANUMB,PXCAPRV,PXCAERRS) ;
N PXCAFTER
S PXCAFTER=$P(PXCAXAM,"^",1)_"^"_PXCAPAT_"^"_PXCAVSIT_"^"
S PXCAFTER=PXCAFTER_$P(PXCAXAM,"^",2)
S ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,"IEN")=""
S ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,0,"BEFORE")=""
S ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,0,"AFTER")=PXCAFTER
S ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,12,"BEFORE")=""
S ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,12,"AFTER")="^^^"_$S(PXCAPRV>0:PXCAPRV,1:"")
S ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,812,"BEFORE")=""
S ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,812,"AFTER")="^"_PXCAPKG_"^"_PXCASOR
Q
;
EXAM(PXCA,PXCABULD,PXCAERRS) ;Validation routine for XAM
Q:'$D(PXCA("EXAM"))
N PXCAXAM,PXCAPRV,PXCANUMB,PXCAINDX
N PXCAITEM
S PXCAPRV=""
S PXCANUMB=0
F S PXCAPRV=$O(PXCA("EXAM",PXCAPRV)) Q:PXCAPRV']"" D
. I PXCAPRV>0 D
.. I '$$ACTIVPRV^PXAPI(PXCAPRV,PXCADT) S PXCA("ERROR","EXAM",PXCAPRV,0,0)="Provider is not active or valid^"_PXCAPRV
.. E I PXCABULD!PXCAERRS D ANOTHPRV^PXCAPRV(PXCAPRV)
. S PXCAINDX=0
. F S PXCAINDX=$O(PXCA("EXAM",PXCAPRV,PXCAINDX)) Q:PXCAINDX']"" D
.. S PXCAXAM=$G(PXCA("EXAM",PXCAPRV,PXCAINDX))
.. S PXCANUMB=PXCANUMB+1
.. I PXCAXAM="" S PXCA("ERROR","EXAM",PXCAPRV,PXCAINDX,0)="EXAM data missing" Q
.. S PXCAITEM=+$P(PXCAXAM,U,1)
.. I $G(^AUTTEXAM(PXCAITEM,0))="" S PXCA("ERROR","EXAM",PXCAPRV,PXCAINDX,1)="EXAM type not in file 9999999.15^"_PXCAITEM
.. S PXCAITEM=$P(PXCAXAM,U,2) I '(PXCAITEM=""!(PXCAITEM="A")!(PXCAITEM="N")) S PXCA("ERROR","EXAM",PXCAPRV,PXCAINDX,2)="EXAM results must be A|N^"_PXCAITEM
.. I PXCABULD&'$D(PXCA("ERROR","EXAM",PXCAPRV,PXCAINDX))!PXCAERRS D XAM(PXCAXAM,.PXCANUMB,PXCAPRV,PXCAERRS)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXCAXAM 2196 printed Dec 13, 2024@02:27:47 Page 2
PXCAXAM ;ISL/dee - Validates & Translates data from the PCE Device Interface into PCE's PXK format for Exams ;3/14/97
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**27**;Aug 12, 1996
+2 QUIT
+3 ; Variables
+4 ; PXCAXAM Copy of a EXAM node of the PXCA array
+5 ; PXCAPRV Pointer to the provider (200)
+6 ; PXCANUMB Count of the number if XAMs
+7 ; PXCAINDX Count of the number of EXAM for one provider
+8 ; PXCAFTER Temp used to build ^TMP(PXCAGLB,$J,"XAM",PXCANUMB,0,"AFTER")
+9 ; PXCAPNAR Pointer to the provider narrative (9999999.27)
+10 ;
XAM(PXCAXAM,PXCANUMB,PXCAPRV,PXCAERRS) ;
+1 NEW PXCAFTER
+2 SET PXCAFTER=$PIECE(PXCAXAM,"^",1)_"^"_PXCAPAT_"^"_PXCAVSIT_"^"
+3 SET PXCAFTER=PXCAFTER_$PIECE(PXCAXAM,"^",2)
+4 SET ^TMP(PXCAGLB,$JOB,"XAM",PXCANUMB,"IEN")=""
+5 SET ^TMP(PXCAGLB,$JOB,"XAM",PXCANUMB,0,"BEFORE")=""
+6 SET ^TMP(PXCAGLB,$JOB,"XAM",PXCANUMB,0,"AFTER")=PXCAFTER
+7 SET ^TMP(PXCAGLB,$JOB,"XAM",PXCANUMB,12,"BEFORE")=""
+8 SET ^TMP(PXCAGLB,$JOB,"XAM",PXCANUMB,12,"AFTER")="^^^"_$SELECT(PXCAPRV>0:PXCAPRV,1:"")
+9 SET ^TMP(PXCAGLB,$JOB,"XAM",PXCANUMB,812,"BEFORE")=""
+10 SET ^TMP(PXCAGLB,$JOB,"XAM",PXCANUMB,812,"AFTER")="^"_PXCAPKG_"^"_PXCASOR
+11 QUIT
+12 ;
EXAM(PXCA,PXCABULD,PXCAERRS) ;Validation routine for XAM
+1 if '$DATA(PXCA("EXAM"))
QUIT
+2 NEW PXCAXAM,PXCAPRV,PXCANUMB,PXCAINDX
+3 NEW PXCAITEM
+4 SET PXCAPRV=""
+5 SET PXCANUMB=0
+6 FOR
SET PXCAPRV=$ORDER(PXCA("EXAM",PXCAPRV))
if PXCAPRV']""
QUIT
Begin DoDot:1
+7 IF PXCAPRV>0
Begin DoDot:2
+8 IF '$$ACTIVPRV^PXAPI(PXCAPRV,PXCADT)
SET PXCA("ERROR","EXAM",PXCAPRV,0,0)="Provider is not active or valid^"_PXCAPRV
+9 IF '$TEST
IF PXCABULD!PXCAERRS
DO ANOTHPRV^PXCAPRV(PXCAPRV)
End DoDot:2
+10 SET PXCAINDX=0
+11 FOR
SET PXCAINDX=$ORDER(PXCA("EXAM",PXCAPRV,PXCAINDX))
if PXCAINDX']""
QUIT
Begin DoDot:2
+12 SET PXCAXAM=$GET(PXCA("EXAM",PXCAPRV,PXCAINDX))
+13 SET PXCANUMB=PXCANUMB+1
+14 IF PXCAXAM=""
SET PXCA("ERROR","EXAM",PXCAPRV,PXCAINDX,0)="EXAM data missing"
QUIT
+15 SET PXCAITEM=+$PIECE(PXCAXAM,U,1)
+16 IF $GET(^AUTTEXAM(PXCAITEM,0))=""
SET PXCA("ERROR","EXAM",PXCAPRV,PXCAINDX,1)="EXAM type not in file 9999999.15^"_PXCAITEM
+17 SET PXCAITEM=$PIECE(PXCAXAM,U,2)
IF '(PXCAITEM=""!(PXCAITEM="A")!(PXCAITEM="N"))
SET PXCA("ERROR","EXAM",PXCAPRV,PXCAINDX,2)="EXAM results must be A|N^"_PXCAITEM
+18 IF PXCABULD&'$DATA(PXCA("ERROR","EXAM",PXCAPRV,PXCAINDX))!PXCAERRS
DO XAM(PXCAXAM,.PXCANUMB,PXCAPRV,PXCAERRS)
End DoDot:2
End DoDot:1
+19 QUIT
+20 ;
