source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMRN.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 621 bytes
Line 
1PSOLMRN ;ISC-BHAM/SAB - displays renewal rxs ; 21-APR-1995
2 ;;7.0;OUTPATIENT PHARMACY;**11,46,84**;DEC 1997
3EN ; -- main entry point for PSO LM RENEW LIST
4 S VALMCNT=PSOPF,PSOLM=1
5 D EN^VALM("PSO LM RENEW LIST")
6 Q
7 ;
8HDR ; -- header code
9 K ^TMP("PSOHDR",$J) D HDR^PSOLMUTL
10 Q
11 ;
12INIT ; -- init variables and list array
13 ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_" Line number "_LINE)
14 S VALMCNT=PSOPF,PSOLM=1
15 D RV^PSONFI Q
16 ;
17HELP ; -- help code
18 S X="?" D DISP^XQORM1 W !!
19 Q
20 ;
21EXIT ; -- exit code
22 I $G(Y)=-1!($G(Y)="Q") S PSOQUIT=1
23 I $G(Y)="Q",$P($G(Y(1)),"^",3)="QU" S PSOQQ=1
24 Q
25 ;
26EXPND ; -- expand code
27 Q
28 ;
Note: See TracBrowser for help on using the repository browser.