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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRWU9

Package: Lab Service

Routine: LRWU9


Information

LRWU9 ;DALOI/CKA - TOOL TO DETECT, FIX, AND REPORT BAD DATA NAMES ; 15 Apr 2019 2:27 PM

Source Information

Source file <LRWU9.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 (CLEAN,PREP,SAY)^XGF  ($$FMTE,$$NOW)^XLFDT  ($$NAME,$$STA)^XUAF4  $$KSP^XUPARAM  $$PROD^XUPROD  
VA FileMan 4 DT^DICRW  FIELD^DID  FILE^DIE  ^DIR  
Lab Service 3 (CHSET,KLAB,PATIENT)^LRPX  DDFIX^LRWU6  B6304^LRWU9A  
MailMan 2 DES^XMA21  SENDMSG^XMXAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRNIGHT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Interactive entry point.
KIDS ; Entry point for post install run.
LRNIGHT ; Entry point for ^LRNIGHT run.
INIT ; Initialize variables.
CHKDD ; CHECK DD FOR BAD DATA NAMES.
CHK63 ;CHECK FILE 63 FOR TEST DATA WITH NO DATA NAME
FIXDD ; FIX DD FOR BAD DATA NAMES.
UPD624
FIX63 ;FIX DATA NODES IN FILE 63
CHKILLPX(LRDFN,LRIDT,LRD0) ;Kill Clinical Reminders Index
SENDMM ;SEND MAIL MESSAGE OF ERRORS FOUND AND/OR FIXED.
ASK() ; Run analyze/repair query

External References

Name Field # of Occurrence
DT^DICRW EN+2, INIT+3
FIELD^DID FIXDD+4
FILE^DIE FIXDD+15, UPD624+7
^DIR ASK+23, ASK+38, ASK+46
CHSET^LRPX FIX63+17
KLAB^LRPX CHKILLPX+14, CHKILLPX+20
PATIENT^LRPX CHKILLPX+9
DDFIX^LRWU6 FIXDD+8
B6304^LRWU9A CHKDD+94
CLEAN^XGF EN+14
PREP^XGF EN+11
SAY^XGF CHKDD+61, CHKDD+69, CHK63+3, CHK63+13
$$FMTE^XLFDT CHKDD+6, SENDMM+21
$$NOW^XLFDT SENDMM+21
DES^XMA21 EN+10
SENDMSG^XMXAPI SENDMM+23
$$NAME^XUAF4 CHKDD+6
$$STA^XUAF4 INIT+4
$$KSP^XUPARAM INIT+4, CHKDD+6
$$PROD^XUPROD KIDS+4, LRNIGHT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This process will check the CHEM, HEM, TOX, RIA, SER, etc."
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,"Sub-file (#63.04) of the LAB DATA file (#63) looking for"
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,"possible discrepancies in the Data Dictionary. Once the"
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,"process has completed, a MailMan message will be sent to the"
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !,"user that started this process and any other user selected."
  • Line Location: ASK+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !,"The two modes in which this process can be run are ANALYZE"
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: !,"and REPAIR. If the ANALYZE option is chosen, the process will"
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !,"only look for discrepancies and report the findings via a"
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !,"MailMan message. If the ANALYZE,REPAIR option is chosen the"
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !,"process will ANALYZE and REPAIR any discrepancies found that"
  • Line Location: ASK+16
Function Call: WRITE
  • Prompt: !,"can be fixed programmatically and list all those that could"
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !,"not be fixed but need attention."
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+19
Routine Call
  • DIE
  • Line Location:
    • FIXDD+15
    • UPD624+7
