- 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/ORCMEDIT.m
r628 r636 1 1 ORCMEDIT ;SLC/MKB-Menu Editor ;4/19/01 11:27 2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**8,46,95,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;**8,46,95**;Dec 17, 1997 4 3 EN ; -- start here 5 4 S ORMENU=$$MENU D:ORMENU EN^VALM("OR MENU EDITOR") … … 25 24 . M ^ORD(101.41,+ORNEW,2)=^ORD(101.41,+Y,2) ; description 26 25 . S:$D(^ORD(101.41,+Y,5)) ^ORD(101.41,+ORNEW,5)=^ORD(101.41,+Y,5) 27 . S X=$P(Y(0),U,2),$P(^ORD(101.41,+ORNEW,0),U,2)=X S:X'=""^ORD(101.41,"C",$$UP^XLFSTR(X),+ORNEW)="" ; display text26 . S X=$P(Y(0),U,2),$P(^ORD(101.41,+ORNEW,0),U,2)=X,^ORD(101.41,"C",$$UP^XLFSTR(X),+ORNEW)="" ; display text 28 27 . S DA(1)=+ORNEW,DIK="^ORD(101.41,"_+ORNEW_",10,",DIK(1)="2^AD" D ENALL^DIK 29 28 I $P(ORNEW,U,3) S DA=+ORNEW,DIE="^ORD(101.41,",DR="2;20;51;52;53"_$S($G(DUZ(0))="@":";30;40",1:"") D ^DIE
Note:
See TracChangeset
for help on using the changeset viewer.