Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls