Routine: LR541PST

Information

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

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	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"LR5.2541 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