PXCAPED.m

PXCAPED ;ISL/dee - Validates & Translates data from the PCE Device Interface into PCE's PXK format for Patient Ed ;3/14/97

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**27**;Aug 12, 1996

 Q

 ; Variables

 ;   PXCAPED  Copy of a PATIENT ED node of the PXCA array

 ;   PXCAPRV   Pointer to the provider (200)

 ;   PXCANUMB  Count of the number if PEDs

 ;   PXCAINDX  Count of the number of PATIENT ED for one provider

 ;   PXCAPNAR  Pointer to the provider narrative (9999999.27)

 ;

PED(PXCAPED,PXCANUMB,PXCAPRV,PXCAERRS) ;

 S ^TMP(PXCAGLB,$J,"PED",PXCANUMB,"IEN")=""

 S ^TMP(PXCAGLB,$J,"PED",PXCANUMB,0,"BEFORE")=""

 S ^TMP(PXCAGLB,$J,"PED",PXCANUMB,0,"AFTER")=$P(PXCAPED,"^",1)_"^"_PXCAPAT_"^"_PXCAVSIT_"^^^"_$P(PXCAPED,"^",2)

 S ^TMP(PXCAGLB,$J,"PED",PXCANUMB,12,"BEFORE")=""

 S ^TMP(PXCAGLB,$J,"PED",PXCANUMB,12,"AFTER")="^^^"_$S(PXCAPRV>0:PXCAPRV,1:"")

 S ^TMP(PXCAGLB,$J,"PED",PXCANUMB,812,"BEFORE")=""

 S ^TMP(PXCAGLB,$J,"PED",PXCANUMB,812,"AFTER")="^"_PXCAPKG_"^"_PXCASOR

 Q

 ;

PATED(PXCA,PXCABULD,PXCAERRS) ;Validation routine for PED

 Q:'$D(PXCA("PATIENT ED"))

 N PXCAPED,PXCAPRV,PXCANUMB,PXCAINDX

 N PXCAITEM

 S PXCAPRV=""

 S PXCANUMB=0

 F  S PXCAPRV=$O(PXCA("PATIENT ED",PXCAPRV)) Q:PXCAPRV']""  D

 . I PXCAPRV>0 D

 .. I '$$ACTIVPRV^PXAPI(PXCAPRV,PXCADT) S PXCA("ERROR","PATIENT ED",PXCAPRV,0,0)="Provider is not active or valid^"_PXCAPRV

 .. E  I PXCABULD!PXCAERRS D ANOTHPRV^PXCAPRV(PXCAPRV)

 . S PXCAINDX=""

 . F  S PXCAINDX=$O(PXCA("PATIENT ED",PXCAPRV,PXCAINDX)) Q:PXCAINDX']""  D

 .. S PXCAPED=$G(PXCA("PATIENT ED",PXCAPRV,PXCAINDX))

 .. S PXCANUMB=PXCANUMB+1

 .. I PXCAPED="" S PXCA("ERROR","PATIENT ED",PXCAPRV,PXCAINDX,0)="PATIENT ED data missing" Q

 .. S PXCAITEM=+$P(PXCAPED,U,1)

 .. I $G(^AUTTEDT(PXCAITEM,0))="" S PXCA("ERROR","PATIENT ED",PXCAPRV,PXCAINDX,1)="PATIENT ED type not in file 9999999.09^"_PXCAITEM

 .. S PXCAITEM=$P(PXCAPED,U,2) I '((PXCAITEM=(PXCAITEM\1)&(PXCAITEM>0)&(PXCAITEM<6))!(PXCAITEM="")) S PXCA("ERROR","PATIENT ED",PXCAPRV,PXCAINDX,2)="PATIENT ED level of understanding must be an integer form 1 to 5^"_PXCAITEM

 .. I PXCABULD&'$D(PXCA("ERROR","PATIENT ED",PXCAPRV,PXCAINDX))!PXCAERRS D PED(PXCAPED,.PXCANUMB,PXCAPRV,PXCAERRS)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXCAPED   2210     printed  Apr 09, 2024@21:28:35                                                                                                                                                                                                     Page 2

