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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRPURGU

Package: IHS Changes To Lab

Routine: BLRPURGU


Information

BLRPURGU ; IHS/MSC/MKK - Purge Old Orders & Accessions Utilities ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <BLRPURGU.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
VA Fileman 3 $$FIND1^DIC  UPDATE^DIE  $$GET1^DIQ  
IHS Changes To Lab 2 (ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,LINEWRAP,MENUDRVR,PRESSKEY)^BLRGMENU  MAILALMI^BLRUTIL3  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LROC  

Entry Points

Name Comments DBIA/ICR reference
STORPURG ; EP - Store Purging Data - Called from LROC
PLURALI(CNT) ; EP - If CNT'=1, return IES else return Y
DUZRPTI() ; EP - Initialization
JUSTNEW ; EP - Generic RPMS EXCLUSIVE NEW
BADSTUFF(STR,TAB) ; EP - BADSTUFF error message
DUZRPT ; EP - Report by User
PEP ; EP
EEP ; Ersatz EP
SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
REPORTI() ; EP - Initialization
BADSTUFQ(STR,TAB) ; EP - BADSTUFF error message. Ends with Q "Q"uit
REPORT ; EP - Main Report
EP ; EP

External References

Name Field # of Occurrence
^%ZIS REPORTI+11, DUZRPTI+11
ADDTMENU^BLRGMENU PEP+5, PEP+6
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU REPORTI+8, REPORTI+10, REPORTI+14, DUZRPTI+8, DUZRPTI+10, DUZRPTI+14
HEADERPG^BLRGMENU REPORT+10, DUZRPT+11
HEADONE^BLRGMENU REPORTI+9, DUZRPTI+9
LINEWRAP^BLRGMENU REPORT+16, DUZRPT+17
MENUDRVR^BLRGMENU PEP+11
PRESSKEY^BLRGMENU REPORT+21, DUZRPT+22, BADSTUFF+3
MAILALMI^BLRUTIL3 STORPURG+16
$$FIND1^DIC PEP+8
UPDATE^DIE STORPURG+7
$$GET1^DIQ PEP+9, REPORT+6, REPORT+7, REPORT+8, REPORT+14, REPORT+16, REPORTI+4, DUZRPT+8, DUZRPT+9, DUZRPT+15
, DUZRPT+17, DUZRPTI+4
$$FMTE^XLFDT REPORT+12, DUZRPT+13
$$NOW^XLFDT STORPURG+3
$$CJ^XLFSTR REPORTI+6, DUZRPTI+6, STORPURG+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(PURGDTT,"5MZ")
  • Line Location: REPORT+12
Function Call: WRITE
  • Prompt: ?19,USER
  • Line Location: REPORT+13
Function Call: WRITE
  • Prompt: ?29,$$GET1^DIQ(200,USER,.01)
  • Line Location: REPORT+14
Function Call: WRITE
  • Prompt: ?49,USERDIV
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+17
Function Call: WRITE
  • Prompt: !!,?4,CNT," 'Purge Old Orders & Accessions' entr",$$PLURALI(CNT),"."
  • Line Location: REPORT+20
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(PURGDTT,"5MZ")
  • Line Location: DUZRPT+13
Function Call: WRITE
  • Prompt: ?19,USER
  • Line Location: DUZRPT+14
Function Call: WRITE
  • Prompt: ?29,$$GET1^DIQ(200,USER,.01)
  • Line Location: DUZRPT+15
Function Call: WRITE
  • Prompt: ?49,USERDIV
  • Line Location: DUZRPT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DUZRPT+18
Function Call: WRITE
  • Prompt: !!,?4,CNT," 'Purge Old Orders & Accessions' entr",$$PLURALI(CNT),"."
  • Line Location: DUZRPT+21
Function Call: WRITE
  • Prompt: !!,?TAB,STR," Routine Ends."
  • Line Location: BADSTUFF+2
Routine Call
  • DIE
  • Line Location:
    • STORPURG+7
Routine Call
  • DIC
  • Line Location:
    • PEP+8
