PXCATRT.m

PXCATRT ;ISL/dee - Translates data from the PCE Device Interface into PCE's PXK format for Treatments ;8/1/96

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

 Q

 ;   PXCATRT   Pointer to the Treatment file (9999999.17)

 ;

TRT(PXCAPROC,PXCANUMB,PXCAPRV,PXCAINDX,PXCAERRS,PXCATRT) ;TREATMENT Called from within CPT^PXCACPT

 S PXCAFTER=PXCATRT_"^"_PXCAPAT_"^"_PXCAVSIT_"^"

 S PXCAFTER=PXCAFTER_$P(PXCAPROC,"^",2)_"^^"

 S PXCAFTER=PXCAFTER_$P(PXCAPROC,"^",6)

 ;Diagnosis

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

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

 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,0,"AFTER")=PXCAFTER

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

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

 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,802,"BEFORE")=""

 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,802,"AFTER")=$P(PXCAPROC,"^",7)

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

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

 Q

 ;

PXCATRT   ;ISL/dee - Translates data from the PCE Device Interface into PCE's PXK format for Treatments ;8/1/96

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

 +2        QUIT 

 +3       ;   PXCATRT   Pointer to the Treatment file (9999999.17)

 +4       ;

TRT(PXCAPROC,PXCANUMB,PXCAPRV,PXCAINDX,PXCAERRS,PXCATRT) ;TREATMENT Called from within CPT^PXCACPT

 +1        SET PXCAFTER=PXCATRT_"^"_PXCAPAT_"^"_PXCAVSIT_"^"

 +2        SET PXCAFTER=PXCAFTER_$PIECE(PXCAPROC,"^",2)_"^^"

 +3        SET PXCAFTER=PXCAFTER_$PIECE(PXCAPROC,"^",6)

 +4       ;Diagnosis

 +5        SET ^TMP(PXCAGLB,$JOB,"TRT",PXCANUMB,"IEN")=""

 +6        SET ^TMP(PXCAGLB,$JOB,"TRT",PXCANUMB,0,"BEFORE")=""

 +7        SET ^TMP(PXCAGLB,$JOB,"TRT",PXCANUMB,0,"AFTER")=PXCAFTER

 +8        SET ^TMP(PXCAGLB,$JOB,"TRT",PXCANUMB,12,"BEFORE")=""

 +9        SET ^TMP(PXCAGLB,$JOB,"TRT",PXCANUMB,12,"AFTER")=$PIECE(PXCAPROC,"^",4)_"^^^"_$SELECT(PXCAPRV>0:PXCAPRV,1:"")

 +10       SET ^TMP(PXCAGLB,$JOB,"TRT",PXCANUMB,802,"BEFORE")=""

 +11       SET ^TMP(PXCAGLB,$JOB,"TRT",PXCANUMB,802,"AFTER")=$PIECE(PXCAPROC,"^",7)

 +12       SET ^TMP(PXCAGLB,$JOB,"TRT",PXCANUMB,812,"BEFORE")=""

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

 +14       QUIT 

 +15      ;