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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRADDCD

Package: IHS Changes To Lab

Routine: BLRADDCD


Information

BLRADDCD ;IHS/MSC/MKK - Add Completed Date to all tests in an Accession ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRADDCD.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 4 NEW^LR7OB1  $$VER^LR7OU1  DC^LRCENDE1  ^LRWU4  
VA Fileman 3 FILE^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$HTE,$$NOW)^XLFDT  $$TRIM^XLFSTR  
IHS Changes To Lab 1 (EEP,HEADERDT,PRESSKEY)^BLRGMENU  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
WARMFZZY(LRAA,LRAD,LRAN,LRAT,F60CNT,F60IEN,F60DESC) ; EP - "Warm Fuzzy" for user
ORDERMSG ; EP
SUCCESS(F60IEN,F60DESC) ; EP
GETCOMPD(COMPDATE) ; EP - Get Completed Date
PEP ; EP
EEP ; EP - Ersatz Entry Point
GETACCS(LRAA,LRAD,LRAN,LRAS) ; EP - Get Accession Number
INITVARS ; EP - Initialization of variables
BADENTRY ; EP - Invalid/No Data Entered. Confirm quit
MAKEMESG(LRODT,LRSN,LRI) ; EP - Create the cancel reason in 69 - some code cloned from LRHYDEL routine.
SHOWERRS(WOTFILE,F60IEN,F60DESC) ; EP - Show the details from the ERRORS Array
DATEOKAY(F60IEN,F60DESC) ; EP
EP ; EP
CHKERRS(ARRY) ; EP - Errors Occurred. Check them out.
NOTESTS ; EP - No Tests on the accesssion

External References

Name Field # of Occurrence
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU EP+6
PRESSKEY^BLRGMENU EP+32, GETACCS+16
FILE^DIE EP+24, ORDERMSG+20
$$GET1^DIQ EP+18
^DIR GETCOMPD+5, BADENTRY+6
NEW^LR7OB1 MAKEMESG+11
$$VER^LR7OU1 MAKEMESG+12
DC^LRCENDE1 MAKEMESG+12
^LRWU4 GETACCS+1
^XBFMK EP+20, GETCOMPD+2, BADENTRY+2
$$HTE^XLFDT MAKEMESG+9
$$NOW^XLFDT EP+9
$$TRIM^XLFSTR INITVARS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,"Lab Data Exists for Accession ",LRAS,".",!!
  • Line Location: GETACCS+14
Function Call: WRITE
  • Prompt: ?4,"Cannot Use that Accession. Try Again."
  • Line Location: GETACCS+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETCOMPD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: BADENTRY+1
Function Call: WRITE
  • Prompt: !!,?9,"No Tests on Accession."
  • Line Location: NOTESTS+1
Function Call: WRITE
  • Prompt: ?9,"Completed Date already exists on test ",F60DESC," (#",F60IEN,").",!
  • Line Location: DATEOKAY+1
Function Call: WRITE
  • Prompt: ?9,"Completed Date added to test ",F60DESC," (#",F60IEN,").",!
  • Line Location: SUCCESS+1
Function Call: WRITE
  • Prompt: ?9,"ERROR - Updating File ",WOTFILE,!
  • Line Location: SHOWERRS+1
Function Call: WRITE
  • Prompt: ?14,"Trying to Add Completed Date to test ",F60DESC," (#",F60IEN,").",!
  • Line Location: SHOWERRS+2
Function Call: WRITE
  • Prompt: ?14,STR1,"=",@STR1,!
  • Line Location: CHKERRS+5
Function Call: WRITE
  • Prompt: ?14,STR1,"="
  • Line Location: CHKERRS+8
Function Call: WRITE
  • Prompt: $E(STR2,1,LEN-1),!
  • Line Location: CHKERRS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKERRS+13
Routine Call
  • DIE
  • Line Location:
    • EP+24
    • ORDERMSG+20
