Routine: PRCPAGRG

PRCPAGRG ;WISC/RFJ-autogen print items with groups not selected     ;01 Dec 92

 ;;5.1;IFCAP;;Oct 20, 2000

 ;Per VHA Directive 10-93-142, this routine should not be modified.

NOGROUP ;  print groups not selected

 N %,%H,%I,DESCNSN,GNM,ITEMDA,NOW,PAGE,SCREEN,X,Y

 D NOW^%DTC S Y=% D DD^%DT S NOW=Y,PAGE=1,SCREEN=$$SCRPAUSE^PRCPUREP U IO D H

 S GNM="" F  S GNM=$O(^TMP($J,"PRCPAG","NOG",GNM)) Q:GNM=""!($G(PRCPFLAG))  D

 .   W !!?7,"GROUP: ",$S(GNM=" ":"<< GROUP NOT DEFINED >>",1:GNM),!

 .   S DESCNSN="" F  S DESCNSN=$O(^TMP($J,"PRCPAG","NOG",GNM,DESCNSN)) Q:DESCNSN=""  S ITEMDA=0 F  S ITEMDA=$O(^TMP($J,"PRCPAG","NOG",GNM,DESCNSN,ITEMDA)) Q:'ITEMDA!($G(PRCPFLAG))  D

 .   .   W !,ITEMDA,?7,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,54) W:PRCP("DPTYPE")="W" ?63,$$NSN^PRCPUX1(ITEMDA)

 .   .   I $Y>(IOSL-5) D:SCREEN P^PRCPUREP Q:$G(PRCPFLAG)  D H

 I $G(PRCPFLAG) Q

 D END^PRCPUREP

H S %=NOW_"  PAGE "_PAGE,PAGE=PAGE+1 I PAGE'=2!(SCREEN) W @IOF

 W $C(13),"AUTO-GENERATION GROUPS AND ITEMS NOT SELECTED",?(80-$L(%)),%,!?5,"FOR INVENTORY POINT: ",PRCP("IN"),!,"MI#",?7,"DESCRIPTION" W:PRCP("DPTYPE")="W" ?63,"NSN" S %="",$P(%,"-",81)="" W !,%

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCPAGRG   1180     printed  Apr 09, 2024@21:18:21                                                                                                                                                                                                    Page 2

PRCPAGRG  ;WISC/RFJ-autogen print items with groups not selected     ;01 Dec 92

 +1       ;;5.1;IFCAP;;Oct 20, 2000

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT

 +4       ;

 +5       ;

NOGROUP   ;  print groups not selected

 +1        NEW %,%H,%I,DESCNSN,GNM,ITEMDA,NOW,PAGE,SCREEN,X,Y

 +2        DO NOW^%DTC

           SET Y=%

           DO DD^%DT

           SET NOW=Y

           SET PAGE=1

           SET SCREEN=$$SCRPAUSE^PRCPUREP

           USE IO

           DO H

 +3        SET GNM=""

FOR

               SET GNM=$ORDER(^TMP($JOB,"PRCPAG","NOG",GNM))

               if GNM=""!($GET(PRCPFLAG))

                   QUIT

               Begin DoDot:1

 +4                WRITE !!?7,"GROUP: ",$SELECT(GNM=" ":"<< GROUP NOT DEFINED >>",1:GNM),!

 +5                SET DESCNSN=""

FOR

                       SET DESCNSN=$ORDER(^TMP($JOB,"PRCPAG","NOG",GNM,DESCNSN))

                       if DESCNSN=""

                           QUIT

                       SET ITEMDA=0

FOR

                           SET ITEMDA=$ORDER(^TMP($JOB,"PRCPAG","NOG",GNM,DESCNSN,ITEMDA))

                           if 'ITEMDA!($GET(PRCPFLAG))

                               QUIT

                           Begin DoDot:2

 +6                            WRITE !,ITEMDA,?7,$EXTRACT($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,54)

                               if PRCP("DPTYPE")="W"

                                   WRITE ?63,$$NSN^PRCPUX1(ITEMDA)

 +7                            IF $Y>(IOSL-5)

                                   if SCREEN

                                       DO P^PRCPUREP

                                   if $GET(PRCPFLAG)

                                       QUIT

                                   DO H

                           End DoDot:2

               End DoDot:1

 +8        IF $GET(PRCPFLAG)

               QUIT

 +9        DO END^PRCPUREP

 +10       QUIT

 +11      ;

 +12      ;

H          SET %=NOW_"  PAGE "_PAGE

           SET PAGE=PAGE+1

           IF PAGE'=2!(SCREEN)

               WRITE @IOF

 +1        WRITE $CHAR(13),"AUTO-GENERATION GROUPS AND ITEMS NOT SELECTED",?(80-$LENGTH(%)),%,!?5,"FOR INVENTORY POINT: ",PRCP("IN"),!,"MI#",?7,"DESCRIPTION"

           if PRCP("DPTYPE")="W"

               WRITE ?63,"NSN"

           SET %=""

           SET $PIECE(%,"-",81)=""

           WRITE !,%

 +2        QUIT

PRCPAGRG.m