Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ORMLR4

ORMLR4.m

Go to the documentation of this file.

ORMLR4 ; SLC/JLC - Update Package Reference;5/21/2012

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**315**;Dec 17, 1997;Build 20

PKG(ORIFN,NEW) ;update package reference

 Q:$G(ORIFN)=""  Q:$G(NEW)=""

 S ^OR(100,ORIFN,4)=NEW

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORMLR4   241     printed  Apr 09, 2024@21:41:08                                                                                                                                                                                                       Page 2

ORMLR4    ; SLC/JLC - Update Package Reference;5/21/2012

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**315**;Dec 17, 1997;Build 20

 +2       ;

 +3       ;

 +4       ;

 +5        QUIT

PKG(ORIFN,NEW) ;update package reference

 +1        if $GET(ORIFN)=""

               QUIT

           if $GET(NEW)=""

               QUIT

 +2        SET ^OR(100,ORIFN,4)=NEW

 +3        QUIT