Routine: BLRUCUM

Package	Total	Call Graph
IHS VA Utilities	3	^XBCLS ^XBOFF ^XBON
Kernel	2	($$HTE,$$HTFM)^XLFDT $$CJ^XLFSTR
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
UHDR	; Print Header for File 60 Units Report
TRIMTSPC(X)	;
SRPT	; Summary Report
THDR	; Print Header for File 60 Test Report
LOG	; Log tests with units verified, by test,specimen and by units,UCUM
ERR	; Log exceptions for File 60 verification
TRIMALL(X)	;
TRIMLSPC(X)	;
INIT	; Clear the screen and initialize variables
URPT	; Print detailed results by units
EHDR	; Print Header for Error Report
CR	;
CMP	; Verification completed display
ERPT	; Print Detailed Exceptions Report
TRPT	; Display detailed results by test
HDR	; Print header

Name	Field # of Occurrence
^DIR	BLRUCUM+61
^XBCLS	INIT+1, SRPT+1, TRPT+3, URPT+2, ERPT+6
^XBOFF	CMP+4
^XBON	CMP+2
$$HTE^XLFDT	CMP+1
$$HTFM^XLFDT	INIT+5, INIT+6
$$CJ^XLFSTR	HDR+3, HDR+4, CMP+3, SRPT+10, SRPT+11, SRPT+17, SRPT+18, THDR+1, THDR+2, UHDR+1 , UHDR+2, ERPT+1, ERPT+24, EHDR+2, EHDR+7, EHDR+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"RESULTS OF UNIT VERIFICATION ARE AVAILABLE" Line Location: BLRUCUM+56
Function Call: WRITE	Prompt: "." Line Location: BLRUCUM+68
Function Call: WRITE	Prompt: !!,"Verification of Units Linked to UCUM Completed" Line Location: BLRUCUM+83
Function Call: READ	Timeout: 30 Variable: RES Line Location: BLRUCUM+100
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(HDR,IOM) Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(UNL,IOM) Line Location: HDR+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(CHDR,IOM) Line Location: CMP+3
Function Call: WRITE	Prompt: !,"Enter RETURN to continue or '^' to exit:" Line Location: CR+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("UNITS LINKED TO UCUM - RESULTS SUMMARY",IOM) Line Location: SRPT+10
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("======================================",IOM) Line Location: SRPT+11
Function Call: WRITE	Prompt: !!,$J(CNT,5),?7,"TESTS and ",SPEC," SPECIMENS examined in File 60" Line Location: SRPT+13
Function Call: WRITE	Prompt: !,$J(OKCNT,5),?7 Line Location: SRPT+14
Function Call: WRITE	Prompt: "(",$E((OKCNT/SWU*100),1,5),"%)" Condition for execution: SWU>0 Line Location: SRPT+14
Function Call: WRITE	Prompt: " UNITS linked to UCUM" Line Location: SRPT+14
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Summary of Exceptions",IOM) Line Location: SRPT+17
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("---------------------",IOM) Line Location: SRPT+18
Function Call: WRITE	Prompt: !,$J(ZCNT,5),?7 Line Location: SRPT+19
Function Call: WRITE	Prompt: "(",$E((ZCNT/CNT*100),1,5),"%)" Condition for execution: CNT>0 Line Location: SRPT+19
Function Call: WRITE	Prompt: " INACTIVE TESTS skipped" Line Location: SRPT+19
Function Call: WRITE	Prompt: !,$J(PCNT,5),?7 Line Location: SRPT+20
Function Call: WRITE	Prompt: "(",$E((PCNT/CNT*100),1,5),"%)" Condition for execution: CNT>0 Line Location: SRPT+20
Function Call: WRITE	Prompt: " PANELS skipped" Line Location: SRPT+20
Function Call: WRITE	Prompt: !,$J(SCNT,5),?7 Line Location: SRPT+21
Function Call: WRITE	Prompt: "(",$E((SCNT/CNT*100),1,5),"%)" Condition for execution: CNT>0 Line Location: SRPT+21
Function Call: WRITE	Prompt: " TESTS w/o specimens skipped" Line Location: SRPT+21
Function Call: WRITE	Prompt: !,$J(NCNT,5),?7 Line Location: SRPT+22
Function Call: WRITE	Prompt: "(",$E((NCNT/SPEC*100),1,5),"%)" Condition for execution: SPEC>0 Line Location: SRPT+22
Function Call: WRITE	Prompt: " SPECIMENS w/o units skipped" Line Location: SRPT+22
Function Call: WRITE	Prompt: !,$J(UCNT,5),?7 Line Location: SRPT+23
Function Call: WRITE	Prompt: "(",$E((UCNT/(UCNT+OKCNT)*100),1,5),"%)" Condition for execution: OKCNT>0 Line Location: SRPT+23
Function Call: WRITE	Prompt: " UNITS not linked to UCUM" Line Location: SRPT+23
Function Call: WRITE	Prompt: !!,?3,TCNT," Tests with Units Linked to UCUM" Line Location: TRPT+16
Function Call: WRITE	Prompt: !!,?3,UCNT," Units Linked to UCUM" Line Location: URPT+12
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FILE 60 UNITS LINKED TO UCUM -- RESULTS BY TEST",IOM) Line Location: THDR+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("===============================================",IOM) Line Location: THDR+2
Function Call: WRITE	Prompt: !!,?3,"IEN",?10,"TEST",?35,"SPECIMEN",?50,"UNITS",?65,"UCUM" Line Location: THDR+3
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: THDR+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FILE 60 UNITS LINKED TO UCUM -- RESULTS BY UNITS",IOM) Line Location: UHDR+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("================================================",IOM) Line Location: UHDR+2
Function Call: WRITE	Prompt: !!,?24,"Instances of Units Linked to UCUM" Line Location: UHDR+3
Function Call: WRITE	Prompt: !,?24,"----------------------------------" Line Location: UHDR+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("NO EXCEPTIONS TO REPORT",IOM) Line Location: ERPT+1
Function Call: WRITE	Prompt: ?45,$E(SPNM,1,12) Line Location: ERPT+16
Function Call: WRITE	Prompt: ?60,$G(UNITS) Condition for execution: ETYP="NUCUM" Line Location: ERPT+16
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("* END OF REPORT *",IOM) Line Location: ERPT+24
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FILE 60 UNITS LINKED TO UCUM -- EXCEPTIONS REPORT",IOM) Line Location: EHDR+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(HDR,IOM) Line Location: EHDR+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("================================================",IOM) Line Location: EHDR+8
Function Call: WRITE	Prompt: !!,?3,"IEN",?15,"TEST (CATEGORY)" Line Location: EHDR+9
Function Call: WRITE	Prompt: ?45,"SPECIMEN" Condition for execution: ETYP="NUNIT"!(ETYP="NUCUM") Line Location: EHDR+9
Function Call: WRITE	Prompt: ?60,"UNITS" Condition for execution: ETYP="NUCUM" Line Location: EHDR+9
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: EHDR+10
Routine Call	DIR Line Location: BLRUCUM+61

