ORY8.m

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 ---ORY8   571     printed  Apr 09, 2024@21:44:06                                                                                                                                                                                                         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