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

PSOROS.m

Go to the documentation of this file.
  1. PSOROS ;AITC/BWF - REMOTE RX UTILITY ;7/15/16 2:35am
  1. ;;7.0;OUTPATIENT PHARMACY;**454**;DEC 1997;Build 349
  1. ;
  1. Q
  1. ;
  1. EN ; -- main entry point for PSO LM REMOTE ORDER SELECTION
  1. D EN^VALM("PSO LM REMOTE ORDER SELECTION")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="This is a test header for PSO LM REMOTE ORDER SELECTION."
  1. S VALMHDR(2)="This is the second line"
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_" Line number "_LINE)
  1. ;S VALMCNT=30
  1. ;S $P(RN," ",12)=" ",VALMCNT=PSOPF
  1. S $P(RN," ",12)=" ",VALMCNT=$G(CNT)
  1. S VALM("TITLE")="REMOTE OP Medications ("_$G(SRXSTAT)_")"
  1. D RV^PSONFI Q
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K VALMCNT,VALMHDR
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;