|
Last change
on this file since 619 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
557 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
