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

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

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