| [613] | 1 | PXCEE800 ;ISL/dee,ISA/KWP - Used in editing the 800 node, Service Connected conditions ;04/28/99
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**74,111,130**;Aug 12, 1996
|
|---|
| 3 | ;; ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | GET800 ;Used by all the Service Connected Conditions
|
|---|
| 7 | ;Do not ask if not primary visit.
|
|---|
| 8 | Q:$P(PXCEAFTR(0),"^",22)'>0
|
|---|
| 9 | Q:$P(PXCEAFTR(0),"^",8)'=$P(^SC($P(PXCEAFTR(0),"^",22),0),"^",7)
|
|---|
| 10 | N PXCEINDX,PXOUT
|
|---|
| 11 | N PXBDATA
|
|---|
| 12 | D CLASS^PXBAPI21("",PXCEPAT,+PXCEAFTR(0),$P(PXCEAFTR(0),"^",22),PXCEFIEN)
|
|---|
| 13 | ;PX*1*111 - Add HNC
|
|---|
| 14 | F PXCEINDX=1:1:7 I $G(PXBDATA("ERR",PXCEINDX))=4 S PXOUT=PXBDATA("ERR",PXCEINDX)
|
|---|
| 15 | I $D(PXOUT) S (PXCEEND,PXCEQUIT)=1 Q ;for visit and required fields
|
|---|
| 16 | S $P(PXCEAFTR(800),"^",1)=$P($G(PXBDATA(3)),"^",2)
|
|---|
| 17 | S $P(PXCEAFTR(800),"^",2)=$P($G(PXBDATA(1)),"^",2)
|
|---|
| 18 | S $P(PXCEAFTR(800),"^",3)=$P($G(PXBDATA(2)),"^",2)
|
|---|
| 19 | S $P(PXCEAFTR(800),"^",4)=$P($G(PXBDATA(4)),"^",2)
|
|---|
| 20 | S $P(PXCEAFTR(800),"^",5)=$P($G(PXBDATA(5)),"^",2)
|
|---|
| 21 | ;PX*1*111 - Add HNC
|
|---|
| 22 | S $P(PXCEAFTR(800),"^",6)=$P($G(PXBDATA(6)),"^",2)
|
|---|
| 23 | S $P(PXCEAFTR(800),"^",7)=$P($G(PXBDATA(7)),"^",2)
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
