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

Package: Health Level Seven

Routine: HLUCM004


Information

HLUCM004 ;CIOFO-O/LJA - HL7/Capacity Mgt API ;3/13/03 09:37

Source Information

Source file <HLUCM004.m>

Entry Points

Name Comments DBIA/ICR reference
LOOPU ; Loop thru ^TMP($J,"HLUCMSTORE","U") data. Full-screen view...
LOOPU1
OK(IENPAR,RNOMSG,EXCL,INCL) ; Exclude and INcludes..
EXCL(EXCL) ; What entries to exclude? (Searches PARENT node)
HOLDEXCL(DATA,EXCL) ; Includes text that should be excluded?
INCL(INCL) ; What entries to include? (Searches PARENT node)
HOLDINCL(DATA,INCL) ; Does DATA hold one of the INCLUDEs?
ASK(TYPE,ENTRY) ; Repeatedly ask...
SHOWU(IENPAR,VIEW) ; Show one entry in VIEW format...
FULL(HL) ; Display one entry in FULL format...
; IOINHI,IOINORM -- req
DATA(IEN772) ; Return what is displayed...
XTMPGBL(SHOW) ; Display XTMP data totals?
EOR ; HLUCM004 - HL7/Capacity Mgt API ;3/13/03 09:37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Display of ^TMP($J,""HLUCMSTORE"",""U"") Data",IOM)
  • Line Location: LOOPU1+1
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: LOOPU1+2
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Type Totals",IOM)
  • Line Location: LOOPU1+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("--------------------------------",IOM)
  • Line Location: LOOPU1+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(TYPE_" "_DATA,IOM)
  • Line Location: LOOPU1+9
Function Call: WRITE
  • Prompt: !!,"Enter text in messages to include and exclude..."
  • Line Location: LOOPU1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOPU1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOPU1+14
Function Call: READ
  • Variable: X
  • Timeout: 999
  • Line Location: LOOPU1+27
Function Call: WRITE
  • Prompt: !!,"No data exists..."
  • Line Location: LOOPU1+29
Function Call: WRITE
  • Prompt: !,"#"_CT_" entries skipped..."
  • Line Location: LOOPU1+33
Function Call: WRITE
  • Prompt: !!,"Every parent node that includes one of the EXCLUDE values that you enter now"
  • Line Location: EXCL+1
Function Call: WRITE
  • Prompt: !,"will not be included in the entries displayed."
  • Line Location: EXCL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCL+3
Function Call: WRITE
  • Prompt: !!,"Every parent node that doesn't include one of the INCLUDE values that you"
  • Line Location: INCL+1
Function Call: WRITE
  • Prompt: !,"enter now will not be included in the entries displayed."
  • Line Location: INCL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: INCL+3
Function Call: WRITE
  • Prompt: !,TYPE,": "
  • Line Location: ASK+3
Function Call: READ
  • Variable: ANS
  • Timeout: 999
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FULL+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR($E(DATA,1,70),IOM)
  • Line Location: FULL+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: FULL+11
Function Call: WRITE
  • Prompt: !,IEN772,?12,"-",?14
  • Line Location: FULL+23
Function Call: WRITE
  • Prompt: DATAP
  • Line Location: FULL+33
Function Call: READ
  • Variable: X
  • Timeout: 120
  • Line Location: FULL+34
Function Call: WRITE
  • Prompt: " ",IOINHI,"<",IOINORM
  • Line Location: FULL+34
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR($S($O(HL(IEN772)):"-",1:"="),IOM)
  • Line Location: FULL+35
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(RES_" - "_DATAR,IOM)
  • Line Location: FULL+41
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(" XTMP-stored Reports ",IOM),!,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: XTMPGBL+5
Function Call: WRITE
  • Prompt: !,"#",?4,"Run-time",?20,"API Call"
  • Line Location: XTMPGBL+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: XTMPGBL+7
Function Call: WRITE
  • Prompt: !,$E("#"_HOLD_" ",1,4),DATA
  • Line Location: XTMPGBL+29
Function Call: WRITE
  • Prompt: !!,"You may choose to print the totals report from stored XTMP data if you like."
  • Line Location: XTMPGBL+33
Function Call: WRITE
  • Prompt: !,"If so, enter the number of the XTMP report from above now. (Otherwise,"
  • Line Location: XTMPGBL+34
Function Call: WRITE
  • Prompt: !,"press RETURN.)"
  • Line Location: XTMPGBL+35
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter XTMP Report#: "
  • Variable: NO
  • Timeout: 999
  • Line Location: XTMPGBL+37
Info |  Source |  Entry Points |  Interaction Calls