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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HLUCM002

Package: Health Level Seven

Routine: HLUCM002


Information

HLUCM002 ;CIOFO-O/LJA - HL7/Capacity Mgt API ;2/27/01 10:15

Source Information

Source file <HLUCM002.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Level Seven 6 $$BTE^HLCSMON  ($$CTPCKG,$$CTPROT)^HLUCM003  ($$XTMPGBL,LOOPU)^HLUCM004  $$IEN870^HLUCM009  ($$GETNMSP,$$GETPROT)^HLUCM050  (PRINT1,PRINTDBG)^HLUCM090  
Kernel 2 ENDR^%ZISS  ($$CJ,$$REPEAT,$$UP)^XLFSTR  

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: 3

Package Total Caller Graph
Health Level Seven 3 HLUCM  HLUCM003  HLUCM050  

Entry Points

Name Comments DBIA/ICR reference
PRINTREG ; Print data in ^TMP(SUB,...) to screen
; SUB,JOBN -- req
PSTORE ;
PTOT ;
SUB() ; What subscript holds the ^TMP(SUB,$J) data?
PRINT(SUB,JOBN,WAY) ; Print data in ^TMP(SUB,...) to screen
; WAY -- 0 = No totals
; 1 = Totals for every section
PRINT1
SHOW(REA,DATA,LINE) ;
; LAST,TYP -- req
ADD(TL) ; Add to TOT...
OKPAR(PAR) ; Is namespace or protocol OK?
OK0CALL(PAR) ; Correct 0^IEN or 0^NAME call format?
TYPETMO(IEN772) ; Is this TCP, Mail (via TCP), or Other?
TYPEIO(IEN772) ; Is this Input or Output or Unknown?
PROTNMSP(IEN772) ; Return PROT~NMSP value to store in ^TMP.
; COND,IEN101,PNMSP -- req
ALL(V1,V2) ; Are both 1 or 2?
MIXED() ; Is one 1/2 and the other SPECIFIC?
PROT101(IEN772) ; Return 101 information...
EOR ; HLUCM002 - HL7/Capacity Mgt API ;2/27/01 10:15

External References

Name Field # of Occurrence
ENDR^%ZISS PRINTREG+4
$$BTE^HLCSMON PRINTREG+22, PRINTREG+24
$$CTPCKG^HLUCM003 PROTNMSP+26
$$CTPROT^HLUCM003 PROTNMSP+16
$$XTMPGBL^HLUCM004 PTOT+11
LOOPU^HLUCM004 PSTORE+6
$$IEN870^HLUCM009 TYPETMO+13
$$GETNMSP^HLUCM050 PROTNMSP+20
$$GETPROT^HLUCM050 PROTNMSP+8
PRINT1^HLUCM090 PRINT1
PRINTDBG^HLUCM090 PSTORE+3
$$CJ^XLFSTR PRINTREG+6, PSTORE+1, PTOT+3
$$REPEAT^XLFSTR PRINTREG+7, PRINT1+12, PRINT1+35, SHOW+5
$$UP^XLFSTR PSTORE+2, PSTORE+5, PTOT+4, PTOT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Print Totals Report & Debug Data to Screen",IOM)
  • Line Location: PRINTREG+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: PRINTREG+7
Function Call: WRITE
  • Prompt: !!,"OK! No ^TMP(TOTALS,$J) totals report will be printed..."
  • Line Location: PRINTREG+13
Function Call: WRITE
  • Prompt: !!,"No ^TMP($J,""HLUCMSTORE"") debug data exists..."
  • Line Location: PRINTREG+18
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("----------- "_IOINHI_"Debug Data from ^TMP($J,""HLUCMSTORE"")"_IOINORM_" -----------",IOM)
  • Line Location: PSTORE+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Print raw DEBUG DATA (Y/N): Yes// "
  • Variable: X
  • Timeout: 999
  • Line Location: PSTORE+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Print filtered DEBUG DATA (Y/N): Yes// "
  • Variable: X
  • Timeout: 999
  • Line Location: PSTORE+5
Function Call: WRITE
  • Prompt: !!,"You will be allowed to print report totals (from ^TMP(TOTALS,$J), and/or you"
  • Line Location: PTOT+1
