ORY99.m

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 ---ORY99   1030     printed  Apr 09, 2024@21:37:42                                                                                                                                                                                                       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