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

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1PXCED800 ;WASH/BDB - Used in editing the 800 node, Service Connected conditions ;1/18/05 3:33pm
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**124**;Aug 12, 1996
3 ;; ;
4 Q
5 ;
6 ; Classification type 1 - Agent Orange
7 ; 2 - Ionizing Radiation
8 ; 3 - Service Connected
9 ; 4 - Environmental Contaminants
10 ; 5 - Military Sexual Trauma
11 ; 6 - Cancer of the Head and/or Neck
12 ; 7 - Combat Veteran
13GET800 ;Used by the Service Connected Conditions
14 N PXCEINDX,PXOUT
15 N PXBDATA,PXLOC,PXAPTDT,PXDFN
16 S PXCEDXSC=""
17 I $O(^SCE("AVSIT",PXCEVIEN,0)) D CLASS^PXBAPI21("","","","",PXCEVIEN)
18 I '$O(^SCE("AVSIT",PXCEVIEN,0)) D
19 . S PXAPTDT=+^AUPNVSIT(PXCEVIEN,0)
20 . S PXDFN=$P(^AUPNVSIT(PXCEVIEN,0),"^",5)
21 . S PXLOC=$P(^AUPNVSIT(PXCEVIEN,0),"^",22)
22 . D CLASS^PXBAPI21("",PXDFN,PXAPTDT,PXLOC,"")
23 F PXCEINDX=1:1:7 I $G(PXBDATA("ERR",PXCEINDX))=4 S PXOUT=PXBDATA("ERR",PXCEINDX)
24 I $D(PXOUT) S PXCEEND=1 Q
25 S $P(PXCEDXSC,"^",1)=$P($G(PXBDATA(3)),"^",2)
26 I +PXCEDXSC S (PXDATA(1),PXDATA(2),PXDATA(4))="^^"
27 S $P(PXCEDXSC,"^",2)=$P($G(PXBDATA(1)),"^",2)
28 S $P(PXCEDXSC,"^",3)=$P($G(PXBDATA(2)),"^",2)
29 S $P(PXCEDXSC,"^",4)=$P($G(PXBDATA(4)),"^",2)
30 S $P(PXCEDXSC,"^",5)=$P($G(PXBDATA(5)),"^",2)
31 S $P(PXCEDXSC,"^",6)=$P($G(PXBDATA(6)),"^",2)
32 S $P(PXCEDXSC,"^",7)=$P($G(PXBDATA(7)),"^",2)
33 Q
34 ;
Note: See TracBrowser for help on using the repository browser.