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

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

initial load of WorldVistAEHR

File size: 802 bytes
Line 
1PXBGPL ;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 ;
8PL(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 ;
17A ;
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)
26B ;
27 S PXBCNTPL=+PXBPLA(0)
28 Q
Note: See TracBrowser for help on using the repository browser.