ORY99 ; slc/dcm - Patch 99 Post-init ;12/25/00 16:09
;;3.0;ORDER ENTRY/RESULTS REPORTING;**99**;Dec 17, 1997
POST ;Recompile/modify compiled print codes
N I,X,Y
S I=0,Y("^XTMP")="^TMP"
F S I=$O(^ORD(100.22,I)) Q:'I I $G(^(I,1))["^XTMP" S X=^(1),^(1)=$$REPLACE^XLFSTR(X,.Y)
K Y
S I=0
S Y("N Y,ORXPTMP")="N Y"
S Y("S ORXPTMP=$$XTMP^ORPRS09(""ORP:""_$J,""Ord Text Print Fld"") M ^TMP(ORXPTMP)=Y")="M ^TMP(""ORP:"",$J)=Y"
S Y("S ORXPTMP=$$XTMP^ORPRS09(""ORP:""_$J,""RX ADMIN"") M ^TMP(ORXPTMP)=Y")="M ^TMP(""ORP:"",$J)=Y"
S Y("S ORXPTMP=$$XTMP^ORPRS09(""ORP:""_$J,""Lab Test Prnt Fld"") M ^TMP(ORXPTMP)=Y")="M ^TMP(""ORP:"",$J)=Y"
S Y="^TMP(""""""_ORXPTMP_"""""")",Y(Y)="^TMP(""""ORP:"""",$J)"
F S I=$O(^ORD(100.22,I)) Q:'I I $G(^(I,1))["XTMP^ORPRS09" S X=^(1),^(1)=$$REPLACE^XLFSTR(X,.Y)
D RECMPL^ORPR00,ORP
Q
ORP ;Look for ORP nodes
N I
S I=""
F S I=$O(^TMP(I)) Q:I="" I $E(I,1,3)="OR:" K ^TMP(I)
S I=""
F S I=$O(^XTMP(I)) Q:I="" I $E(I,1,3)="OR:"!($E(I,1,4)="ORP:") K ^XTMP(I)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY99 1030 printed Oct 16, 2024@18:43:37 Page 2
ORY99 ; slc/dcm - Patch 99 Post-init ;12/25/00 16:09
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**99**;Dec 17, 1997
POST ;Recompile/modify compiled print codes
+1 NEW I,X,Y
+2 SET I=0
SET Y("^XTMP")="^TMP"
+3 FOR
SET I=$ORDER(^ORD(100.22,I))
if 'I
QUIT
IF $GET(^(I,1))["^XTMP"
SET X=^(1)
SET ^(1)=$$REPLACE^XLFSTR(X,.Y)
+4 KILL Y
+5 SET I=0
+6 SET Y("N Y,ORXPTMP")="N Y"
+7 SET Y("S ORXPTMP=$$XTMP^ORPRS09(""ORP:""_$J,""Ord Text Print Fld"") M ^TMP(ORXPTMP)=Y")="M ^TMP(""ORP:"",$J)=Y"
+8 SET Y("S ORXPTMP=$$XTMP^ORPRS09(""ORP:""_$J,""RX ADMIN"") M ^TMP(ORXPTMP)=Y")="M ^TMP(""ORP:"",$J)=Y"
+9 SET Y("S ORXPTMP=$$XTMP^ORPRS09(""ORP:""_$J,""Lab Test Prnt Fld"") M ^TMP(ORXPTMP)=Y")="M ^TMP(""ORP:"",$J)=Y"
+10 SET Y="^TMP(""""""_ORXPTMP_"""""")"
SET Y(Y)="^TMP(""""ORP:"""",$J)"
+11 FOR
SET I=$ORDER(^ORD(100.22,I))
if 'I
QUIT
IF $GET(^(I,1))["XTMP^ORPRS09"
SET X=^(1)
SET ^(1)=$$REPLACE^XLFSTR(X,.Y)
+12 DO RECMPL^ORPR00
DO ORP
+13 QUIT
ORP ;Look for ORP nodes
+1 NEW I
+2 SET I=""
+3 FOR
SET I=$ORDER(^TMP(I))
if I=""
QUIT
IF $EXTRACT(I,1,3)="OR:"
KILL ^TMP(I)
+4 SET I=""
+5 FOR
SET I=$ORDER(^XTMP(I))
if I=""
QUIT
IF $EXTRACT(I,1,3)="OR:"!($EXTRACT(I,1,4)="ORP:")
KILL ^XTMP(I)
+6 QUIT
