ORWDXC2.m

ORWDXC2 ; SLC/KCM - Utilities for Order Checking ;08/17/15  06:07

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**377**;Dec 17, 1997;Build 582

 ;

SAVECANC(ORY,ORDFN,ORENCLOC,ORC,ORD,ORREN) ;save cancelled order checks

 M ^XTMP("ORWDXC2",$H,"ORD")=ORD

 M ^XTMP("ORWDXC2",$H,"ORC")=ORC

 S ^XTMP("ORWDXC2",$H,"ORDFN")=ORDFN

 S ^XTMP("ORWDXC2",$H,"ORENCLOC")=ORENCLOC

 S ^XTMP("ORWDXC2",$H,"ORREN")=ORREN

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORWDXC2   405     printed  Dec 13, 2024@02:35:57                                                                                                                                                                                                      Page 2

ORWDXC2   ; SLC/KCM - Utilities for Order Checking ;08/17/15  06:07

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**377**;Dec 17, 1997;Build 582

 +2       ;

SAVECANC(ORY,ORDFN,ORENCLOC,ORC,ORD,ORREN) ;save cancelled order checks

 +1        MERGE ^XTMP("ORWDXC2",$HOROLOG,"ORD")=ORD

 +2        MERGE ^XTMP("ORWDXC2",$HOROLOG,"ORC")=ORC

 +3        SET ^XTMP("ORWDXC2",$HOROLOG,"ORDFN")=ORDFN

 +4        SET ^XTMP("ORWDXC2",$HOROLOG,"ORENCLOC")=ORENCLOC

 +5        SET ^XTMP("ORWDXC2",$HOROLOG,"ORREN")=ORREN

 +6        QUIT