Routine: BHSUTL

Information

BHSUTL ;IHS/CIA/MGH - Health Summary Utilities ;09-Mar-2016 09:58;du

Source Information

Source file <BHSUTL.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
DRG Grouper	3	($$ICDD,$$ICDDX,$$ICDOP)^ICDCODE ($$ICDD,$$ICDDX,$$ICDOP)^ICDEX $$CPT^ICPTCOD
VA Fileman	2	EN^DIFGG ^DIR
Health Summary	1	CKP^GMTSUP
Health Summary Components	1	$$AICD^BHSUTL
IHS Patient	1	($$SNOMED,$$VSTP)^AUPNVUTL
Kernel	1	$$VERSION^XPDUTL

Caller Graph

Caller Graph Total: 38

Package	Total	Caller Graph
Health Summary Components	35	BHSAPRO BHSAST BHSBCH BHSBDEM BHSBH BHSBH1 BHSDEM BHSDM1 BHSENC BHSENC2 BHSEYEKG BHSFAM1 BHSFH BHSFH1 BHSHOS BHSHS1 BHSMBN BHSMEA BHSMED BHSMEDAL BHSMEDCS BHSMEDH BHSMEDI BHSMU BHSPED BHSPHN BHSPL BHSPLST BHSPLST1 BHSRAD BHSRCIS BHSSKIN BHSSUPP BHSSUR BHSUTL
Health Summary	2	GMTSDGP GMTSPXU1
IHS Mods To Text Integration Utilities	1	BTIUPCC1

Entry Points

Name	Comments	DBIA/ICR reference
CONT
PRTTXT	;PEP - PUBLISHED ENTRY POINT ; GENERALIZED TEXT PRINTER
GEN1	;
PRTICD	;ENTRY POINT
PRTICDE	;ENTRY POINT
GETSITE	;ENTRY POINT
PRTTXT1	;
PRTTXT2
GETNARR	;ENTRY POINT
DSPLST	; COMMON CODE FOR BUILD HLTH SUM & HLTH SUM MNX LISTS
GETICDDX	;ENTRY POINT
LM	;ENTRY POINT - FOR BHSLST MEASUREMENT PANEL TYPES
FLOW	;
LI	;ENTRY POINT - FOR BHSLST HLTH SUM FLOWSHEET ITEMS
GENFG	;generate filegrams for export
LF	;ENTRY POINT - FOR BHSLST HLTH SUM FLOWSHEETS
GETCPT	;ENTRY POINT PATCH 2
GETSITEV	;ENTRY POINT
GETFRAG
AICD()	;EP
QUIT
MEASPAN	;
GETPLICD	;EP
GETICDOP	;ENTRY POINT
TYPE	;

External References

