| 1 | PXCED800 ;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
|
|---|
| 13 | GET800 ;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 | ;
|
|---|
