source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY8.m@ 1800

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

initial load of WorldVistAEHR

File size: 557 bytes
Line 
1ORY8 ;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 ;
4EN ; -- 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.