Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXBGPL

PXBGPL.m

Go to the documentation of this file.
  1. PXBGPL ;ISL/JVS - GATHER ACTIVE PROBLEM LIST ENTRIES ;5/12/97 11:58
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**11,28**;Aug 12, 1996
  1. ;
  1. ;
  1. ;
  1. W !,"This is not an entry point"
  1. ;
  1. PL(PATIENT) ;--Entry point
  1. I '$L($T(ACTIVE^GMPLUTL)) Q
  1. ;
  1. ;--Set,kill and New
  1. N LINE,SUB,PXBC
  1. K PXBKYPL,PXBSAMPL,PXBSKYPL,PXBPMT
  1. ;
  1. D ACTIVE^GMPLUTL(PATIENT,.PXBPLA)
  1. ;
  1. A ;
  1. Q:'$D(PXBPLA)
  1. S LINE=0 F S LINE=$O(PXBPLA(LINE)) Q:LINE="" D
  1. .Q:$P($G(PXBPLA(LINE,2)),"^",2)']""
  1. .S ^TMP("PXBSAMPL",$J,LINE)=$P(PXBPLA(LINE,2),"^",2)_"^"_$P(PXBPLA(LINE,1),"^",2)
  1. .S PXBPMT("PL",$P(PXBPLA(LINE,2),"^",2)_" "_$P(PXBPLA(LINE,1),"^",2))=""
  1. .S ^TMP("PXBKYPL",$J,$P(PXBPLA(LINE,2),"^",2),LINE)=$P(PXBPLA(LINE,2),"^",2)_"^"_$P(PXBPLA(LINE,1),"^",2)
  1. .;S PXBSKYPL(LINE,+PXBPLA(LINE,0))=""
  1. .K PXBPLA(LINE)
  1. B ;
  1. S PXBCNTPL=+PXBPLA(0)
  1. Q