Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LR541PST

Package: Lab Service

Routine: LR541PST


Information

LR541PST ;HPS/DSK - LR*5.2*541 PATCH POST INSTALL ROUTINE ;Nov 12, 2020@15:02

Source Information

Source file <LR541PST.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$FMADD^XLFDT  
MailMan 1 SENDMSG^XMXAPI  
Order Entry Results Reporting 1 STATUS^ORCSAVE2  

Entry Points

Name Comments DBIA/ICR reference
EN ;
; 1. Scan all Microbiology accession areas starting in 2019.
; 2. If any test at ^LRO(68,LRAA,1,LRAD,1,LRAN,4,test,0) has a complete date/time,
; retrieve file 69 order number. Quit if no complete tests.
; 3. In file 69, find CPRS order number for the test. Quit if referral patient and
; no order number.
; 4. Check status in file 100. Quit if not active.
; 5. Check status in file 63. (Due to unreported issue in which file 68 status
; might be complete but file 63 status is preliminary.)
; 6. If any accession area for the test is preliminary or not present in file 63, quit.
; 7. If not ordered as a component of a panel, call STATUS^ORCSAVE2 to update CPRS status
; to complete.
; 8. If ordered as a component of a panel, check all panel components to determine
; if any are not complete in file 68.
; 9. For all complete component statuses in file 68, check file 63 statuses.
START ;
LRTST ;
CHK63(LRXDFN,LRXIDT,LRXTEST) ;
LRO69 ;analyze CPRS order number
UPDATE ;update status to "complete" and set trace file
XTMP ;Generate MailMan message and keep in ^XTMP for 60 days
MAIL ;

External References

