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

Package: Health Level Seven

Routine: HLEVUTI1


Information

HLEVUTI1 ;OIFO-O/LJA - Event Monitor UTILITIES ;02/04/2004 14:42

Source Information

Source file <HLEVUTI1.m>

Entry Points

Name Comments DBIA/ICR reference
CTRL ;
CTRL0
CTRL1
SHOWHD(LNM,L870) ; Show summary information...
CT()
PHD(HD,DATA) ;
HD(HD) ;
LINK()
QUEUES
LNM(L870)
ASKNO(LNM,L870,WAY) ; Ask for beginning IEN to display...
ASKWAY() ; In or Out...
SEARCH(L870,WAY,NO,SKIP) ; Search for a date...
; LNM -- req
S1
SRCH1(L870,WAY,IEN) ; Show date of entry...
SDT(DATE) ; Return shortened form of date...
TEST ; Hardwire IENs and test M code in monitor (only)...
TESTRUN ; Call here from above to avoid LEVEL ERRORs with ZGo...
; MCODE,WAY -- req
COLLECT(I772) ; Collect 772 & 773 data...
COLL773(I773) ;
COLL772(I772) ;
ADD(TXT) ; Add text for report...
; SCRN -- req
DOLRO(TAG,SNO) ; Store debug data in ^XTMP("HLEVUTI1 "_DT,NO)...
EOR ;HLEVUTI1 - Event Monitor UTILITIES ;5/16/03 14:42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Logical Link Display",IOM),!,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: CTRL0+0
Function Call: WRITE
  • Prompt: " ",LNM
  • Line Location: CTRL0+5
Function Call: WRITE
  • Prompt: !!,"What information for IN and OUT QUEUEs do you want to see?"
  • Line Location: CTRL1+1
Function Call: WRITE
  • Prompt: !!,"1 Show IENs",!,"2 Show Summary nodes",!,"3 Totals",!,"4 Dots",!,"5 Find skips",!,"6 Message date search"
  • Line Location: CTRL1+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter #: "
  • Variable: WHAT
  • Timeout: 99
  • Line Location: CTRL1+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(" "_IOINHI_LNM_IOINORM_" ",IOM+$L(IOINHI)+$L(IOINORM),"=")
  • Line Location: CTRL1+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" "_$S(WAY=1:"IN",1:"OUT")_" QUEUE ",IOM,"-")
  • Line Location: CTRL1+11
Function Call: WRITE
  • Prompt: !,"Totaling..."
  • Line Location: CTRL1+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($X+$L(NO)+1)>IOM
  • Line Location: CTRL1+18
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: $X>0
  • Line Location: CTRL1+18
Function Call: WRITE
  • Prompt: NO
  • Line Location: CTRL1+18
Function Call: WRITE
  • Prompt: !,TXT
  • Line Location: CTRL1+20
Function Call: WRITE
  • Prompt: "."
  • Line Location: CTRL1+22
Function Call: WRITE
  • Prompt: !,+LAST,?10," ",$E($P(LAST,"~",2,999),1,IOM-$X)
  • Line Location: CTRL1+25
Function Call: WRITE
  • Prompt: !,+NO,?10," ",$E(TXT,1,69)
  • Line Location: CTRL1+26
Function Call: READ
  • Variable: X
  • Timeout: 999
  • Line Location: CTRL1+28
Function Call: WRITE
  • Prompt: !,"--- Total = #",TOT(WAY)
  • Line Location: CTRL1+29
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(" "_LNM_" ",IOM,"=")
  • Line Location: CTRL1+34
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: SHOWHD+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: SHOWHD+6
Function Call: READ
  • Variable: X
  • Timeout: 999
  • Line Location: CT+1
Function Call: WRITE
  • Prompt: !,HD,"="
  • Line Location: PHD+3
Function Call: WRITE
  • Prompt: $E(DATA,1,76)
  • Line Location: PHD+6
Function Call: WRITE
  • Prompt: !!,"Links with queues"
  • Line Location: QUEUES+12
Function Call: WRITE
  • Prompt: !,"Link",?30,"IQ Totals",?45,"OQ Totals"
  • Line Location: QUEUES+13
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: QUEUES+14
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEUES+18
Function Call: WRITE
  • Prompt: IOINHI
  • Condition for execution: LNS["Mail]"
  • Line Location: QUEUES+19
Function Call: WRITE
  • Prompt: $E(LNS_" --------------------",1,20),IOINORM
  • Line Location: QUEUES+19
Function Call: WRITE
  • Prompt: TOT
  • Line Location: QUEUES+23
Function Call: WRITE
  • Prompt: !!,"First IEN = ",FIRST
  • Line Location: ASKNO+4
Function Call: WRITE
  • Prompt: !," Last IEN = ",LAST
  • Line Location: ASKNO+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKNO+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: !,"Just completed a search using a starting point of IEN=",NO,", and an offset"
  • Line Location: S1+8
Function Call: WRITE
  • Prompt: !,"of #",SKIP,". You may now enter a new starting IEN and offset."
  • Line Location: S1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+10
Function Call: READ
  • Formatting: !
  • Prompt: "Enter OFFSET: "
  • Variable: OFFSET
  • Timeout: 90
  • Line Location: S1+12
Function Call: WRITE
  • Prompt: $J($$SDT(DATE)_"(#"_IEN_")",18)_" "
  • Line Location: SRCH1+7
Function Call: READ
  • Variable: X
  • Timeout: 999
  • Line Location: SRCH1+9
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Monitor Test Utility",IOM)
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: !,"This utility sets the ^TMP(""HLEVFLAG"",$J) node to ""STOP"" to avoid any"
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: !,"Event Monitor activity. This enables the debugging of M code."
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: " no M code found..."
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: !!,"M code = ",MCODE
  • Line Location: TEST+16
Function Call: WRITE
  • Prompt: !!,"You may ZG ",MCODE," or D ",MCODE,"..."
  • Line Location: TEST+18
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+19
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+23
Function Call: WRITE
  • Prompt: " no action taken..."
  • Line Location: TEST+25
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: TEST+32
Function Call: WRITE
  • Prompt: " DOing ",MCODE,"... "
  • Line Location: TESTRUN+3
Function Call: WRITE
  • Prompt: " ZGOing ",MCODE,"... "
  • Line Location: TESTRUN+6
Function Call: WRITE
  • Prompt: !,$E(TXT,1,74)
  • Line Location: ADD+8
Info |  Source |  Entry Points |  Interaction Calls