source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPRIT0.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 950 bytes
Line 
1PRCPRIT0 ;WISC/RFJ-display item ; 10/19/06 9:02am
2 ;;5.1;IFCAP;**98**;Oct 20, 2000;Build 37
3 ;Per VHA Directive 2004-038, this routine should not be modified.
4 D ^PRCPUSEL Q:'$G(PRCP("I"))
5 N %,INVPT,ITEMDA,ODIFLAG
6 S INVPT=PRCP("I") I $O(^PRCP(445,PRCP("I"),2,0))="" G ITEM
7 W !!,"Enter the DISTRIBUTION POINT to select an item from the distribution point, or",!,"Enter <RETURN> to select an item from the ",PRCP("IN")," inventory point."
8 S %=$$TO^PRCPUDPT(PRCP("I")) Q:%["^" I % S INVPT=%
9ITEM S ODIFLAG="P"
10 I PRCP("DPTYPE")="W" D
11 .I %=0 S ODIFLAG="W"
12 F W ! S ITEMDA=$$ITEM^PRCPUITM(INVPT,0,"","") Q:'ITEMDA D
13 . S %ZIS="Q" D ^%ZIS Q:POP I $D(IO("Q")) D D ^%ZTLOAD K IO("Q"),ZTSK Q
14 . . S ZTDESC="Display Item Report",ZTRTN="DQ^PRCPRIT1"
15 . . S ZTSAVE("PRCP*")="",ZTSAVE("ITEMDA")="",ZTSAVE("INVPT")="",ZTSAVE("ZTREQ")="@",ZTSAVE("O*")=""
16 . W !!,"<*> please wait <*>"
17 . D DQ^PRCPRIT1
18 Q
Note: See TracBrowser for help on using the repository browser.