Routine: BLRADDCD

Information

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

Source Information

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

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

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

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRADDCD

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items