Changeset 623 for WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPO2.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/PSOLMPO2.m (modified) (1 diff)

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

@@ -1 @@
-PSOLMPO2        ;ISC-BHAM/SAB - list template to complete backdoor orders ;03/13/1995
-        ;;7.0;OUTPATIENT PHARMACY;**46,71,225**;DEC 1997;Build 29
-EN      ; -- main entry point for PSO LM BACKDOOR ORDER
-        D EN^VALM("PSO LM BACKDOOR ORDER")
-        Q
-        ;
-HDR     ; -- header code
-        D HDR^PSOLMUTL
-        Q
-        ;
-INIT    ; -- init variables and list array
-        S VALMCNT=IEN,VALM("TITLE")="New OP Order ("_$S($G(COPY):"COPY",1:"ROUTINE")_")"
-        S VALMCNT=PSOPF
-        D RV^PSONFI Q
-        ;
-HELP    ; -- help code
-        S X="?" D DISP^XQORM1 W !!
-        Q
-        ;
-EXIT    ; -- exit code
-        K PSOANSQD
-        S PSOQFLG=1
-        K FLAGLINE D CLEAN^VALM10
-        Q
-        ;
-EXPND   ; -- expand code
-        Q
-        ;
+PSOLMPO2 ;ISC-BHAM/SAB - list template to complete backdoor orders ; 13-MAR-1995
+ ;;7.0;OUTPATIENT PHARMACY;**46,71**;DEC 1997
+EN ; -- main entry point for PSO LM BACKDOOR ORDER
+ D EN^VALM("PSO LM BACKDOOR ORDER")
+ Q
+ ;
+HDR ; -- header code
+ D HDR^PSOLMUTL
+ Q
+ ;
+INIT ; -- init variables and list array
+ S VALMCNT=IEN,VALM("TITLE")="New OP Order ("_$S($G(COPY):"COPY",1:"ROUTINE")_")"
+ S VALMCNT=PSOPF
+ D RV^PSONFI Q
+ ;
+HELP ; -- help code
+ S X="?" D DISP^XQORM1 W !!
+ Q
+ ;
+EXIT ; -- exit code
+ K PSOANSQD
+ S PSOQFLG=1 Q
+ ;
+EXPND ; -- expand code
+ Q
+ ;