Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
557 bytes
|
Line | |
---|
1 | ORY8 ;SLC/MKB -- post-install for OR*3*8 ;4/13/98 08:52
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**8**;Dec 17, 1997
|
---|
3 | ;
|
---|
4 | EN ; -- Rebuild ^ORD(101.41,"APKG") xref
|
---|
5 | ;
|
---|
6 | N IFN,PKG,NODE0 S IFN=0
|
---|
7 | F S IFN=$O(^ORD(101.41,IFN)) Q:IFN'>0 S NODE0=$G(^(IFN,0)) D
|
---|
8 | . S PKG=$P(NODE0,U,7) I $P(NODE0,U,4)="Q",PKG'>0 D ;get Pkg
|
---|
9 | . . N DLG S DLG=$$DEFDLG^ORCD(IFN)
|
---|
10 | . . I DLG S PKG=+$P($G(^ORD(101.41,DLG,0)),U,7)
|
---|
11 | . . S:PKG $P(^ORD(101.41,IFN,0),U,7)=PKG
|
---|
12 | . S:PKG ^ORD(101.41,"APKG",PKG,IFN)=""
|
---|
13 | . I $D(^ORD(101.41,IFN,10,0)),$P(^(0),U,2)'["I" S $P(^(0),U,2)="101.412IA"
|
---|
14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.