source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXCATRT.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1007 bytes
RevLine 
[613]1PXCATRT ;ISL/dee - Translates data from the PCE Device Interface into PCE's PXK format for Treatments ;8/1/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 Q
4 ; PXCATRT Pointer to the Treatment file (9999999.17)
5 ;
6TRT(PXCAPROC,PXCANUMB,PXCAPRV,PXCAINDX,PXCAERRS,PXCATRT) ;TREATMENT Called from within CPT^PXCACPT
7 S PXCAFTER=PXCATRT_"^"_PXCAPAT_"^"_PXCAVSIT_"^"
8 S PXCAFTER=PXCAFTER_$P(PXCAPROC,"^",2)_"^^"
9 S PXCAFTER=PXCAFTER_$P(PXCAPROC,"^",6)
10 ;Diagnosis
11 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,"IEN")=""
12 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,0,"BEFORE")=""
13 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,0,"AFTER")=PXCAFTER
14 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,12,"BEFORE")=""
15 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,12,"AFTER")=$P(PXCAPROC,"^",4)_"^^^"_$S(PXCAPRV>0:PXCAPRV,1:"")
16 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,802,"BEFORE")=""
17 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,802,"AFTER")=$P(PXCAPROC,"^",7)
18 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,812,"BEFORE")=""
19 S ^TMP(PXCAGLB,$J,"TRT",PXCANUMB,812,"AFTER")="^"_PXCAPKG_"^"_PXCASOR
20 Q
21 ;
Note: See TracBrowser for help on using the repository browser.