Changeset 623 for WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMAO.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMAO.m (modified) (1 diff)

WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMAO.m

@@ -1 @@
-PSOLMAO ;BHAM ISC/LC - ACTIVE ORDERS ;03/14/1995
-        ;;7.0;OUTPATIENT PHARMACY;**225**;DEC 1997;Build 29
-EN      ; -- main entry point for PSO LM ACTION ORDER
-        D EN^VALM("PSO LM ACTIVE ORDERS")
-        Q
-        ;
-HDR     ; -- header code
-        ;S VALMHDR(1)="This is a test header for PSO LM ACTION ORDER."
-        ;S VALMHDR(2)="This is the second line"
-        D HDR^PSOLMUTL
-        Q
-        ;
-INIT    ; -- init variables and list array
-        ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_"     Line number "_LINE)
-        S VALMCNT=PSOPF
-        D RV^PSOORFL
-        Q
-        ;
-HELP    ; -- help code
-        S X="?" D DISP^XQORM1 W !!
-        Q
-        ;
-EXIT    ; -- exit code
-        S PSOQFLG=1 Q
-        ;
-EXPND   ; -- expand code
-        Q
-        ;
+PSOLMAO ;BHAM ISC/LC - ACTIVE ORDERS ; 14-MAR-1995
+ ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
+EN ; -- main entry point for PSO LM ACTION ORDER
+ D EN^VALM("PSO LM ACTIVE ORDERS")
+ Q
+ ;
+HDR ; -- header code
+ ;S VALMHDR(1)="This is a test header for PSO LM ACTION ORDER."
+ ;S VALMHDR(2)="This is the second line"
+ D HDR^PSOLMUTL
+ Q
+ ;
+INIT ; -- init variables and list array
+ ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_"     Line number "_LINE)
+ S VALMCNT=PSOPF
+ Q
+ ;
+HELP ; -- help code
+ S X="?" D DISP^XQORM1 W !!
+ Q
+ ;
+EXIT ; -- exit code
+ S PSOQFLG=1 Q
+ ;
+EXPND ; -- expand code
+ Q
+ ;