Name Field # of Occurrence
^%ZTLOAD EN+26
STATUS^ORCSAVE2 UPDATE+1
$$FMADD^XLFDT START+2, XTMP+1
SENDMSG^XMXAPI MAIL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"LR*5.2*541 Post-Install Routine has been tasked - TASK NUMBER: ",$G(ZTSK)
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!,"You as well as members of the LMI MailMan Group will receive"
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !,"a MailMan message when the search completes.",!
  • Line Location: EN+29

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] CHK63+4
^LAB(62.07 - [#62.07] START+8, START+9
^LR - [#63] START+25, CHK63+10, CHK63+11
^LRO(68 - [#68] START+14, START+17, START+19, START+23, START+26, LRTST+4, LRTST+5, LRTST+14, LRTST+15, LRO69+33
, LRO69+37
^LRO(69 - [#69] LRTST+18, LRTST+19, LRO69+3, LRO69+4, LRO69+8, LRO69+23, LRO69+24, LRO69+31
^OR(100 - [#100] LRO69+16
^TMP("LR541 OR CHECKED" START+5!, LRO69+13, LRO69+42*, XTMP+14!
^TMP("LR541 OR NO UPDATE" START+5!, LRO69+14, LRO69+36*, LRO69+40*, LRO69+43, XTMP+14!
^TMP("LR541 TRACE" START+22
^XTMP("LR 541 MAILMAN MESSAGE" XTMP+1*, XTMP+3*, XTMP+4*, XTMP+5*, XTMP+10*, XTMP+11*, XTMP+12*, XTMP+13*
^XTMP("LR 541 POST INSTALL" START+2*, START+3*, UPDATE+2*, XTMP+2, XTMP+7*

Label References

Name Line Occurrences
$$CHK63 LRTST+12, LRO69+38
LRO69 LRTST+19
LRTST START+27
MAIL START+28
UPDATE LRO69+19, LRO69+45
XTMP START+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT START+2, XTMP+1
DUZ EN+24, MAIL+7
LRACN START+1~, START+18*, START+19*, START+22, START+23, START+26, LRTST+4, LRTST+5, LRTST+14, LRTST+15
LRAREA START+1~, START+13*, START+14*, START+17, START+19, START+22, START+23, START+26, LRTST+4, LRTST+5
, LRTST+14, LRTST+15
LRDATE START+1~, START+16*, START+17*, START+19, START+22, START+23, START+26, LRTST+4, LRTST+5, LRTST+14
, LRTST+15
LRDFN START+1~, START+23*, START+25, LRTST+12, LRO69+38
LRDUZ EN+20~, EN+24*, MAIL+3
LREX START+1~, START+7*, START+8*, START+9, START+12
LREXEC START+1~
LREXEC( START+12*, CHK63+7, CHK63+8
LREXSTR START+1~, START+7*, START+9*, START+10
LRIDT START+1~, START+26*, LRTST+12
LRMFROM MAIL+1~
LRMIN MAIL+1~, MAIL+7
LRMIN("FROM" MAIL+2*
LRMSUB MAIL+1~, MAIL+5*, MAIL+7
LRMTEXT MAIL+1~, MAIL+6*, MAIL+7
LRMY MAIL+1~, MAIL+7
LRMY( MAIL+3*
LRMY("G.LMI" MAIL+4*
LRNTST LRO69+1~, LRO69+4*, LRO69+7, LRO69+31*, LRO69+33, LRO69+38
LRNUM START+1~, START+13*, UPDATE+3*, XTMP+12
LROCPRS LRO69+1~, LRO69+8*, LRO69+11, LRO69+13, LRO69+14, LRO69+16, LRO69+25, LRO69+36, LRO69+40, LRO69+42
, LRO69+43, UPDATE+1, UPDATE+2
LRODATE LRTST+1~, LRTST+17*, LRTST+18*, LRTST+19, LRO69+3, LRO69+4, LRO69+8, LRO69+23, LRO69+24, LRO69+31
, UPDATE+2
LRORD LRTST+1~, LRTST+15*, LRTST+16, LRTST+18, LRTST+19
LROSN LRTST+1~, LRTST+17*, LRTST+19*, LRO69+3, LRO69+4, LRO69+8, LRO69+23, LRO69+24, LRO69+31, UPDATE+2
LROTST LRO69+1~, LRO69+2*, LRO69+3*, LRO69+4, LRO69+8
LRPANEL LRTST+1~, LRTST+14*, LRO69+7, LRO69+19
LRPEND LRTST+1~, LRTST+12*, LRTST+13, LRO69+38*, LRO69+40
LRSTR LRTST+1~, LRTST+5*, LRTST+7, LRTST+11
LRSUB START+1~, START+10*, START+11, START+12, LRTST+1~
LRTST LRTST+1~, LRTST+3*, LRTST+4*, LRTST+5, LRTST+12, LRTST+14, LRO69+7, LRO69+19
LRX68STR LRO69+21~, LRO69+33*, LRO69+34, LRO69+36
LRXAA LRO69+21~, LRO69+29*, LRO69+30, LRO69+33, LRO69+37
LRXAD LRO69+21~, LRO69+26*, LRO69+28, LRO69+33, LRO69+37
LRXAN LRO69+21~, LRO69+29*, LRO69+30, LRO69+33, LRO69+37
LRXDFN LRTST+2~, CHK63~, CHK63+10, CHK63+11
LRXEX CHK63+3~, CHK63+4*, CHK63+6, CHK63+7, CHK63+8
LRXIDT LRTST+2~, CHK63~, CHK63+10, CHK63+11
LRXIDTZ LRO69+21~, LRO69+37*, LRO69+38
LRXSTR LRO69+21~, LRO69+24*, LRO69+25, LRO69+26, LRO69+29
LRXSUB CHK63+3~, CHK63+8*, CHK63+10, CHK63+11
LRXTEST LRTST+2~, CHK63~, CHK63+4
LRXTST LRO69+21~, LRO69+22*, LRO69+23*, LRO69+24, LRO69+31
>> ZTDESC EN+22*
>> ZTDTH EN+23*
>> ZTIO EN+23*
>> ZTQUEUED START+29
>> ZTREQ START+29*
>> ZTRTN EN+21*
>> ZTSAVE("LRDUZ" EN+25*
>> ZTSK EN+27
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All