Name	Line Occurrences (* Changed, ! Killed)
^BLRUCUM - [#90475.3]	BLRUCUM+79
^BLRUCUM("B"	BLRUCUM+76, BLRUCUM+77, URPT+7
^BLRUCUM("D"	BLRUCUM+76, BLRUCUM+77
^LAB(60 - [#60]	BLRUCUM+68, BLRUCUM+69, BLRUCUM+70, BLRUCUM+71, BLRUCUM+72, BLRUCUM+74, TRPT+8, ERPT+10, ERPT+11
^LAB(61 - [#61]	TRPT+9, ERPT+15
^XTMP("BLRUCUM"	BLRUCUM+55, BLRUCUM+65!, BLRUCUM+84, BLRUCUM+85, BLRUCUM+86, BLRUCUM+87, BLRUCUM+88, BLRUCUM+94, BLRUCUM+99, INIT+7 , INIT+8, ERR+1, ERR+2, ERR+3, LOG+1, LOG+2, LOG+3, LOG+4, LOG+5*, SRPT+2 , SRPT+3, SRPT+4, SRPT+5, SRPT+6, SRPT+7, SRPT+8, TRPT+1, TRPT+2, TRPT+6, TRPT+7 , TRPT+10, TRPT+11, URPT+1, URPT+5, URPT+6, URPT+8, ERPT+1, ERPT+5, ERPT+9, ERPT+14 , ERPT+15, ERPT+22, ERPT+24

Name	Line Occurrences
$$TRIMALL	BLRUCUM+74
$$TRIMLSPC	TRIMALL+1
$$TRIMTSPC	TRIMALL+1
CMP	BLRUCUM+52
CR	CR+5, TRPT+13, TRPT+17, URPT+10, URPT+13, ERPT+17, ERPT+20, ERPT+25
EHDR	ERPT+7, ERPT+17, ERPT+20
ERPT	BLRUCUM+101
ERR	BLRUCUM+70, BLRUCUM+71, BLRUCUM+75, BLRUCUM+76
HDR	BLRUCUM+49
INIT	BLRUCUM+46, BLRUCUM+66
LOG	BLRUCUM+79
SRPT	BLRUCUM+91
THDR	TRPT+4, TRPT+13
TRPT	BLRUCUM+58, BLRUCUM+96
UHDR	URPT+3, URPT+10
URPT	BLRUCUM+58, BLRUCUM+96

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CHDR	CMP+1*, CMP+3
>> CM	INIT+2*, INIT+6
>> CNT	BLRUCUM+68, BLRUCUM+84, INIT+3, SRPT+7, SRPT+13, SRPT+19, SRPT+20, SRPT+21, URPT+8, URPT+9
DA	BLRUCUM+61!
DIR	BLRUCUM+61!
DIR("A"	BLRUCUM+61*
DIR("B"	BLRUCUM+61*
DIR(0	BLRUCUM+61*
>> DONE	BLRUCUM+52, BLRUCUM+56, INIT+8, CMP+1, TRPT+1
>> DRPT	INIT+3*
>> ETYP	BLRUCUM+70, BLRUCUM+71, BLRUCUM+75, BLRUCUM+76, INIT+4, ERR+1, ERR+2, ERR+3, ERPT+4, ERPT+5* , ERPT+9, ERPT+13, ERPT+14, ERPT+15, ERPT+16, ERPT+22, ERPT+24, EHDR+3, EHDR+4, EHDR+5 , EHDR+6, EHDR+9
>> HDR	INIT+4, HDR+1, HDR+3, ERPT+23, EHDR+1, EHDR+3, EHDR+4, EHDR+5, EHDR+6*, EHDR+7
IOM	HDR+3, HDR+4, CMP+3, SRPT+10, SRPT+11, SRPT+17, SRPT+18, THDR+1, THDR+2, UHDR+1 , UHDR+2, ERPT+1, ERPT+24, EHDR+2, EHDR+7, EHDR+8
>> LN	ERPT+13, ERPT+16
>> NAME	BLRUCUM+69, INIT+4
>> NCNT	SRPT+4*, SRPT+9, SRPT+22
>> OKCNT	BLRUCUM+87, INIT+3, LOG+2, SRPT+8*, SRPT+14, SRPT+23
>> PCNT	INIT+3, SRPT+2, SRPT+20
>> PURGE	INIT+6*, INIT+7
>> Q	INIT+3*
>> Q1	INIT+3, CR+1, CR+3, TRPT+5, TRPT+6, TRPT+7, TRPT+13, TRPT+17, URPT+4, URPT+5 , URPT+10, URPT+13, ERPT+4, ERPT+5, ERPT+8*, ERPT+9, ERPT+14, ERPT+17, ERPT+20, ERPT+25
>> QT	BLRUCUM+74, INIT+2*
>> RES	BLRUCUM+57, BLRUCUM+58, BLRUCUM+95, BLRUCUM+96, BLRUCUM+100, BLRUCUM+101, INIT+3, CR+2*, CR+3, CR+4
>> SCNT	SRPT+3*, SRPT+21
>> SIEN	BLRUCUM+72, BLRUCUM+74, INIT+3, ERR+2, LOG+2, LOG+3, TRPT+7, TRPT+9, TRPT+10, TRPT+11 , ERPT+13, ERPT+14*, ERPT+15
>> SPEC	BLRUCUM+73, BLRUCUM+84, INIT+3, SRPT+7*, SRPT+9, SRPT+13, SRPT+22
>> SPNM	INIT+4, TRPT+9, TRPT+12, ERPT+15*, ERPT+16
>> SS	ERPT+10*, ERPT+12
>> SWU	SRPT+9*, SRPT+14
>> TCNT	BLRUCUM+86, INIT+3, LOG+1, TRPT+2*, TRPT+16
>> TIEN	BLRUCUM+68, BLRUCUM+69, BLRUCUM+70, BLRUCUM+71, BLRUCUM+72, BLRUCUM+74, INIT+3, ERR+1, ERR+2, LOG+1 , LOG+2, LOG+3, TRPT+5, TRPT+6, TRPT+7, TRPT+8, TRPT+10, TRPT+11, TRPT+12, ERPT+8* , ERPT+9*, ERPT+10, ERPT+11, ERPT+12, ERPT+14, ERPT+15
>> TODAY	INIT+5*, INIT+7
>> TOT	ERPT+22*, ERPT+23
>> TST	TRPT+8, TRPT+12, ERPT+10, ERPT+11*, ERPT+12
U	BLRUCUM+69, BLRUCUM+74, BLRUCUM+79, BLRUCUM+84, INIT+7, LOG+3, SRPT+7, TRPT+8, TRPT+9, TRPT+10 , TRPT+11, ERPT+10, ERPT+15
>> U1	INIT+2*
>> U2	INIT+2*
>> UCNT	SRPT+5, SRPT+23, URPT+1, URPT+12
>> UCUM	BLRUCUM+79, INIT+4, LOG+3, LOG+5, TRPT+11, TRPT+12, URPT+6, URPT+7, URPT+8, URPT+9
>> UID	BLRUCUM+77, BLRUCUM+78, BLRUCUM+79, INIT+4, URPT+7*
>> UNITS	BLRUCUM+74, BLRUCUM+75, BLRUCUM+76, BLRUCUM+77, INIT+4, ERR+2, LOG+3, LOG+5, TRPT+10, TRPT+12 , URPT+4, URPT+5, URPT+6, URPT+8, URPT+9, ERPT+15, ERPT+16
>> UNL	INIT+4, HDR+2, HDR+4, EHDR+1*
X	TRIMLSPC~, TRIMLSPC+1, TRIMLSPC+2, TRIMTSPC~, TRIMTSPC+1, TRIMTSPC+2, TRIMALL~, TRIMALL+1
>> Y	BLRUCUM+62
>> ZCNT	BLRUCUM+69, BLRUCUM+85, INIT+3, SRPT+6*, SRPT+19

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRUCUM

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: