source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY164.m@ 1766

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1ORY164 ;SLC/MKB - Postinit for OR*3*164
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**164**;Dec 17, 1997
3 ;
4PRE ; -- preinit
5 N ORY,ORERR D FIELD^DID(101.439,2,,"LABEL","ORY","ORERR")
6 I '$L($G(ORY("LABEL"))) S ^TMP("OR164",$J)=1 ;first install
7 Q
8 ;
9POST ; -- postinit
10 N X,Y,DIC,DIE,DR,DA,ORCM
11 S DIC="^DIC(19,",DIC(0)="",X="ORCM MGMT" D ^DIC I Y S ORCM=+Y D
12 . S DIC="^DIC(19,"_ORCM_",10,",DIC(0)="",X="ORCM ORDERABLES"
13 . D ^DIC Q:Y<1
14 . S DR=".01///^S X=""ORCM ORDERABLES MENU"""
15 . S DA(1)=ORCM,DA=+Y,DIE=DIC D ^DIE
16 Q:'$G(^TMP("OR164",$J))
17P1 ;convert OI Screens on first install only
18 N I,ORDLG,ORP,ORDA,ORS,Z,NEWSCR
19 S I=0 F S I=$O(^ORD(101.41,I)) Q:I<1 I $P($G(^(I,0)),U,4)="P",$P($G(^(1)),U)="P",+$P(^(1),U,2)=101.43 S ORP(I)=""
20 S ORDLG=0 F S ORDLG=+$O(^ORD(101.41,ORDLG)) Q:ORDLG<1 I $P($G(^(ORDLG,0)),U,4)="D" D
21 . S I=0 F S I=$O(ORP(I)) Q:I<1 S ORDA=+$O(^ORD(101.41,ORDLG,10,"D",I,0)) I ORDA D
22 .. S ORS=$G(^ORD(101.41,ORDLG,10,ORDA,4))
23 .. I '$L(ORS) S ^ORD(101.41,ORDLG,10,ORDA,4)="I $$ACTIVE^ORDD43(Y)" Q
24 .. S Z=$F(ORS,"'$G(^(.1))!($G(^(.1))>$$NOW^XLFDT)") ;$L=34
25 .. I Z S NEWSCR=$E(ORS,1,(Z-35))_"$$ACTIVE^ORDD43(Y)"_$E(ORS,Z,999),^ORD(101.41,ORDLG,10,ORDA,4)=NEWSCR Q
26 .. I ORS?1"I ".E S ^ORD(101.41,ORDLG,10,ORDA,4)="I $$ACTIVE^ORDD43(Y),"_$E(ORS,3,999) Q
27 K ^TMP("OR164",$J)
28 Q
Note: See TracBrowser for help on using the repository browser.