- LR411PST ;VA/SLC/STAFF Post-init Routine for LR*5.2*411 ; 13-Aug-2013 09:16 ; MKK
- ;;5.2;LAB SERVICE;**411,1033**;NOV 01, 1997
- ;
- PRE ; initiate pre-init process
- Q
- ;
- POST ; initiate post-init process
- D 389262
- D MAIL
- ;
- K ^TMP($J)
- Q
- ;
- 389262 ; check file 69.2 for missing global level containing last update date
- ;
- K ^TMP($J)
- ;
- D EN^DDIOL("Checking file # 69.2 (User defined patient/test lists...",,"!!!!")
- D EN^DDIOL("",,"!")
- ;
- N AA,DZ,DT
- S AA=$O(^LRO(68,"B","CHEMISTRY",0))
- I 'AA D EN^DDIOL("No entries to correct in file # 69.2.",,"!!!") Q
- ;
- S DT=$$HTFM^XLFDT(+$H)
- S DZ=0
- F S DZ=$O(^LRO(69.2,AA,7,DZ)) Q:DZ="" D
- . I '$D(^LRO(69.2,AA,7,DZ,1,0)) S ^LRO(69.2,AA,7,DZ,1,0)="^69.3PA^0^0"
- . I '$D(^LRO(69.2,AA,7,DZ,0)) S ^LRO(69.2,AA,7,DZ,0)=DZ_"^"_DT,^TMP($J,"DUZ",DZ)=""
- ;
- D EN^DDIOL("Review/Repair of file 69.2 complete.",,"!!!!")
- ;
- Q
- ;
- MAIL ;
- ; setup, create, and send MAILMAN message listing DFNs from the NEW PERSON file
- ; that were set with today's date as the last date used for the patient/test lists
- ; in file 69.2
- ;
- I $O(^TMP($J,"DUZ",0))="" D Q
- . D BMES^XPDUTL("")
- . D BMES^XPDUTL(" PATCH LR*5.2*411 POST-INIT RESULTS")
- . D MES^XPDUTL($J("",10)_"NO USERS WERE IN NEED OF UPDATES.")
- ;
- N DIFROM,XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG,I,DZ
- ;
- S XMDUZ="PATCH LR*5.2*411 POST-INIT"
- S XMTEXT="^TMP($J,""TXT"","
- S XMSUB="PATCH LR*5.2*411 POST-INIT RESULTS"
- S:$G(DUZ) XMY(DUZ)=""
- S I=1,^TMP($J,"TXT",I)=""
- S I=I+1,^TMP($J,"TXT",I)=""
- S I=I+1,^TMP($J,"TXT",I)="User-defined test lists and patient lists are stored in file 69.2."
- S I=I+1,^TMP($J,"TXT",I)=""
- S I=I+1,^TMP($J,"TXT",I)="The last date used is a data item in this file that allows for"
- S I=I+1,^TMP($J,"TXT",I)="the deletion of lists that have not been used in a prescribed amount"
- S I=I+1,^TMP($J,"TXT",I)="of time."
- S I=I+1,^TMP($J,"TXT",I)=""
- S I=I+1,^TMP($J,"TXT",I)="In some cases the global level holding this date is missing for a user."
- S I=I+1,^TMP($J,"TXT",I)=""
- S I=I+1,^TMP($J,"TXT",I)="This post-init routine will insert this global level into file 69.2 for"
- S I=I+1,^TMP($J,"TXT",I)="those users where this level is missing. Today's date will be inserted"
- S I=I+1,^TMP($J,"TXT",I)="as the last used date so that these lists may ultimately be deleted."
- S I=I+1,^TMP($J,"TXT",I)=""
- S I=I+1,^TMP($J,"TXT",I)="The following users had today's date added as the last used date:"
- S I=I+1,^TMP($J,"TXT",I)="(These are DFNs - IENs for the NEW PERSON file.)"
- S I=I+1,^TMP($J,"TXT",I)=""
- S I=I+1,^TMP($J,"TXT",I)=""
- S DZ=0 F S DZ=$O(^TMP($J,"DUZ",DZ)) Q:DZ="" S I=I+1,^TMP($J,"TXT",I)=" "_DZ
- D ^XMD
- ;
- Q
- LR411PST ;VA/SLC/STAFF Post-init Routine for LR*5.2*411 ; 13-Aug-2013 09:16 ; MKK
- +1 ;;5.2;LAB SERVICE;**411,1033**;NOV 01, 1997
- +2 ;
- PRE ; initiate pre-init process
- +1 QUIT
- +2 ;
- POST ; initiate post-init process
- +1 DO 389262
- +2 DO MAIL
- +3 ;
- +4 KILL ^TMP($JOB)
- +5 QUIT
- +6 ;
- 389262 ; check file 69.2 for missing global level containing last update date
- +1 ;
- +2 KILL ^TMP($JOB)
- +3 ;
- +4 DO EN^DDIOL("Checking file # 69.2 (User defined patient/test lists...",,"!!!!")
- +5 DO EN^DDIOL("",,"!")
- +6 ;
- +7 NEW AA,DZ,DT
- +8 SET AA=$ORDER(^LRO(68,"B","CHEMISTRY",0))
- +9 IF 'AA
- DO EN^DDIOL("No entries to correct in file # 69.2.",,"!!!")
- QUIT
- +10 ;
- +11 SET DT=$$HTFM^XLFDT(+$HOROLOG)
- +12 SET DZ=0
- +13 FOR
- SET DZ=$ORDER(^LRO(69.2,AA,7,DZ))
- IF DZ=""
- QUIT
- Begin DoDot:1
- +14 IF '$DATA(^LRO(69.2,AA,7,DZ,1,0))
- SET ^LRO(69.2,AA,7,DZ,1,0)="^69.3PA^0^0"
- +15 IF '$DATA(^LRO(69.2,AA,7,DZ,0))
- SET ^LRO(69.2,AA,7,DZ,0)=DZ_"^"_DT
- SET ^TMP($JOB,"DUZ",DZ)=""
- End DoDot:1
- +16 ;
- +17 DO EN^DDIOL("Review/Repair of file 69.2 complete.",,"!!!!")
- +18 ;
- +19 QUIT
- +20 ;
- MAIL ;
- +1 ; setup, create, and send MAILMAN message listing DFNs from the NEW PERSON file
- +2 ; that were set with today's date as the last date used for the patient/test lists
- +3 ; in file 69.2
- +4 ;
- +5 IF $ORDER(^TMP($JOB,"DUZ",0))=""
- Begin DoDot:1
- +6 DO BMES^XPDUTL("")
- +7 DO BMES^XPDUTL(" PATCH LR*5.2*411 POST-INIT RESULTS")
- +8 DO MES^XPDUTL($JUSTIFY("",10)_"NO USERS WERE IN NEED OF UPDATES.")
- End DoDot:1
- QUIT
- +9 ;
- +10 NEW DIFROM,XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG,I,DZ
- +11 ;
- +12 SET XMDUZ="PATCH LR*5.2*411 POST-INIT"
- +13 SET XMTEXT="^TMP($J,""TXT"","
- +14 SET XMSUB="PATCH LR*5.2*411 POST-INIT RESULTS"
- +15 IF $GET(DUZ)
- SET XMY(DUZ)=""
- +16 SET I=1
- SET ^TMP($JOB,"TXT",I)=""
- +17 SET I=I+1
- SET ^TMP($JOB,"TXT",I)=""
- +18 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="User-defined test lists and patient lists are stored in file 69.2."
- +19 SET I=I+1
- SET ^TMP($JOB,"TXT",I)=""
- +20 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="The last date used is a data item in this file that allows for"
- +21 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="the deletion of lists that have not been used in a prescribed amount"
- +22 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="of time."
- +23 SET I=I+1
- SET ^TMP($JOB,"TXT",I)=""
- +24 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="In some cases the global level holding this date is missing for a user."
- +25 SET I=I+1
- SET ^TMP($JOB,"TXT",I)=""
- +26 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="This post-init routine will insert this global level into file 69.2 for"
- +27 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="those users where this level is missing. Today's date will be inserted"
- +28 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="as the last used date so that these lists may ultimately be deleted."
- +29 SET I=I+1
- SET ^TMP($JOB,"TXT",I)=""
- +30 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="The following users had today's date added as the last used date:"
- +31 SET I=I+1
- SET ^TMP($JOB,"TXT",I)="(These are DFNs - IENs for the NEW PERSON file.)"
- +32 SET I=I+1
- SET ^TMP($JOB,"TXT",I)=""
- +33 SET I=I+1
- SET ^TMP($JOB,"TXT",I)=""
- +34 SET DZ=0
- FOR
- SET DZ=$ORDER(^TMP($JOB,"DUZ",DZ))
- IF DZ=""
- QUIT
- SET I=I+1
- SET ^TMP($JOB,"TXT",I)=" "_DZ
- +35 DO ^XMD
- +36 ;
- +37 QUIT
