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

PSOLMAO.m

Go to the documentation of this file.
  1. PSOLMAO ;BHAM ISC/LC - ACTIVE ORDERS ;14-MAR-1995
  1. ;;7.0;OUTPATIENT PHARMACY;**225,251,387,372**;DEC 1997;Build 54
  1. ;External reference to TERM^VALM0 supported by DBIA 2615
  1. EN ; -- main entry point for PSO LM ACTION ORDER
  1. D EN^VALM("PSO LM ACTIVE ORDERS")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. D HDR^PSOLMUTL
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. S VALMCNT=PSOPF D RV^PSOORFL
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. D KILL^VALM10() K PSODCREV,PSOONOFC S PSOQFLG=1
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;
  1. PENTRY ;
  1. D KILL^VALM10()
  1. N PSORVIEN
  1. I $O(PSODCREV(0)) F PSORVIEN=0:0 S PSORVIEN=$O(PSODCREV(PSORVIEN)) Q:'PSORVIEN D
  1. .I '$D(IORVON),$D(IOST(0)) D ENS^%ZISS,TERM^VALM0
  1. .D CNTRL^VALM10(PSORVIEN,1,80,IORVON,IORVOFF,0)
  1. K PSORVIEN
  1. S VALMCNT=$G(PSOPF)
  1. Q:'$G(VALMCNT)
  1. N PSLIST S PSLIST=0 F PSLIST=1:1:VALMCNT I $D(^TMP("PSOPF",$J,PSLIST,"RV")) D
  1. . D CNTRL^VALM10(PSLIST,1,3,IORVON,IORVOFF,0)
  1. Q