Routine Call
  • DIR
  • Line Location:
    • GETCOMPD+5
    • BADENTRY+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
68.04 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] WARMFZZY+3
^LR - [#63] GETACCS+12
^LRO(68 - [#68] EP+12, GETACCS+4, GETACCS+9, GETACCS+10, WARMFZZY+2, ORDERMSG+4
^LRO(69 - [#69] ORDERMSG+7, ORDERMSG+8, ORDERMSG+9, ORDERMSG+10, ORDERMSG+14, MAKEMESG+5, MAKEMESG+6, MAKEMESG+7*, MAKEMESG+9*, MAKEMESG+10*
, MAKEMESG+13*, MAKEMESG+14*

Label References

Name Line Occurrences
$$GETACCS EP+7
BADENTRY GETACCS+5, GETCOMPD+6
CHKERRS SHOWERRS+3, SHOWERRS+4
DATEOKAY EP+18
INITVARS EP+3
MAKEMESG ORDERMSG+22
NOTESTS EP+31
ORDERMSG EP+28
SHOWERRS EP+25, ORDERMSG+21
SUCCESS EP+30
WARMFZZY EP+13

Naked Globals

Name Field # of Occurrence
^(0 MAKEMESG+6, MAKEMESG+13*
^(3 GETACCS+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRY CHKERRS~, CHKERRS+4
>> BLRVERN INITVARS+1*
>> CDFIELDN INITVARS+7*
COMPDATE EP+9*, EP+22, GETCOMPD~, GETCOMPD+8*
>> DILOCKTM EP+1
>> DIR("A" GETCOMPD+4*, BADENTRY+4*
>> DIR("B" BADENTRY+5*
>> DIR(0 GETCOMPD+3*, BADENTRY+3*
>> DISPFLD INITVARS+8*
>> DISYS EP+1
DONE ORDERMSG+1~, ORDERMSG+6*, ORDERMSG+7, ORDERMSG+8, ORDERMSG+9, ORDERMSG+23*
DT EP+1, MAKEMESG+10
DTIME EP+1
DUZ EP+1, ORDERMSG+19, MAKEMESG+13, MAKEMESG+14
ERRS EP+21!, EP+25, ORDERMSG+2~, ORDERMSG+21
F60CNT EP+11*, EP+13, EP+31, WARMFZZY~, WARMFZZY+1*, WARMFZZY+4
F60DESC EP+13, EP+18, EP+25, EP+30, WARMFZZY~, WARMFZZY+3*, DATEOKAY~, DATEOKAY+1, SUCCESS~, SUCCESS+1
, SHOWERRS~, SHOWERRS+2
F60IEN EP+13, EP+18, EP+25, EP+30, WARMFZZY~, WARMFZZY+2*, WARMFZZY+3, DATEOKAY~, DATEOKAY+1, SUCCESS~
, SUCCESS+1, SHOWERRS~, SHOWERRS+2
FDA EP+21!, ORDERMSG+2~, ORDERMSG+17!
FDA( EP+22*, EP+23*, ORDERMSG+18*, ORDERMSG+19*
FDAIENS ORDERMSG+2~, ORDERMSG+16*, ORDERMSG+18, ORDERMSG+19
>> HEADER(1 INITVARS+3*
>> HEADER(2 INITVARS+4*
>> IENS EP+15*, EP+18, EP+22, EP+23
II MAKEMESG+1~, MAKEMESG+11
II( MAKEMESG+3*
IO EP+1
>> IOBS EP+1
IOF EP+1
IOM EP+1, CHKERRS+10
ION EP+1
>> IOS EP+1
IOSL EP+1
IOST EP+1
>> IOT EP+1
>> IOXY EP+1
LEN CHKERRS+1~, CHKERRS+10*, CHKERRS+11, CHKERRS+12
LRAA EP+7, EP+12, EP+13, EP+15, GETACCS~, GETACCS+2, GETACCS+4, GETACCS+9, GETACCS+10, WARMFZZY~
, WARMFZZY+2, ORDERMSG+4
LRAD EP+7, EP+12, EP+13, EP+15, GETACCS~, GETACCS+2, GETACCS+4, GETACCS+9, WARMFZZY~, WARMFZZY+2
LRAN EP+7, EP+12, EP+13, EP+15, GETACCS~, GETACCS+2, GETACCS+4, GETACCS+9, WARMFZZY~, WARMFZZY+2
, ORDERMSG+4
LRAS EP+5, EP+7, INITVARS+6*, GETACCS~, GETACCS+2*, GETACCS+4*, GETACCS+5, GETACCS+14, BADENTRY+7*, WARMFZZY+4
LRAT EP+11*, EP+12*, EP+13, EP+15, WARMFZZY~, WARMFZZY+2, ORDERMSG+11, MAKEMESG+3
LRDFN GETACCS+8~, GETACCS+9*, GETACCS+12
LRI MAKEMESG~, MAKEMESG+1~, MAKEMESG+5, MAKEMESG+6, MAKEMESG+7, MAKEMESG+9, MAKEMESG+10, MAKEMESG+13, MAKEMESG+14
LRIDT GETACCS+8~, GETACCS+9*, GETACCS+12
>> LRMSTATI MAKEMESG+11
>> LRNATURE MAKEMESG+11
LRODT MAKEMESG~, MAKEMESG+1~, MAKEMESG+5, MAKEMESG+6, MAKEMESG+7, MAKEMESG+9, MAKEMESG+10, MAKEMESG+11, MAKEMESG+13, MAKEMESG+14
LRORD ORDERMSG+1~, ORDERMSG+6*, ORDERMSG+7*, ORDERMSG+8, ORDERMSG+9, ORDERMSG+10, ORDERMSG+14, ORDERMSG+16, ORDERMSG+22
LRORN ORDERMSG+1~, ORDERMSG+6*, ORDERMSG+8*, ORDERMSG+9, ORDERMSG+10, ORDERMSG+14, ORDERMSG+16, ORDERMSG+22
LRORT ORDERMSG+1~, ORDERMSG+6*, ORDERMSG+9*, ORDERMSG+10, ORDERMSG+14, ORDERMSG+16, ORDERMSG+22
LRSN MAKEMESG~, MAKEMESG+1~, MAKEMESG+5, MAKEMESG+6, MAKEMESG+7, MAKEMESG+9, MAKEMESG+10, MAKEMESG+11, MAKEMESG+13, MAKEMESG+14
LRSS GETACCS+8~, GETACCS+10*, GETACCS+12
>> LRSTATUS MAKEMESG+3*, MAKEMESG+11
NOWDT ORDERMSG+1~
NOWDTT ORDERMSG+1~
ORDERN ORDERMSG+1~, ORDERMSG+4*, ORDERMSG+7, ORDERMSG+8
ORIFN MAKEMESG+1~, MAKEMESG+5*, MAKEMESG+11, MAKEMESG+12
STR ORDERMSG+1~, ORDERMSG+10*, ORDERMSG+11
STR1 CHKERRS+1~, CHKERRS+4*, CHKERRS+5, CHKERRS+6*, CHKERRS+7, CHKERRS+8
STR2 CHKERRS+1~, CHKERRS+7*, CHKERRS+11, CHKERRS+12
TAB CHKERRS+1~, CHKERRS+9*, CHKERRS+10, CHKERRS+12
U EP+1, MAKEMESG+5, MAKEMESG+6, MAKEMESG+13
WOTFILE SHOWERRS~, SHOWERRS+1
>> X MAKEMESG+6*, MAKEMESG+7, MAKEMESG+8*, MAKEMESG+9, MAKEMESG+10
>> X(1 MAKEMESG+6*, MAKEMESG+8*, MAKEMESG+10
>> XPARSYS EP+1
>> XQXFLG EP+1
>> Y GETCOMPD+6, GETCOMPD+8, BADENTRY+7

Marked Items

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