ORY107.m

ORY107 ;DAN/SLC Clean up non-canonic dates ;3/14/01  14:03

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**107**;Mar 15, 2001

 ;This routine will find all order date/time entries that

 ;are non-canonical and enter them in canonic form.

 N ORI,ORIEN,ORACT,ORMSG,DA,DIE,DR

 S ORMSG(1)="A task is being queued in the background to identify"

 S ORMSG(2)="any orders whose DATE/TIME ENTERED field is a non-canonic"

 S ORMSG(3)="number (having trailing zeros)."

 S ORMSG(4)=""

 S ORMSG(5)="These entries will be set to the correct canonic form"

 S ORMSG(6)="by the background job and a mail message will be sent"

 S ORMSG(7)="to the initiator of this patch at completion."

 S ORMSG(8)=""

 S ZTRTN="DQ^ORY107",ZTIO="",ZTDESC="DATE/TIME ORDER field clean up - Patch 107",ZTDTH=$H,ZTSAVE("DUZ")="" D ^%ZTLOAD

 S ORMSG(9)="The task number is "_$G(ZTSK)

 D MES^XPDUTL(.ORMSG) I '$D(ZTQUEUED) N DIR,Y S DIR(0)="E",DIR("A")="Press return to continue installation" D ^DIR

 Q

DQ ;Start processing here

 S ORI="00" F  S ORI=$O(^OR(100,"AF",ORI)) Q:ORI=""  I ORI'=+ORI D  ;if date/time is non-canonic then fix

 .S ORIEN="" F  S ORIEN=$O(^OR(100,"AF",ORI,ORIEN)) Q:ORIEN=""  S ORACT="" F  S ORACT=$O(^OR(100,"AF",ORI,ORIEN,ORACT)) Q:ORACT=""  D UPDATE

 .Q

 D MAIL ;send email notifying initiator that clean up is finished

 Q

UPDATE ;change date/time to canonic form and call DIE to reset cross references

 S DIE="^OR(100,"_ORIEN_",8,",DA=ORACT,DA(1)=ORIEN,DR=".01///"_+ORI

 D ^DIE

 Q

MAIL ; -- Send completion message to user who initiated conversion

 N XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG,ORTXT

 S XMDUZ="PATCH OR*3*107 CLEAN-UP",XMY(.5)="" S:$G(DUZ) XMY(DUZ)=""

 S ORTXT(1)="The DATE/TIME ORDERED field clean up for patch OR*3*107"

 S ORTXT(2)="completed at "_$$FMTE^XLFDT($$NOW^XLFDT)_"."

 S XMTEXT="ORTXT(",XMSUB="PATCH OR*3*107 Clean Up COMPLETED"

 D ^XMD

 Q

ORY107    ;DAN/SLC Clean up non-canonic dates ;3/14/01  14:03

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**107**;Mar 15, 2001

 +2       ;This routine will find all order date/time entries that

 +3       ;are non-canonical and enter them in canonic form.

 +4        NEW ORI,ORIEN,ORACT,ORMSG,DA,DIE,DR

 +5        SET ORMSG(1)="A task is being queued in the background to identify"

 +6        SET ORMSG(2)="any orders whose DATE/TIME ENTERED field is a non-canonic"

 +7        SET ORMSG(3)="number (having trailing zeros)."

 +8        SET ORMSG(4)=""

 +9        SET ORMSG(5)="These entries will be set to the correct canonic form"

 +10       SET ORMSG(6)="by the background job and a mail message will be sent"

 +11       SET ORMSG(7)="to the initiator of this patch at completion."

 +12       SET ORMSG(8)=""

 +13       SET ZTRTN="DQ^ORY107"

           SET ZTIO=""

           SET ZTDESC="DATE/TIME ORDER field clean up - Patch 107"

           SET ZTDTH=$HOROLOG

           SET ZTSAVE("DUZ")=""

           DO ^%ZTLOAD

 +14       SET ORMSG(9)="The task number is "_$GET(ZTSK)

 +15       DO MES^XPDUTL(.ORMSG)

           IF '$DATA(ZTQUEUED)

               NEW DIR,Y

               SET DIR(0)="E"

               SET DIR("A")="Press return to continue installation"

               DO ^DIR

 +16       QUIT 

DQ        ;Start processing here

 +1       ;if date/time is non-canonic then fix

           SET ORI="00"

           FOR 

               SET ORI=$ORDER(^OR(100,"AF",ORI))

               IF ORI=""

                   QUIT 

               IF ORI'=+ORI

                   Begin DoDot:1

 +2                    SET ORIEN=""

                       FOR 

                           SET ORIEN=$ORDER(^OR(100,"AF",ORI,ORIEN))

                           IF ORIEN=""

                               QUIT 

                           SET ORACT=""

                           FOR 

                               SET ORACT=$ORDER(^OR(100,"AF",ORI,ORIEN,ORACT))

                               IF ORACT=""

                                   QUIT 

                               DO UPDATE

 +3                    QUIT 

                   End DoDot:1

 +4       ;send email notifying initiator that clean up is finished

           DO MAIL

 +5        QUIT 

UPDATE    ;change date/time to canonic form and call DIE to reset cross references

 +1        SET DIE="^OR(100,"_ORIEN_",8,"

           SET DA=ORACT

           SET DA(1)=ORIEN

           SET DR=".01///"_+ORI

 +2        DO ^DIE

 +3        QUIT 

MAIL      ; -- Send completion message to user who initiated conversion

 +1        NEW XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG,ORTXT

 +2        SET XMDUZ="PATCH OR*3*107 CLEAN-UP"

           SET XMY(.5)=""

           IF $GET(DUZ)

               SET XMY(DUZ)=""

 +3        SET ORTXT(1)="The DATE/TIME ORDERED field clean up for patch OR*3*107"

 +4        SET ORTXT(2)="completed at "_$$FMTE^XLFDT($$NOW^XLFDT)_"."

 +5        SET XMTEXT="ORTXT("

           SET XMSUB="PATCH OR*3*107 Clean Up COMPLETED"

 +6        DO ^XMD

 +7        QUIT