Routine Call
  • DIR
  • Line Location:
    • ASK+23
    • ASK+38
    • ASK+46

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.04 FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.04 CHKDD+14, CHKDD+15, CHKDD+49, CHKDD+64, CHKDD+72, CHK63+14, CHK63+38, FIX63+6
^LAB(60 - [#60] CHKDD+19, CHKDD+20, CHKDD+41, CHKDD+53, CHKDD+80, FIXDD+10
^LAB(62.4 - [#62.4] UPD624+1, UPD624+2, UPD624+3
^LR - [#63] CHK63+6, CHK63+8, CHK63+11, FIX63+7, FIX63+14*, FIX63+15!, CHKILLPX+5, CHKILLPX+8
^PXRMINDX(63 CHKILLPX+13, CHKILLPX+18, CHKILLPX+19
^TMP("DD63.04B" LRNIGHT+10!
^TMP("LR" EN+15!, KIDS+10!, LRNIGHT+8, LRNIGHT+10!, INIT+2!, CHKDD+3!, CHKDD+6*, CHKDD+8*, CHKDD+9*, CHKDD+10*
, CHKDD+11*, CHKDD+22*, CHKDD+24, CHKDD+25*, CHKDD+26*, CHKDD+27*, CHKDD+28*, CHKDD+29*, CHKDD+30!, CHKDD+33
, CHKDD+35*, CHKDD+36*, CHKDD+37, CHKDD+38, CHKDD+39*, CHKDD+41*, CHKDD+43*, CHKDD+46, CHKDD+48*, CHKDD+49*
, CHKDD+51, CHKDD+53*, CHKDD+63, CHKDD+67, CHKDD+68, CHKDD+71*, CHKDD+72*, CHKDD+73, CHKDD+74, CHKDD+75
, CHKDD+76, CHKDD+79, CHKDD+80*, CHKDD+82*, CHKDD+85*, CHKDD+86, CHKDD+88, CHKDD+89*, CHKDD+90, CHK63+14
, CHK63+15*, CHK63+18, CHK63+19, CHK63+21*, CHK63+25, CHK63+26, CHK63+27*, CHK63+28*, CHK63+30, CHK63+31*
, CHK63+35, CHK63+36, CHK63+37*, CHK63+38*, CHK63+40, CHK63+41*, FIXDD+16*, FIX63+2, FIX63+3, FIX63+4
, FIX63+5, FIX63+6*, FIX63+8*, FIX63+10*, FIX63+18*, FIX63+20*, CHKILLPX+2, SENDMM+5, SENDMM+8*, SENDMM+9*
, SENDMM+10*, SENDMM+13*, SENDMM+14*, SENDMM+16, SENDMM+17*, SENDMM+18*
^TMP("LR63.04B" CHKDD+3!
^XMB("NETNAME" KIDS+4, LRNIGHT+7

Label References

Name Line Occurrences
$$ASK EN+6
CHK63 EN+13, KIDS+8, LRNIGHT+5
CHKDD EN+12, KIDS+8, LRNIGHT+5
CHKILLPX FIX63+13
FIX63 CHK63+23
FIXDD CHKDD+73
INIT EN+5, KIDS+6, LRNIGHT+5
SENDMM EN+14, KIDS+8, LRNIGHT+8

Naked Globals

Name Field # of Occurrence
^( CHKDD+74*, CHKDD+76*, CHKDD+86*, CHKDD+90*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT CHKDD+2~, CHKDD+14*, CHKDD+63*, CHKDD+69, CHK63+2~, CHK63+6*, CHK63+13
DA CHKDD+2~, FIXDD+7*
DAS CHKILLPX+1~, CHKILLPX+11*, CHKILLPX+13, CHKILLPX+14, CHKILLPX+19, CHKILLPX+20
DATA CHKILLPX+4~, CHKILLPX+5*, CHKILLPX+6
DATANUM CHK63+2~, CHK63+18*, CHK63+19, CHK63+21, CHK63+24*, CHK63+26*, CHK63+28, CHK63+30, CHK63+31, CHK63+34*
, CHK63+36*, CHK63+38, CHK63+40, CHK63+41
DATE CHKILLPX+1~, CHKILLPX+10*, CHKILLPX+13, CHKILLPX+14, CHKILLPX+19, CHKILLPX+20
DDFIELD FIXDD+2~
DDFIELD("LABEL" FIXDD+5
DDFIELD("TYPE" FIXDD+6
DFN CHKILLPX+1~, CHKILLPX+9, CHKILLPX+13, CHKILLPX+14, CHKILLPX+18, CHKILLPX+19, CHKILLPX+20
DIFROM SENDMM+2~
DIK CHKDD+2~
DIR ASK+2~, ASK+26!, ASK+43!
DIR("?" ASK+36*
DIR("A" ASK+21*, ASK+29*, ASK+30*, ASK+31*, ASK+32*, ASK+33*, ASK+34*, ASK+35*, ASK+44*
DIR("B" ASK+21*, ASK+28*, ASK+44*
DIR(0 ASK+22*, ASK+28*, ASK+45*
DIRUT ASK+2~
DT CHKDD+6
DTOUT ASK+2~
DUOUT ASK+2~
DUZ EN+6, KIDS+5, LRNIGHT+6, SENDMM+23
FIX ASK+2~, ASK+4*, ASK+24, ASK+39*, ASK+40*, ASK+41*, ASK+47*, ASK+49
FLAG CHKILLPX+17~, CHKILLPX+18, CHKILLPX+21*
INSTALL EN+3~, EN+6*, KIDS+2~, KIDS+5*, LRNIGHT+2~, LRNIGHT+4*, CHKDD+61, CHKDD+69, CHK63+3, CHK63+13
ITEM CHKILLPX+17~, CHKILLPX+18*, CHKILLPX+19, CHKILLPX+20
LR60CNT CHKDD+2~, CHKDD+18*, CHKDD+23*, CHKDD+30
LR60IEN CHKDD+2~, CHKDD+18*, CHKDD+21*, CHKDD+22, CHKDD+26, CHKDD+27, CHKDD+51*, CHKDD+53, CHKDD+68*, CHKDD+73
, CHKDD+75, CHKDD+79, CHKDD+80, CHKDD+84, FIXDD+9, FIXDD+10, FIXDD+12, FIXDD+13, FIXDD+14, FIXDD+16
, UPD624+3, CHKILLPX+1~, CHKILLPX+2*, CHKILLPX+3, CHKILLPX+6*, CHKILLPX+7, CHKILLPX+13, CHKILLPX+14
LR624 UPD624~, UPD624+1*, UPD624+2, UPD624+3, UPD624+5
LR6243 UPD624~, UPD624+2*, UPD624+3, UPD624+5
LRCNT CHKDD+50~, CHKDD+52*, CHKDD+53
LRD0 CHKDD+2~, CHKDD+13*, CHKDD+14*, CHKDD+15, CHKDD+20, CHKDD+22, CHKDD+26, CHKDD+27, CHKDD+28, CHKDD+30
, CHKDD+37*, CHKDD+38, CHKDD+39, CHKDD+46*, CHKDD+49, CHKDD+51, CHKDD+62*, CHKDD+63*, CHKDD+64, CHKDD+68
, CHKDD+69, CHKDD+70, CHKDD+72, CHKDD+73, CHKDD+75, CHKDD+82, CHKDD+88, CHK63+2~, CHK63+4*, CHK63+10*
, CHK63+11*, CHK63+12, CHK63+14, CHK63+15, CHK63+18, CHK63+19, CHK63+21, FIXDD+4, FIXDD+7, FIXDD+10
, FIXDD+12, FIXDD+13, FIXDD+14, FIXDD+16, UPD624+6, FIX63+2, FIX63+3, FIX63+4, FIX63+5, FIX63+6
, FIX63+8, FIX63+13, FIX63+14, FIX63+15, FIX63+20, CHKILLPX~, CHKILLPX+2, CHKILLPX+5, CHKILLPX+11
LRDATA CHKDD+2~, CHKDD+15*, CHKDD+16, CHKDD+17, CHKDD+26, CHKDD+38*, CHKDD+39, CHKDD+40, CHKDD+41, CHKDD+42
, CHKDD+64*, CHKDD+65, CHKDD+66
LRDBLCHK CHKILLPX+1~, CHKILLPX+12*, CHKILLPX+13*, CHKILLPX+16
LRDD CHKDD+2~, CHKDD+13*
LRDDA CHKDD+2~, CHKDD+13*
LRDFN CHK63+2~, CHK63+4*, CHK63+6*, CHK63+8, CHK63+11, CHK63+13, CHK63+15, CHK63+21, FIX63+7, FIX63+8
, FIX63+10, FIX63+13, FIX63+14, FIX63+15, FIX63+17, FIX63+20, CHKILLPX~, CHKILLPX+5, CHKILLPX+8, CHKILLPX+9
, CHKILLPX+11
LRDIE FIXDD+11~
LRFDA FIXDD+11~, UPD624+4~
LRFDA( UPD624+6*
LRFDA(1 FIXDD+12*, FIXDD+13*, FIXDD+14*
LRFIX EN+3~, EN+6*, EN+8, EN+9*, KIDS+2~, LRNIGHT+2~, INIT+5*, CHKDD+73, CHKDD+75, CHKDD+86
, CHKDD+90, CHK63+23, SENDMM+7, SENDMM+12
LRIDT CHK63+2~, CHK63+4*, CHK63+7*, CHK63+8*, CHK63+11, CHK63+15, CHK63+21, FIX63+7, FIX63+8, FIX63+10
, FIX63+13, FIX63+14, FIX63+15, FIX63+17, FIX63+20, CHKILLPX~, CHKILLPX+5, CHKILLPX+8, CHKILLPX+10, CHKILLPX+11
LRIENS UPD624+4~, UPD624+5*, UPD624+6
LRLOC CHKDD+2~, FIX63+5*, FIX63+7, FIX63+8, FIX63+10, FIX63+14, FIX63+16, FIX63+20
LRNAME FIXDD+2~, FIXDD+5*
LRNOFIX CHKDD+2~
LRNOTEST CHKDD+2~
LRNUM EN+3~, KIDS+2~, LRNIGHT+2~, CHKDD+4*, CHKDD+6, CHKDD+7*, CHKDD+8*, CHKDD+9*, CHKDD+10*, CHKDD+11*
, CHKDD+35*, CHKDD+36*, CHKDD+39*, CHKDD+41*, CHKDD+43*, CHKDD+48*, CHKDD+49*, CHKDD+53, CHKDD+54*, CHKDD+71*
, CHKDD+72, CHKDD+74, CHKDD+76, CHKDD+78*, CHKDD+80, CHKDD+81*, CHKDD+82, CHKDD+83*, CHKDD+85, CHKDD+86
, CHKDD+87*, CHKDD+89, CHKDD+90, CHKDD+91*, CHK63+27*, CHK63+28, CHK63+29*, CHK63+31, CHK63+32*, CHK63+37*
, CHK63+38, CHK63+39*, CHK63+41, CHK63+42*, FIX63+6*, FIX63+8, FIX63+9*, FIX63+10, FIX63+11*, FIX63+18
, FIX63+19*, FIX63+20, FIX63+21*, SENDMM+4*, SENDMM+8*, SENDMM+9*, SENDMM+10*, SENDMM+13*, SENDMM+14*, SENDMM+17
, SENDMM+18
LRNUM1 CHK63+2~, CHK63+5*, CHK63+21, CHK63+22*, CHK63+34*, CHK63+40*, CHK63+41
LRNUM2 CHK63+2~, CHK63+5*, CHK63+15, CHK63+16*, CHK63+24*, CHK63+30*, CHK63+31
LRPC CHKDD+2~, CHKDD+17*, CHKDD+19, CHKDD+28, CHKDD+66*, CHKDD+70, CHKDD+72, FIXDD+16
LRREPAIR CHK63+9~
LRREPAIR( CHK63+12, FIX63+16*
LRSITE EN+3~, KIDS+2~, LRNIGHT+2~, INIT+4*
LRSPACE EN+3~, EN+7*, CHKDD+61, CHK63+3
LRSUB CHKDD+2~, CHKDD+16*, CHKDD+19, CHKDD+24, CHKDD+25, CHKDD+26, CHKDD+27, CHKDD+28, CHKDD+29, CHKDD+33*
, CHKDD+36, CHKDD+37, CHKDD+38, CHKDD+65*, CHKDD+67, CHKDD+68, CHKDD+70, CHKDD+72, CHKDD+79, CHKDD+82
, FIXDD+16
LRSUBCNT CHKDD+2~, CHKDD+24*, CHKDD+25, CHKDD+29
LRSUPFLG EN+3~, KIDS+2~, LRNIGHT+2~, CHKDD+34*, CHKDD+47*, CHKDD+77*, CHKDD+86*, CHKDD+90*, CHK63+33*, CHK63+43*
, FIX63+12*, SENDMM+7, SENDMM+12
LRTYPE FIXDD+2~, FIXDD+6*
LRX CHKDD+2~, CHKDD+19*, CHKDD+20, CHKDD+21
OK CHKILLPX+1~, CHKILLPX+9
U CHKDD+16, CHKDD+17, CHKDD+20, CHKDD+26, CHKDD+39, CHKDD+40, CHKDD+41, CHKDD+42, CHKDD+49, CHKDD+53
, CHKDD+65, CHKDD+66, CHKDD+68, CHKDD+72, CHKDD+80, CHK63+38, FIXDD+10, FIXDD+16, UPD624+3, FIX63+4
, FIX63+5, CHKILLPX+2, CHKILLPX+6
XMDUZ EN+3~, EN+6*
XMINSTR SENDMM+2~, SENDMM+23
XMINSTR("ADDR FLAGS" , SENDMM+22*
XMSUB SENDMM+2~, SENDMM+20*, SENDMM+21*, SENDMM+23
XMY EN+3~, KIDS+2~, LRNIGHT+2~, SENDMM+23
XMY( EN+6*, KIDS+5*, LRNIGHT+6*
XMY("G.CSCLIN4@DOMAIN.EXT" KIDS+4*, LRNIGHT+7*
XMY("G.LAB DE V IRMFO@DOMAIN.EXT" , KIDS+4*, LRNIGHT+7*
XMY("G.LMI" KIDS+5*, LRNIGHT+6*
Y ASK+2~, ASK+24, ASK+26!, ASK+39, ASK+40, ASK+41, ASK+43!, ASK+47
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 |  Naked Globals |  Local Variables  | All