Routine: BLRUCUM

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

BLRUCUM ; IHS/OIT/MPW - Link units field in File 60 to UCUM codes ; [ 12/10/2010 4:00 PM ]

Source Information

Source file <BLRUCUM.m>

Call Graph

Call Graph Total: 6

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

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Call Graph Total: 6