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 |  All
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 [ 12/23/2003 3:50 PM ]

Source Information

Source file <HLUCM004.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 2 ENDR^%ZISS  ($$CJ,$$REPEAT)^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Level Seven 1 HLUCM002  

Entry Points

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

External References

Name Field # of Occurrence
ENDR^%ZISS LOOPU+2
$$CJ^XLFSTR LOOPU1+1, LOOPU1+4, LOOPU1+5, LOOPU1+9, FULL+9, FULL+41, XTMPGBL+5
$$REPEAT^XLFSTR LOOPU1+2, FULL+11, FULL+35, XTMPGBL+5, XTMPGBL+7

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
  • Timeout: 999
  • Variable: X
  • 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
  • Timeout: 999
  • Variable: ANS
  • 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
  • Timeout: 120
  • Variable: X
  • 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
  • Prompt: "Enter XTMP Report#: "
  • Formatting: !!
  • Timeout: 999
  • Variable: NO
  • Line Location: XTMPGBL+37

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J LOOPU1+7, LOOPU1+8, LOOPU1+22, OK+5, OK+13, OK+21, OK+35, SHOWU+2, DATA+2, DATA+3
, DATA+4
^XTMP( XTMPGBL+4, XTMPGBL+8, XTMPGBL+10, XTMPGBL+12, XTMPGBL+14, XTMPGBL+15, XTMPGBL+17, XTMPGBL+40

Label References

Name Line Occurrences
$$DATA OK+22, OK+36, FULL+19
$$HOLDEXCL OK+16, OK+23
$$HOLDINCL OK+31, OK+37
$$OK LOOPU1+24
ASK EXCL+4, INCL+4
EXCL LOOPU1+13
INCL LOOPU1+15
SHOWU LOOPU1+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS ASK+1~, ASK+2, ASK+4*, ASK+5, XTMPGBL+1~
API XTMPGBL+1~, XTMPGBL+17*, XTMPGBL+19
BEG XTMPGBL+1~, XTMPGBL+9*, XTMPGBL+10*, XTMPGBL+12, XTMPGBL+14, XTMPGBL+15, XTMPGBL+19
COND XTMPGBL+1~, XTMPGBL+13*, XTMPGBL+14*, XTMPGBL+15, XTMPGBL+19
COUNT FULL+2~, FULL+16*, FULL+18*, FULL+34
CT LOOPU+1~, LOOPU1+21*, LOOPU1+25*, LOOPU1+32, LOOPU1+33*
CT(1 LOOPU1+21*, LOOPU1+23*, LOOPU1+29, LOOPU1+31, LOOPU1+33
DATA LOOPU+1~, LOOPU1!, LOOPU1+8*, LOOPU1+9, OK+1~, OK+13*, OK+16, OK+22*, OK+23, OK+31
, OK+36*, OK+37, HOLDEXCL~, HOLDEXCL+4, HOLDINCL~, HOLDINCL+4, FULL+2~, FULL+7*, FULL+8, FULL+9
, FULL+10*, FULL+19*, FULL+20*, FULL+21, FULL+22*, FULL+24, FULL+25, FULL+26, DATA+1~, DATA+4*
, DATA+5*, DATA+6, XTMPGBL+1~, XTMPGBL+15*, XTMPGBL+16, XTMPGBL+17*, XTMPGBL+25*, XTMPGBL+26*, XTMPGBL+29
DATA4 FULL+2~
DATAN FULL+2~, FULL+26*, FULL+31
DATAP FULL+2~, FULL+25*, FULL+27, FULL+28*, FULL+29*, FULL+30, FULL+31*, FULL+33
DATAR FULL+2~, FULL+40*, FULL+41
END XTMPGBL+1~, XTMPGBL+11*, XTMPGBL+12*, XTMPGBL+14, XTMPGBL+15, XTMPGBL+19
ENTRY ASK~
ENTRY( ASK+5*
EXCL LOOPU+1~, LOOPU1!, LOOPU1+13, LOOPU1+24, OK~, OK+16, OK+23, EXCL~, EXCL+4, HOLDEXCL~
, HOLDEXCL+2*, HOLDEXCL+3*, HOLDEXCL+4
EXCL( HOLDEXCL+3
EXCL("" OK+19
FAIL OK+1~
HL SHOWU+1~, SHOWU+2*, FULL~, FULL+7, FULL+13
HL( FULL+17, FULL+35, FULL+39, FULL+40
HOLD HOLDEXCL+1~, HOLDEXCL+2*, HOLDEXCL+3, HOLDEXCL+4*, HOLDEXCL+5, HOLDINCL+1~, HOLDINCL+2*, HOLDINCL+3, HOLDINCL+4*, HOLDINCL+5
, XTMPGBL+1~, XTMPGBL+3*, XTMPGBL+18*, XTMPGBL+19, XTMPGBL+21*, XTMPGBL+27*, XTMPGBL+28, XTMPGBL+29, XTMPGBL+31
HOLD( XTMPGBL+19*, XTMPGBL+22, XTMPGBL+24, XTMPGBL+25
HOLD("N" XTMPGBL+28*, XTMPGBL+37, XTMPGBL+38
HOLDEXCL OK+1~, OK+20*, OK+21, OK+23*, OK+25
>> HOLDINCL OK+34*, OK+35, OK+37*, OK+39
IEN772 LOOPU+1~, LOOPU1!, OK+1~, OK+4*, OK+5*, OK+20*, OK+21*, OK+22, OK+34*, OK+35*
, OK+36, FULL+2~, FULL+16*, FULL+17*, FULL+19, FULL+23, FULL+35, DATA~, DATA+2, DATA+3
, DATA+4
IENPAR LOOPU+1~, LOOPU1!, LOOPU1+21*, LOOPU1+22*, LOOPU1+24, LOOPU1+26, OK~, OK+5, OK+13, OK+21
, OK+35, SHOWU~, SHOWU+2, DATA+1~, DATA+2*, DATA+3, DATA+4
INCL LOOPU+1~, LOOPU1!, LOOPU1+15, LOOPU1+24, OK~, OK+31, OK+37, INCL~, INCL+4, HOLDINCL~
, HOLDINCL+2*, HOLDINCL+3*, HOLDINCL+4
INCL( HOLDINCL+3
INCL("" OK+28
IOF LOOPU1+1, FULL+6
IOINHI LOOPU+1~, FULL+20, FULL+29, FULL+34
IOINORM LOOPU+1~, FULL+20, FULL+29, FULL+34
IOM LOOPU1+1, LOOPU1+2, LOOPU1+4, LOOPU1+5, LOOPU1+9, FULL+9, FULL+11, FULL+32, FULL+35, FULL+41
, XTMPGBL+5, XTMPGBL+7
L FULL+2~, FULL+20*
LEN FULL+2~, FULL+28*, FULL+30*, FULL+32
NO XTMPGBL+1~, XTMPGBL+23*, XTMPGBL+24*, XTMPGBL+25, XTMPGBL+37*, XTMPGBL+38
NUM OK+1~, OK+4*, OK+6*, OK+9, OK+10
PNO FULL+3~, FULL+24*, FULL+25, FULL+26
PROTC FULL+3~, FULL+21*, FULL+22
PROTP FULL+3~, FULL+13*, FULL+22
RES FULL+3~, FULL+38*, FULL+39*, FULL+40, FULL+41, DATA+1~, DATA+3*, DATA+4
RNOMSG LOOPU+1~, LOOPU1!, LOOPU1+17*, LOOPU1+18*, LOOPU1+19, LOOPU1+24, OK~, OK+9, OK+10
RUN XTMPGBL+1~
RUN( XTMPGBL+20*
SHOW XTMPGBL~, XTMPGBL+3*
STOP LOOPU+1~, LOOPU1!, LOOPU1+21*, LOOPU1+22, LOOPU1+27*, FULL+3~, FULL+16*, FULL+17, FULL+34*
SVNO XTMPGBL+1~, XTMPGBL+16*, XTMPGBL+17, XTMPGBL+19, XTMPGBL+20, XTMPGBL+26*, XTMPGBL+28, XTMPGBL+38*, XTMPGBL+40
TIME XTMPGBL+1~, XTMPGBL+16*, XTMPGBL+19, XTMPGBL+21*, XTMPGBL+22*, XTMPGBL+24, XTMPGBL+25
TYPE LOOPU+1~, LOOPU1!, LOOPU1+6*, LOOPU1+7*, LOOPU1+8, LOOPU1+9, ASK~, ASK+3
U LOOPU1+27, ASK+4, FULL+13, FULL+21, FULL+22, FULL+24, FULL+25, FULL+26, FULL+31, FULL+34
, XTMPGBL+16, XTMPGBL+17, XTMPGBL+19, XTMPGBL+25, XTMPGBL+26, XTMPGBL+28, XTMPGBL+38
VIEW SHOWU~, SHOWU+3
X LOOPU+1~, LOOPU+2*, LOOPU1+27*, SHOWU+1~, SHOWU+3*, FULL+20*, FULL+34*
XTMP XTMPGBL+1~, XTMPGBL+3*, XTMPGBL+4, XTMPGBL+8*, XTMPGBL+10, XTMPGBL+12, XTMPGBL+14, XTMPGBL+15, XTMPGBL+17, XTMPGBL+19
, XTMPGBL+20, XTMPGBL+25*, XTMPGBL+28, XTMPGBL+38*, XTMPGBL+40
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All