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 |  Marked Items  | All
Print Page as PDF
Routine: HLEVUTI0

Package: Health Level Seven

Routine: HLEVUTI0


Information

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

Source Information

Source file <HLEVUTI0.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Health Level Seven 3 $$BTE^HLCSMON  $$YN^HLCSRPT4  (ADD,COLLECT)^HLEVUTI1  
Kernel 1 ($$CJ,$$REPEAT)^XLFSTR  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Health Level Seven 2 HLEVX000  HLEVX002  

Entry Points

Name Comments DBIA/ICR reference
SENDATA ; Interactively asks for 772 entry and returns Mailman message...
S0
S1
S2
S3
S4
S5
S6
S7
S8
S9
ADD(TXT)
ASK772() ; Ask user for IENs...
ASK7721
FT(PMT,WAY,DEF,LF) ; Free-text DIR request...
ASKNUM(PMT,DEF) ; Ask user for a number via DIR...
HDASK
EXASK
GENREP(GBLS,GBLR,NOSUB,SEQ) ; Generic report generator...
; GBLS = Global source...
; GBLR = Global report location...
; NOSUB = # subscript levels...
; --- Must be 2 to 4
; --- 1st subscript must be descriptive of problem, and <15 characters.
; It will be placed in a field of 15 characters.
; --- 2nd subscript must be descriptive of entry, and <15 characters.
; It will be placed in a field of 15 characters.
; If the 2nd subscript is the last subscript, entries at this level
; will be concatenated.
; --- Last subscript must identify entry, and will be concatenated.
; (See RECORD^HLEVX000 for example of data creation.)
; SEQ = Sequential & Numeric. 0/1
; --- If the last subscript is required to be numeric and sequential,
; (like the 870 in and out queues), then combine iens into range
; statements... eg, 25123-25131(#9)
SUBSTORE(S1,S2,S3,S4) ; Should subscript be stored, or condensed value?
; GBLS -- req
CONDENSE(PROBL,SUB2,SUB3) ; Condense sequential numerics...
SEQBR ; Sequence BRoken actions...
; FIRST,GBL,IEN,LAST -- req --> FIRST,@GBL[S] (reset)
COND2GBL(PROBL,SUB2) ; Return global for NOSUB=2 looping...
; GBLS -- req
COND3GBL(PROBL,SUB2,SUB3) ; Return global for NOSUM=3 looping...
; GBLS -- req
AQ(VAL) ; Add quotes around non-numeric values...
CONCAT(VAL,PAD) ; Concatenate, separated w/commas, the VALs
; TXT -- req
STORE(PAD) ; Store data in @GBLR@ in report-ready format
; GBLR,TXT -- req
EOR ;HLEVUTI0 - Event Monitor UTILITIES ;5/16/03 14:42

External References

Name Field # of Occurrence
^DIR FT+4, ASKNUM+4
$$BTE^HLCSMON S5+1, S7+7
$$YN^HLCSRPT4 S1, S3+1, S4+3
ADD^HLEVUTI1 ADD
COLLECT^HLEVUTI1 S7+3
$$SITE^VASITE S7+11
$$CJ^XLFSTR S7, HDASK
$$REPEAT^XLFSTR HDASK+1, GENREP+31, GENREP+38, GENREP+42, GENREP+47, GENREP+49, GENREP+62, GENREP+67, STORE+5
^XMD S8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The most recent 772 IEN is... ",$O(^HL(772,":"),-1)
  • Line Location: S0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S0+1
Function Call: WRITE
  • Prompt: " no entries selected..."
  • Line Location: S2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: S3+0
Function Call: WRITE
  • Prompt: " added..."
  • Line Location: S3+4
Function Call: WRITE
  • Prompt: !!,"No recipients were entered. You may just display the data on-screen."
  • Line Location: S4+1
Function Call: WRITE
  • Prompt: !
  • Line Location: S4+2
Function Call: WRITE
  • Prompt: !
  • Line Location: S5+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: S5+3
Function Call: WRITE
  • Prompt: !
  • Line Location: S7+6
Function Call: WRITE
  • Prompt: " ",$S($G(XMZ):" msg# "_XMZ_"...",1:"no msg sent...")
  • Line Location: S9+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>55
  • Line Location: ASK7721+2
Function Call: WRITE
  • Prompt: " Adding 773s... "
  • Line Location: ASK7721+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK7721+7
Function Call: WRITE
  • Prompt: $S(CT>1:", ",1:"")
  • Line Location: ASK7721+9
Function Call: WRITE
  • Prompt: I773
  • Line Location: ASK7721+10
Function Call: WRITE
  • Prompt: " entry not found..."
  • Line Location: ASK7721+12
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: " selecting 772# ",IEN,"..."
  • Line Location: ASKNUM+10
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Send File 772 & 773 Data to Remote Recipient(s)",IOM)
  • Line Location: HDASK+0
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDASK+1
Function Call: WRITE
  • Prompt: !,$P(T,";;",2,99)
  • Line Location: EXASK+0
Routine Call
  • DIR
  • Line Location:
    • FT+4
    • ASKNUM+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(772 - [#772] S0, ASK7721+1, ASK7721+11
^HLMA - [#773] ASKNUM+8
^HLMA("B" S6+3, ASK7721+1, ASK7721+5
^TMP("HLEVFLAG" GENREP+19
^TMP($J SENDATA+8!, S1, S1+2*, S2, S4!, S6+1, S6+4*, S7+2, S9+2!

Label References

Name Line Occurrences
$$AQ COND2GBL+3, COND3GBL+3
$$ASK772 S1+1
$$ASKNUM ASK7721
$$COND2GBL CONDENSE+3
$$COND3GBL CONDENSE+4
$$FT S3+2
$$SUBSTORE GENREP+41, GENREP+46, GENREP+53
ADD S6+8, S7
ASK7721 ASK7721+13
CONCAT GENREP+41, GENREP+46, GENREP+53
CONDENSE GENREP+43, GENREP+50
EXASK SENDATA+4
HDASK SENDATA+4
SENDATA S7+5
SEQBR CONDENSE+13, CONDENSE+19
STORE GENREP+30, GENREP+31, GENREP+55, GENREP+56, GENREP+57, GENREP+58, GENREP+60, GENREP+61, GENREP+62, GENREP+68
, CONCAT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT SENDATA+2~, S6+2*, S6+5*, S6+6, S6+7, ASK772+1~, ASK7721+4*, ASK7721+6*, ASK7721+7*, ASK7721+9
DEF FT~, ASKNUM~, ASKNUM+3
DIFF CONDENSE+1~, SEQBR+2~, SEQBR+3*, SEQBR+4, SEQBR+5
DIR FT+1~, ASKNUM+1~
DIR("A" FT+3*, ASKNUM+2*
DIR("B" ASKNUM+3*
DIR(0 FT+3*, ASKNUM+2*
DIRUT FT+1~, FT+5, ASKNUM+1~, ASKNUM+5
DTOUT FT+1~, FT+5, ASKNUM+1~, ASKNUM+5
DUOUT FT+1~, FT+5, ASKNUM+1~, ASKNUM+5
DUZ S7+10
FIRST CONDENSE+1~, CONDENSE+6*, CONDENSE+19, SEQBR+3, SEQBR+4, SEQBR+6*, SEQBR+7, SEQBR+8, SEQBR+9*
GBL CONDENSE+1~, CONDENSE+3*, CONDENSE+4*, CONDENSE+6, CONDENSE+8, SEQBR+7, SEQBR+8, COND2GBL+2~, COND2GBL+3*, COND2GBL+4
, COND3GBL+2~, COND3GBL+3*, COND3GBL+4
GBLR GENREP~, GENREP+24, STORE+3, STORE+4
GBLS GENREP~, GENREP+27, GENREP+36, GENREP+40, GENREP+45, GENREP+52, GENREP+65, GENREP+66, SUBSTORE+5, SUBSTORE+9
, SUBSTORE+13, COND2GBL+3, COND3GBL+3
I FT+1~, FT+2*, EXASK~*, GENREP+48
I773 ASK772+1~, ASK7721+4*, ASK7721+5*, ASK7721+7, ASK7721+10
IEN SENDATA+2~, S6*, S6+1*, S6+2, S6+3, S6+4, S7+1*, S7+2*, S7+3, ASK772+1~
, ASK7721*, ASK7721+1, ASK7721+5, ASK7721+11, ASKNUM+1~, ASKNUM+7*, ASKNUM+8*, ASKNUM+9, ASKNUM+10, CONDENSE+1~
, CONDENSE+7*, CONDENSE+8*, CONDENSE+10, CONDENSE+13, CONDENSE+16, SEQBR+6, SEQBR+9
IEN(1 S6+2*, S6+3*, S6+4, S6+6
IEN772 SENDATA+2~, S1, S1+1*, S1+2
IOF S5+3, HDASK
IOM ASK7721+7, HDASK, HDASK+1
IOSL FT+2
LAST CONDENSE+1~, CONDENSE+6*, CONDENSE+10, CONDENSE+13, CONDENSE+16*, CONDENSE+19, SEQBR+3, SEQBR+4, SEQBR+5, SEQBR+8
LF FT~, FT+2
NO CONDENSE+1~, SEQBR+8*, STORE+2~, STORE+3*, STORE+4
NOSUB GENREP~, GENREP+27, GENREP+41, GENREP+43, GENREP+46, GENREP+50
>> NUM GENREP+66*, GENREP+67
PAD CONCAT~, CONCAT+2, CONCAT+3, STORE~, STORE+5
PMT FT~, FT+3, ASKNUM~, ASKNUM+2
>> PNO GENREP+35*, GENREP+37*
POSX ASK772+1~, ASK7721+3*, ASK7721+8, GENREP+48*, GENREP+49, GENREP+53, GENREP+55
PROBL GENREP+35*, GENREP+36*, GENREP+38, GENREP+40, GENREP+41, GENREP+43, GENREP+45, GENREP+46, GENREP+50, GENREP+52
, GENREP+53, GENREP+64*, GENREP+65*, GENREP+66, GENREP+67, CONDENSE~, CONDENSE+3, CONDENSE+4, COND2GBL~, COND2GBL+3
, COND3GBL~, COND3GBL+3
RECIP SENDATA+2~, S3+1, S3+2*, S3+3
S1 SUBSTORE~, SUBSTORE+5, SUBSTORE+9, SUBSTORE+13
S2 SUBSTORE~, SUBSTORE+5, SUBSTORE+9, SUBSTORE+12, SUBSTORE+13, SUBSTORE+14*, SUBSTORE+16
S3 SUBSTORE~, SUBSTORE+5, SUBSTORE+8, SUBSTORE+9, SUBSTORE+10*
S4 SUBSTORE~, SUBSTORE+4, SUBSTORE+5, SUBSTORE+6*
SCRN SENDATA+2~, SENDATA+6*, S4, S4+3*, S5+1, S5+3, S7+5
SEQ GENREP~, GENREP+21*, GENREP+43, GENREP+50
SUB2 GENREP+39*, GENREP+40*, GENREP+41, GENREP+42, GENREP+43, GENREP+45, GENREP+46, GENREP+50, GENREP+52, GENREP+53
, CONDENSE~, CONDENSE+3, CONDENSE+4, COND2GBL~, COND2GBL+3, COND3GBL~, COND3GBL+3
SUB3 GENREP+44*, GENREP+45*, GENREP+46, GENREP+47, GENREP+50, GENREP+52, GENREP+53, CONDENSE~, CONDENSE+3, CONDENSE+4
, COND3GBL~, COND3GBL+3
>> SUB4 GENREP+51*, GENREP+52*, GENREP+53
T EXASK~*
TXT SENDATA+2~, S6+2*, S6+6*, S6+7*, S6+8, ADD~, GENREP+30*, GENREP+31*, GENREP+32*, GENREP+35*
, GENREP+38*, GENREP+42*, GENREP+47*, GENREP+49*, GENREP+55, GENREP+56, GENREP+57, GENREP+58, GENREP+60*, GENREP+61*
, GENREP+62*, GENREP+67*, CONCAT+2, CONCAT+3*, STORE+4, STORE+5*
U S7+11
VAL SUBSTORE+2~, SUBSTORE+5*, SUBSTORE+6, SUBSTORE+9*, SUBSTORE+10, SUBSTORE+13*, SUBSTORE+14, SEQBR+2~, SEQBR+4*, SEQBR+5
, SEQBR+7, AQ~, AQ+1, AQ+2, CONCAT~, CONCAT+2, CONCAT+3
WAY FT~, FT+3
X SENDATA+2~, S1*, S3+1*, S7+7*, S7+11*, FT+1~, ASKNUM+1~
XMDUZ SENDATA+2~, S7+10*
XMSUB SENDATA+2~, S7+11*
XMTEXT SENDATA+2~, S7+10*
XMY SENDATA+2~, S4
XMY( S3+3*
>> XMZ S9
Y SENDATA+2~, FT+1~, FT+6, ASKNUM+1~, ASKNUM+6, ASKNUM+7, ASKNUM+9*, ASKNUM+11

Marked Items

Name Field # of Occurrence
$T(EXASK+I EXASK
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All