PXCAPED   ;ISL/dee - Validates & Translates data from the PCE Device Interface into PCE's PXK format for Patient Ed ;3/14/97

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**27**;Aug 12, 1996

 +2        QUIT 

 +3       ; Variables

 +4       ;   PXCAPED  Copy of a PATIENT ED node of the PXCA array

 +5       ;   PXCAPRV   Pointer to the provider (200)

 +6       ;   PXCANUMB  Count of the number if PEDs

 +7       ;   PXCAINDX  Count of the number of PATIENT ED for one provider

 +8       ;   PXCAPNAR  Pointer to the provider narrative (9999999.27)

 +9       ;

PED(PXCAPED,PXCANUMB,PXCAPRV,PXCAERRS) ;

 +1        SET ^TMP(PXCAGLB,$JOB,"PED",PXCANUMB,"IEN")=""

 +2        SET ^TMP(PXCAGLB,$JOB,"PED",PXCANUMB,0,"BEFORE")=""

 +3        SET ^TMP(PXCAGLB,$JOB,"PED",PXCANUMB,0,"AFTER")=$PIECE(PXCAPED,"^",1)_"^"_PXCAPAT_"^"_PXCAVSIT_"^^^"_$PIECE(PXCAPED,"^",2)

 +4        SET ^TMP(PXCAGLB,$JOB,"PED",PXCANUMB,12,"BEFORE")=""

 +5        SET ^TMP(PXCAGLB,$JOB,"PED",PXCANUMB,12,"AFTER")="^^^"_$SELECT(PXCAPRV>0:PXCAPRV,1:"")

 +6        SET ^TMP(PXCAGLB,$JOB,"PED",PXCANUMB,812,"BEFORE")=""

 +7        SET ^TMP(PXCAGLB,$JOB,"PED",PXCANUMB,812,"AFTER")="^"_PXCAPKG_"^"_PXCASOR

 +8        QUIT 

 +9       ;

PATED(PXCA,PXCABULD,PXCAERRS) ;Validation routine for PED

 +1        if '$DATA(PXCA("PATIENT ED"))

               QUIT 

 +2        NEW PXCAPED,PXCAPRV,PXCANUMB,PXCAINDX

 +3        NEW PXCAITEM

 +4        SET PXCAPRV=""

 +5        SET PXCANUMB=0

 +6        FOR 

               SET PXCAPRV=$ORDER(PXCA("PATIENT ED",PXCAPRV))

               if PXCAPRV']""

                   QUIT 

               Begin DoDot:1

 +7                IF PXCAPRV>0

                       Begin DoDot:2

 +8                        IF '$$ACTIVPRV^PXAPI(PXCAPRV,PXCADT)

                               SET PXCA("ERROR","PATIENT ED",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=""

 +11               FOR 

                       SET PXCAINDX=$ORDER(PXCA("PATIENT ED",PXCAPRV,PXCAINDX))

                       if PXCAINDX']""

                           QUIT 

                       Begin DoDot:2

 +12                       SET PXCAPED=$GET(PXCA("PATIENT ED",PXCAPRV,PXCAINDX))

 +13                       SET PXCANUMB=PXCANUMB+1

 +14                       IF PXCAPED=""

                               SET PXCA("ERROR","PATIENT ED",PXCAPRV,PXCAINDX,0)="PATIENT ED data missing"

                               QUIT 

 +15                       SET PXCAITEM=+$PIECE(PXCAPED,U,1)

 +16                       IF $GET(^AUTTEDT(PXCAITEM,0))=""

                               SET PXCA("ERROR","PATIENT ED",PXCAPRV,PXCAINDX,1)="PATIENT ED type not in file 9999999.09^"_PXCAITEM

 +17                       SET PXCAITEM=$PIECE(PXCAPED,U,2)

                           IF '((PXCAITEM=(PXCAITEM\1)&(PXCAITEM>0)&(PXCAITEM<6))!(PXCAITEM=""))

                               SET PXCA("ERROR","PATIENT ED",PXCAPRV,PXCAINDX,2)="PATIENT ED level of understanding must be an integer form 1 to 5^"_PXCAITEM

 +18                       IF PXCABULD&'$DATA(PXCA("ERROR","PATIENT ED",PXCAPRV,PXCAINDX))!PXCAERRS

                               DO PED(PXCAPED,.PXCANUMB,PXCAPRV,PXCAERRS)

                       End DoDot:2

               End DoDot:1

 +19       QUIT 

 +20      ;