PRCPRKWZ.m

PRCPRKWZ ;WISC/RFJ-items flagged 'kill when zero' report            ;22 Jul 91

 ;;5.1;IFCAP;;Oct 20, 2000

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

 D ^PRCPUSEL Q:'$G(PRCP("I"))

 N %,PRCPINV,X W !?2,"START WITH NSN: FIRST// @    <<-- ENTER '@' TO PRINT ITEMS WITHOUT A NSN"

 S PRCPINV=$$INVNAME^PRCPUX1(PRCP("I")),DIC="^PRCP(445,",L=0,FLDS="[PRCP REPORT:NSN]",BY=".01,1,@.01:5;""NSN"",1,@17",FR=PRCPINV_",?,Y",TO=PRCPINV_",?,Y",DHD="KILL WHEN ZERO REPORT",DIOEND="D END^PRCPUREP" D EN1^DIP Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCPRKWZ   524     printed  Dec 13, 2024@02:15:06                                                                                                                                                                                                     Page 2

PRCPRKWZ  ;WISC/RFJ-items flagged 'kill when zero' report            ;22 Jul 91

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

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

 +3        DO ^PRCPUSEL

           if '$GET(PRCP("I"))

               QUIT 

 +4        NEW %,PRCPINV,X

           WRITE !?2,"START WITH NSN: FIRST// @    <<-- ENTER '@' TO PRINT ITEMS WITHOUT A NSN"

 +5        SET PRCPINV=$$INVNAME^PRCPUX1(PRCP("I"))

           SET DIC="^PRCP(445,"

           SET L=0

           SET FLDS="[PRCP REPORT:NSN]"

           SET BY=".01,1,@.01:5;""NSN"",1,@17"

           SET FR=PRCPINV_",?,Y"

           SET TO=PRCPINV_",?,Y"

           SET DHD="KILL WHEN ZERO REPORT"

           SET DIOEND="D END^PRCPUREP"

           DO EN1^DIP

           QUIT