Changeset 636 for FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPUSEL.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPUSEL.m
r628 r636 1 1 PRCPUSEL ;WISC/RFJ/DAP-utilities: setup inventory variables ;14 Feb 91 2 V ;;5.1;IFCAP;**1,83 ,110**;Oct 20, 2000;Build 73 ;Per VHA Directive 2004-038, this routine should not be modified.2 V ;;5.1;IFCAP;**1,83**;Oct 20, 2000 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; enter distribution point--input variables: 5 5 ; prcp("dptype")=distribution point type code [W,P,S] … … 20 20 I % S PRCF("X")="S" D ^PRCFSITE I '+$G(PRC("SITE")) K PRC,PRCP Q 21 21 ; 22 S %=0 F I="DPTYPE","HIS","I","IN","INV" I '$ G(PRCP(I)) S %=1 Q22 S %=0 F I="DPTYPE","HIS","I","IN","INV" I '$D(PRCP(I)) S %=1 Q 23 23 I '% D DISPLAY Q 24 24 ; … … 101 101 ; 102 102 ; 103 PARAM(INVPT) ; set up parameters for inventory point103 PARAM(INVPT) ; set up parameters for inventory point 104 104 K PRCP 105 105 N DATA
Note:
See TracChangeset
for help on using the changeset viewer.