Name	Field # of Occurrence
$$SNOMED^AUPNVUTL	GETNARR+5
$$VSTP^AUPNVUTL	GETICDOP+6
$$AICD^BHSUTL	GETICDDX+4, GETPLICD+2, GETICDOP+4, GETICDOP+7
EN^DIFGG	GEN1+4
^DIR	CONT, CONT+1
CKP^GMTSUP	PRTTXT2
$$ICDD^ICDCODE	GETICDOP+8
$$ICDDX^ICDCODE	GETICDDX+5, GETPLICD+3
$$ICDOP^ICDCODE	GETICDOP+5
$$ICDD^ICDEX	GETICDOP+7
$$ICDDX^ICDEX	GETICDDX+4, GETPLICD+2
$$ICDOP^ICDEX	GETICDOP+4
$$CPT^ICPTCOD	GETCPT+3
$$VERSION^XPDUTL	AICD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?BHSICL Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: BHSF,! Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: !,"NO ",$P(@(BHSLST_"0)"),U),"S DEFINED.",! Line Location: DSPLST+2
Function Call: WRITE	Prompt: @IOF,!!,"Existing ",$P(@(BHSLST_"0)"),U),"S:",! Line Location: DSPLST+3
Function Call: WRITE	Prompt: ! Line Location: CONT+1
Function Call: WRITE	Prompt: !,"REMEMBER TO KILL APCHTMP BEFORE DOING THIS",! Line Location: MEASPAN+2
Function Call: WRITE	Prompt: !,"measurement panel fg missing" Line Location: MEASPAN+4
Function Call: WRITE	Prompt: !,"panel ",APCHX," missing.",! Line Location: MEASPAN+6
Function Call: WRITE	Prompt: !,"flowsheet fg missing" Line Location: FLOW+3
Function Call: WRITE	Prompt: !,"flowsheet ",APCHX," missing.",! Line Location: FLOW+5
Function Call: WRITE	Prompt: !,"health summary type fg missing" Line Location: TYPE+2
Function Call: WRITE	Prompt: !,"type ",APCHX," missing.",! Line Location: TYPE+4
Function Call: WRITE	Prompt: !,"all done" Line Location: TYPE+8
Function Call: WRITE	Prompt: !,"error on ",APCHT," item ",APCHX,! Line Location: GEN1+5
Routine Call	DIR Line Location: CONT CONT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHSFLC("B"	FLOW+4
^AUPNVSIT - [#9000010]	GETSITEV+1, GETSITE+4, GETSITE+5
^AUTTLOC - [#9999999.06]	GETSITE+2
^BHS(90470	MEASPAN+5
^DIC(4 - [#4]	GETSITE+4
^DIPT("B"	MEASPAN+3, FLOW+2, TYPE+1
^GMT(142 - [#142]	TYPE+3
^ICD0 - [#80.1]	GETICDOP+6

Name	Line Occurrences
DSPLST	LM+1, LI+1, LF+1
GEN1	MEASPAN+8, FLOW+7, TYPE+6
GETFRAG	PRTTXT2
PRTTXT	PRTICD+6, PRTICDE+4
PRTTXT1	PRTTXT+5
PRTTXT2	PRTTXT+5
QUIT	CONT
TYPE	FLOW+1

Name	Field # of Occurrence
^(0	GETSITE+4
^(21	GETSITE+4, GETSITE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHC	MEASPAN+3, MEASPAN+7, FLOW+2, FLOW+6, TYPE+1, TYPE+5, TYPE+8!
APCHSDSC	GETICDDX+7~, GETICDDX+10*, GETICDDX+11, GETICDDX+12
APCHT	MEASPAN+3, FLOW+2, TYPE+1*, TYPE+8!, GEN1+2, GEN1+5
>> APCHX	MEASPAN+3, MEASPAN+5, MEASPAN+6, FLOW+2, FLOW+4, FLOW+5, TYPE+1*, TYPE+3, TYPE+4, GEN1+5
BHSC	PRTTXT+7!, GETFRAG+1, GETFRAG+2, GETFRAG+3
BHSCNT	DSPLST+3, CONT, QUIT!
>> BHSCSVD	GETICDOP+8
>> BHSCVD	GETICDOP+6, GETICDOP+7
BHSDLT	PRTTXT+4, PRTTXT+7!, PRTTXT2+1
>> BHSDSC	GETICDOP+7, GETICDOP+8
>> BHSDSC(1	GETICDOP+9
BHSF	PRTTXT+7!, PRTTXT2, GETFRAG, GETFRAG+3
>> BHSICD	GETICDDX+4, GETICDDX+5, GETICDDX+11, GETICDDX+12, GETICDDX+13, GETICDDX+14, GETICDDX+15, GETPLICD+2, GETPLICD+3, GETPLICD+4 , GETICDOP+4, GETICDOP+5, GETICDOP+6, GETICDOP+9, GETICDOP+10, GETICDOP+11, GETCPT+3, GETCPT+4, GETCPT+5, GETCPT+6 , PRTICD+2, PRTICDE+1*
>> BHSICF	PRTICDE+1
>> BHSICL	PRTTXT+4, PRTTXT2, PRTTXT2+1*
BHSILN	PRTTXT+4, PRTTXT+7!, PRTTXT2+1, GETFRAG, GETFRAG+1, GETFRAG+2
>> BHSITE	GETSITEV+1, GETSITE+1, GETSITE+2, GETSITE+4, GETSITE+5, GETSITE+7
BHSLST	LM+1, LI+1, LF+1*, DSPLST+2, DSPLST+3, CONT, QUIT!
>> BHSNAB	GETSITE+7*
>> BHSNFL	GETSITE+4*
>> BHSNRQ	PRTTXT1+2, PRTTXT1+3, PRTTXT1+5, GETNARR+4, GETNARR+5, GETNARR+6, GETNARR+7
>> BHSNSH	GETSITE+5*
BHSNTE	PRTICD+4, PRTICD+5, PRTICDE+2, PRTICDE+3, PRTTXT+3, PRTTXT+6!, PRTTXT1+3, PRTTXT1+6*
>> BHSP	GETSITEV+1, GETSITE+2, GETSITE+4, GETSITE+5, GETSITE+7
BHSQ	PRTTXT+2~, PRTTXT+5*
BHSTXT	PRTICD+2, PRTTXT+5, PRTTXT+7!, PRTTXT1+2, PRTTXT1+3, PRTTXT1+5, PRTTXT1+6, GETFRAG, GETFRAG+1, GETFRAG+3*
BHSVDF	GETSITEV+1, GETSITE+3*, GETSITE+4, GETSITE+5, GETSITE+6!
>> BHSVSC	GETSITEV+1*
BHSXY	GETICDOP+3~, GETICDOP+4, GETICDOP+5, GETICDOP+6*, GETICDOP+7, GETICDOP+8, GETICDOP+9, GETICDOP+10, GETICDOP+11
DIFG	MEASPAN+1~
DIFG("FE"	MEASPAN+5, MEASPAN+6, FLOW+4, FLOW+5, TYPE+3*, TYPE+4
DIFG("FGR"	GEN1+2*
DIFG("FUNC"	GEN1+1*
DIFGER	MEASPAN+1~, GEN1+5
DIFGT	MEASPAN+1~, MEASPAN+3, MEASPAN+4, FLOW+2, FLOW+3, TYPE+1*, TYPE+2
DILC	MEASPAN+1~, GEN1+3*
DIR	DSPLST+1!, CONT+1!, QUIT!
DIR(0	CONT, CONT+1
>> GMPXICDF	GETICDDX+11, GETICDDX+12, GETICDDX+13, GETICDDX+14, GETICDDX+15, GETICDOP+9, GETICDOP+10, GETICDOP+11, GETCPT+4, GETCPT+5 , GETCPT+6
>> GMPXNARR	PRTTXT1+1, PRTTXT1+4, GETNARR+4
>> GMTSQIT	PRTTXT2
IOF	DSPLST+3, CONT
IOM	PRTTXT+4
IOSL	CONT
SNONAR	GETNARR+2~, GETNARR+3, GETNARR+5, GETNARR+6
U	GETICDDX+10, GETICDDX+11, GETICDDX+12, GETICDDX+13, GETICDDX+14, GETPLICD+4, GETICDOP+6, GETICDOP+7, GETICDOP+8, GETICDOP+9 , GETICDOP+10, GETICDOP+11, GETCPT+4, GETCPT+5, GETCPT+6, GETSITEV+1, GETSITE+4, GETSITE+5, GETSITE+7, DSPLST+2 , DSPLST+3
X	QUIT!
Y	GETICDDX+4, GETICDDX+5, GETICDDX+10, GETICDDX+11, GETICDDX+12, GETICDDX+13, GETICDDX+14, GETPLICD+2, GETPLICD+3, GETPLICD+4 , GETCPT+3*, GETCPT+4, GETCPT+5, GETCPT+6, CONT, QUIT!

Customize PDF page

Package: Health Summary Components

Routine: BHSUTL

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 38

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: