| [613] | 1 | PXBGPL ;ISL/JVS - GATHER ACTIVE PROBLEM LIST ENTRIES ;5/12/97 11:58
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**11,28**;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | W !,"This is not an entry point"
|
|---|
| 7 | ;
|
|---|
| 8 | PL(PATIENT) ;--Entry point
|
|---|
| 9 | I '$L($T(ACTIVE^GMPLUTL)) Q
|
|---|
| 10 | ;
|
|---|
| 11 | ;--Set,kill and New
|
|---|
| 12 | N LINE,SUB,PXBC
|
|---|
| 13 | K PXBKYPL,PXBSAMPL,PXBSKYPL,PXBPMT
|
|---|
| 14 | ;
|
|---|
| 15 | D ACTIVE^GMPLUTL(PATIENT,.PXBPLA)
|
|---|
| 16 | ;
|
|---|
| 17 | A ;
|
|---|
| 18 | Q:'$D(PXBPLA)
|
|---|
| 19 | S LINE=0 F S LINE=$O(PXBPLA(LINE)) Q:LINE="" D
|
|---|
| 20 | .Q:$P($G(PXBPLA(LINE,2)),"^",2)']""
|
|---|
| 21 | .S ^TMP("PXBSAMPL",$J,LINE)=$P(PXBPLA(LINE,2),"^",2)_"^"_$P(PXBPLA(LINE,1),"^",2)
|
|---|
| 22 | .S PXBPMT("PL",$P(PXBPLA(LINE,2),"^",2)_" "_$P(PXBPLA(LINE,1),"^",2))=""
|
|---|
| 23 | .S ^TMP("PXBKYPL",$J,$P(PXBPLA(LINE,2),"^",2),LINE)=$P(PXBPLA(LINE,2),"^",2)_"^"_$P(PXBPLA(LINE,1),"^",2)
|
|---|
| 24 | .;S PXBSKYPL(LINE,+PXBPLA(LINE,0))=""
|
|---|
| 25 | .K PXBPLA(LINE)
|
|---|
| 26 | B ;
|
|---|
| 27 | S PXBCNTPL=+PXBPLA(0)
|
|---|
| 28 | Q
|
|---|
