15 lines
557 B
Mathematica
15 lines
557 B
Mathematica
ORY8 ;SLC/MKB -- post-install for OR*3*8 ;4/13/98 08:52
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**8**;Dec 17, 1997
|
|
;
|
|
EN ; -- Rebuild ^ORD(101.41,"APKG") xref
|
|
;
|
|
N IFN,PKG,NODE0 S IFN=0
|
|
F S IFN=$O(^ORD(101.41,IFN)) Q:IFN'>0 S NODE0=$G(^(IFN,0)) D
|
|
. S PKG=$P(NODE0,U,7) I $P(NODE0,U,4)="Q",PKG'>0 D ;get Pkg
|
|
. . N DLG S DLG=$$DEFDLG^ORCD(IFN)
|
|
. . I DLG S PKG=+$P($G(^ORD(101.41,DLG,0)),U,7)
|
|
. . S:PKG $P(^ORD(101.41,IFN,0),U,7)=PKG
|
|
. S:PKG ^ORD(101.41,"APKG",PKG,IFN)=""
|
|
. I $D(^ORD(101.41,IFN,10,0)),$P(^(0),U,2)'["I" S $P(^(0),U,2)="101.412IA"
|
|
Q
|