| 1 | ORY164 ;SLC/MKB - Postinit for OR*3*164
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**164**;Dec 17, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | PRE ; -- 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 | ;
|
|---|
| 9 | POST ; -- 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))
|
|---|
| 17 | P1 ;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
|
|---|
