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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY8 571 printed Sep 23, 2025@20:19:21 Page 2
ORY8 ;SLC/MKB -- post-install for OR*3*8 ;4/13/98 08:52
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**8**;Dec 17, 1997
+2 ;
EN ; -- Rebuild ^ORD(101.41,"APKG") xref
+1 ;
+2 NEW IFN,PKG,NODE0
SET IFN=0
+3 FOR
SET IFN=$ORDER(^ORD(101.41,IFN))
if IFN'>0
QUIT
SET NODE0=$GET(^(IFN,0))
Begin DoDot:1
+4 ;get Pkg
SET PKG=$PIECE(NODE0,U,7)
IF $PIECE(NODE0,U,4)="Q"
IF PKG'>0
Begin DoDot:2
+5 NEW DLG
SET DLG=$$DEFDLG^ORCD(IFN)
+6 IF DLG
SET PKG=+$PIECE($GET(^ORD(101.41,DLG,0)),U,7)
+7 if PKG
SET $PIECE(^ORD(101.41,IFN,0),U,7)=PKG
End DoDot:2
+8 if PKG
SET ^ORD(101.41,"APKG",PKG,IFN)=""
+9 IF $DATA(^ORD(101.41,IFN,10,0))
IF $PIECE(^(0),U,2)'["I"
SET $PIECE(^(0),U,2)="101.412IA"
End DoDot:1
+10 QUIT
