- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWRPP1.m
r628 r636 1 1 ORWRPP1 ; slc/dcm - Background Report Prints (cont.) ; 12/05/02 11:02 2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,160,192,263**;Dec 17, 1997;Build 9 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,160,192**;Dec 17, 1997 4 3 MEDB(ROOT,ORDFN,OREXAMID,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE) ;Print Medicine report 5 4 K ^TMP("MCAR",$J) 6 ;I '$D(^MCAR(690,"AC",ORDFN)) Q5 I '$D(^MCAR(690,"AC",ORDFN)) Q 7 6 N ORHFS,%,%I,DA,DILCT,DISTP,S1,S2,S4,S6,TY,WH 8 7 S ORHFS=1
Note:
See TracChangeset
for help on using the changeset viewer.