Function Call: WRITE
  • Prompt: !,"may print the debug data (in ^TMP($J,""HLUCMSTORE"")."
  • Line Location: PTOT+2
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("------------ "_IOINHI_"Report Totals from ^TMP("""_SUB_""",$J)"_IOINORM_" ------------",IOM)
  • Line Location: PTOT+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Print REPORT TOTALS (Y/N): Yes// "
  • Variable: X
  • Timeout: 999
  • Line Location: PTOT+4
Function Call: READ
  • Formatting: !
  • Prompt: "Include subtotals (Y/N): NO// "
  • Variable: WAY
  • Timeout: 999
  • Line Location: PTOT+8
Function Call: WRITE
  • Prompt: !!,"Printing from ",XTMPGBL,"..."
  • Line Location: PTOT+11
Function Call: READ
  • Timeout: 999
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: !!,"You must pass in the initial subscript and $JOB number..."
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,"Some entries were not included in the totals. There are 3 possible reasons"
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !,"for entries being excluded: (1) The beginning time of a message or unit is"
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !,"before the report's start time, (2) The number of seconds to transmit the"
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !,"message is over 1799 seconds, and (3) The protocol or namespace doesn't meet"
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !,"the search criteria."
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !!,"Failure Reason",?30,"#Characters",?42,"#Msg/Units",?54,"#Seconds"
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM),!,"Totals:",?30,$J(L1,7),?42,$J(L2,7),?54,$J(L3,7)
  • Line Location: PRINT1+35
Function Call: WRITE
  • Prompt: !,REA
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: ?30,$J($P(DATA,U),7),?42,$J($P(DATA,U,2),7),?54,$J($P(DATA,U,3),7)
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: SHOW+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(772 - [#772] TYPETMO+4, TYPEIO+2, PROT101+4, PROT101+9
^HLCS(870 - [#870] TYPETMO+13
^HLMA("B" TYPETMO+19
^ORD(101 - [#101] PROT101+5
^TMP( PTOT+7
^TMP("KMPDH" SUB+2
^TMP("TOT" SUB+3
^TMP($J PRINTREG+17, PRINTREG+19, PRINTREG+21, PRINT1+2

Label References

Name Line Occurrences
$$ALL PROTNMSP+43
$$MIXED PROTNMSP+33, PROTNMSP+42, PROTNMSP+61
$$OK0CALL OKPAR+3
$$SUB PRINTREG+12
PRINT1 PTOT+12
PRINTREG PRINTREG+26
PSTORE PRINTREG+19
PTOT PRINTREG+14
SHOW PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+22, PRINT1+24, PRINT1+25, PRINT1+27, PRINT1+29, PRINT1+30
, PRINT1+32, PRINT1+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> COND PROTNMSP+42, PROTNMSP+57
CT PROTNMSP+2~
>> CTPCKG PROTNMSP+26*, PROTNMSP+40, PROTNMSP+52, PROTNMSP+57, PROTNMSP+66
CTPROT PROTNMSP+2~, PROTNMSP+16*, PROTNMSP+36, PROTNMSP+52, PROTNMSP+57, PROTNMSP+64
D772 TYPETMO+1~, TYPETMO+4*, TYPETMO+5, TYPEIO+1~, TYPEIO+2*, TYPEIO+3
DATA PRINT1+16*, PRINT1+17, PRINT1+20*, PRINT1+21, PRINT1+23*, PRINT1+24, PRINT1+26*, PRINT1+27, PRINT1+28*, PRINT1+29
, PRINT1+31*, PRINT1+32, PRINT1+33*, PRINT1+34, SHOW~, SHOW+2*, SHOW+4, SHOW+6
DEB PRINTREG+2~, PSTORE+2*, PSTORE+3, PSTORE+5*, PSTORE+6
FAIL PROTNMSP+2~, PROTNMSP+61, PROTNMSP+62*, PROTNMSP+67*
GBL PRINTREG+2~, PTOT+11*, PRINT1+2*, PRINT1+3, PRINT1+14, PRINT1+16, PRINT1+20, PRINT1+23, PRINT1+26, PRINT1+28
, PRINT1+31, PRINT1+33
HLIO TYPEIO+1~, TYPEIO+3*, TYPEIO+4
I773 TYPETMO+1~, TYPETMO+19*, TYPETMO+20
IEN PROT101+1~, PROT101+4*, PROT101+5, PROT101+8, PROT101+10*, PROT101+12
>> IEN101 PROTNMSP+4*, PROTNMSP+8, PROTNMSP+11, PROTNMSP+13, PROTNMSP+38, PROTNMSP+43, PROTNMSP+66, MIXED+3
IEN772 TYPETMO~, TYPETMO+4, TYPETMO+13, TYPETMO+19, TYPEIO~, TYPEIO+2, PROTNMSP~, PROTNMSP+8, PROTNMSP+20, PROT101~
, PROT101+4, PROT101+9
IOF PRINTREG+6
IOINHI PRINTREG+2~, PSTORE+1, PTOT+3
IOINORM PRINTREG+2~, PSTORE+1, PTOT+3
IOM PRINTREG+6, PRINTREG+7, PSTORE+1, PTOT+3, PRINT1+12, PRINT1+35, SHOW+5
JOBN PRINTREG+2~, PTOT+6*, PTOT+7, PRINT~, PRINT+7*
L1 PRINT+3~, PRINT1+3*, PRINT1+4, PRINT1+35, SHOW+6*
L2 PRINT+3~, PRINT1+3*, PRINT1+35, SHOW+6*
L3 PRINT+3~, PRINT1+35, SHOW+6*
>> LAST PRINT1+14*, SHOW+5
LINE SHOW~, SHOW+2*, SHOW+5
MIEN TYPETMO+1~, TYPETMO+5*, TYPETMO+6, PROT101+1~, PROT101+9*
NM PROT101+1~, PROT101+5*, PROT101+8, PROT101+10*, PROT101+12
>> NMSPTYPE PROTNMSP+44
PAR OKPAR~, OKPAR+1*, OKPAR+2, OKPAR+3, OK0CALL~, OK0CALL+1
PCKG PROTNMSP+2~, PROTNMSP+20*, PROTNMSP+23*, PROTNMSP+24*, PROTNMSP+26, PROTNMSP+30*, PROTNMSP+39, PROTNMSP+41*, PROTNMSP+48, PROTNMSP+49*
, PROTNMSP+69
>> PNMSP PROTNMSP+4*, PROTNMSP+20, PROTNMSP+22, PROTNMSP+24, PROTNMSP+34, PROTNMSP+43, PROTNMSP+64, MIXED+2
PROT PROTNMSP+2~, PROTNMSP+8*, PROTNMSP+12*, PROTNMSP+13*, PROTNMSP+16, PROTNMSP+30*, PROTNMSP+35, PROTNMSP+37*, PROTNMSP+45, PROTNMSP+46*
, PROTNMSP+69
>> PROTYPE PROTNMSP+47
REA SHOW~, SHOW+3
SUB PRINTREG+2~, PRINTREG+12*, PRINTREG+13, PRINTREG+14, PRINTREG+21, PTOT+3, PTOT+6*, PTOT+7*, SUB+1~, SUB+4*
, SUB+5, PRINT~, PRINT+8
TL ADD~, ADD+1, ADD+2, ADD+3
TOT PRINTREG+2~, PTOT+4*, PTOT+5, ADD+1*, ADD+2*, ADD+3*
>> TYP PRINT1+16*, PRINT1+20*, PRINT1+23*, PRINT1+26*, PRINT1+28*, PRINT1+31*, PRINT1+33*, SHOW+5
U PSTORE+2, PSTORE+5, PTOT+4, PTOT+8, SUB+4, SHOW+4, SHOW+6, ADD+1, ADD+2, ADD+3
, TYPETMO+5, TYPETMO+13, TYPEIO+3, PROTNMSP+52, PROTNMSP+57, PROTNMSP+61, PROTNMSP+69, PROT101+4, PROT101+5, PROT101+9
V1 ALL~, ALL+1*, ALL+2, MIXED+2*, MIXED+4*, MIXED+6
V2 ALL~, ALL+1*, ALL+3, MIXED+3*, MIXED+5*, MIXED+6
V3 MIXED+1~, MIXED+6*, MIXED+7
WAY PRINTREG+2~, PTOT+8*, PTOT+9*, PTOT+10*, PRINT~, PRINT+5*
X PRINTREG+2~, PRINTREG+4*, PRINTREG+22*, PSTORE+2*, PSTORE+5*, PTOT+4*, PTOT+11*
XTMPGBL PRINTREG+2~, PRINTREG+9*, PTOT+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All