Routine Call
  • %ZIS
  • Line Location:
    • REPORTI+11
    • DUZRPTI+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^LAB(69.9 - [#69.9] GET1^DIQ
^DIC(9.4 - [#9.4] FIND1^DIC,  GET1^DIQ
^BLRPURGU - [#90475.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRPURGU - [#90475.8] REPORT+5
^BLRPURGU("C" DUZRPT+5, DUZRPT+7

Label References

Name Line Occurrences
$$BADSTUFQ REPORTI+12, DUZRPTI+12
$$DUZRPTI DUZRPT+3
$$PLURALI REPORT+20, DUZRPT+21
$$REPORTI REPORT+3
BADSTUFF BADSTUFQ+1
SETBLRVS PEP+3, REPORTI+1, DUZRPTI+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRIEN PEP+8*, PEP+9
BLRVERN SETBLRVS+1!, SETBLRVS+3*
BLRVERN2 SETBLRVS+1!, SETBLRVS+4*
CNT REPORT+18*, REPORT+20, REPORTI+23*, DUZRPT+19*, DUZRPT+21, DUZRPTI+23*, PLURALI~, PLURALI+1
>> DEEZ REPORT+5*, REPORT+6, REPORT+7, REPORT+8, REPORTI+23*, DUZRPT+6*, DUZRPT+7*, DUZRPT+8, DUZRPT+9
>> DILOCKTM PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
>> DISYS PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
DT PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
DTIME PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
DUZ PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, STORPURG+5, STORPURG+14, JUSTNEW+1
DUZ(2 STORPURG+6
>> ERRS STORPURG+8
>> FDA( STORPURG+4*, STORPURG+5*, STORPURG+6*
>> GRACEPO REPORTI+4*, REPORTI+5, DUZRPTI+4*, DUZRPTI+5
>> HDRONE REPORT+10, REPORTI+9, DUZRPT+11, DUZRPTI+9
>> HEADER(1 REPORTI+3*, DUZRPTI+3*
>> HEADER(2 REPORTI+5*, DUZRPTI+5*
>> HEADER(3 REPORTI+6*, DUZRPTI+6*
>> HEADER(4 REPORTI+15*, DUZRPTI+15*
>> HEADER(5 REPORTI+16*, REPORTI+17*, REPORTI+18*, REPORTI+19*, REPORTI+20*, DUZRPTI+16*, DUZRPTI+17*, DUZRPTI+18*, DUZRPTI+19*, DUZRPTI+20*
IO PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
>> IOBS PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
IOF PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
IOM PEP+1, REPORT+1, REPORTI+6, DUZRPT+1, DUZRPTI+6, STORPURG+1, JUSTNEW+1
ION PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
>> IOS PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
IOSL PEP+1, REPORT+1, REPORTI+22, DUZRPT+1, DUZRPTI+22, STORPURG+1, JUSTNEW+1
IOST PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
>> IOT PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
>> IOXY PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
>> LINES REPORT+10, REPORTI+22*, DUZRPT+11, DUZRPTI+22*
>> MAXLINES REPORT+10, REPORTI+22*, DUZRPT+11, DUZRPTI+22*
>> NOW STORPURG+3*, STORPURG+4, STORPURG+13
>> PG REPORT+10, REPORTI+23*, DUZRPT+11, DUZRPTI+23*
>> PKGNAME PEP+9*, PEP+11
>> POP REPORTI+12, DUZRPTI+12
>> PURGDTT REPORT+6*, REPORT+12, DUZRPT+8*, DUZRPT+13
>> QFLG REPORT+5, REPORT+10, REPORTI+23*, DUZRPT+5, DUZRPT+11, DUZRPTI+23*
STR STORPURG+16, BADSTUFF~, BADSTUFF+2, BADSTUFQ~, BADSTUFQ+1
STR(1 STORPURG+10*
STR(2 STORPURG+11*
STR(3 STORPURG+12*
STR(4 STORPURG+13*
STR(5 STORPURG+14*
TAB BADSTUFF~, BADSTUFF+1*, BADSTUFF+2, BADSTUFF+3, BADSTUFQ~, BADSTUFQ+1
TWO SETBLRVS~, SETBLRVS+4
U PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
>> USER REPORT+7*, REPORT+13, REPORT+14, DUZRPT+5*, DUZRPT+7, DUZRPT+14, DUZRPT+15, DUZRPTI+23*
>> USERDIV REPORT+8*, REPORT+15, REPORT+16, DUZRPT+9*, DUZRPT+16, DUZRPT+17
>> XPARSYS PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1
>> XQXFLG PEP+1, REPORT+1, DUZRPT+1, STORPURG+1, JUSTNEW+1

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All