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

PSOLMRN.m

Go to the documentation of this file.
  1. PSOLMRN ;ISC-BHAM/SAB - displays renewal rxs ;04/21/1995
  1. ;;7.0;OUTPATIENT PHARMACY;**11,46,84,225,386,700**;DEC 1997;Build 261
  1. EN ; -- main entry point for PSO LM RENEW LIST
  1. S VALMCNT=PSOPF,PSOLM=1
  1. D EN^VALM("PSO LM RENEW LIST")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. K ^TMP("PSOHDR",$J) D HDR^PSOLMUTL
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. S VALMCNT=PSOPF,PSOLM=1
  1. I $G(ORD),$$GET1^DIQ(52.41,ORD,102,"I") S VALM("TITLE")="FL-"_VALM("TITLE")
  1. I $G(PSOVLMBG)>3 S VALMBG=PSOVLMBG-2
  1. D RV^PSONFI Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. I $G(Y)=-1!($G(Y)="Q") S PSOQUIT=1
  1. I $G(Y)="Q",$P($G(Y(1)),"^",3)="QU" S PSOQQ=1
  1. K FLAGLINE D CLEAN^VALM10
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;