|
Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
950 bytes
|
| Line | |
|---|
| 1 | PRCPRIT0 ;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=%
|
|---|
| 9 | ITEM 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.
