Routine: PXHFMGR

Information

PXHFMGR ;SLC/PKR - List Manager routines for Health Factors. ;11/05/2018

Package	Total	Call Graph
PCE Patient Care Encounter	6	COPY^PXCOPY BHFINQ^PXHFINQ (BLDLIST,CLOG,COPY,INITMPG)^PXHFMGR SMANEDIT^PXHFSM LMCLBROW^PXSINQ AWRITE^PXUTIL
VA FileMan	4	BROWSE^DDBR EN^DDIOL UPDATE^DIE ^DIR
List Manager	3	EN^VALM (CLEAR,FULL)^VALM1 CLEAN^VALM10
Kernel	2	(ENDR,KILL)^%ZISS ($$REPEAT,$$RJ)^XLFSTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 13

Package	Total	Caller Graph
PCE Patient Care Encounter	12	PX HEALTH FACTOR ADD PX HEALTH FACTOR CHANGE LOG PX HEALTH FACTOR COPY PX HEALTH FACTOR EDIT PX HEALTH FACTOR INQUIRE PX HEALTH FACTOR MANAGEMENT PX HEALTH FACTOR MANAGEMENT MENU PX HEALTH FACTOR SELECT ENTRY PXCEHF PXHFMGR PXHFSM PXTT HEALTH FACTOR MANAGEMENT
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
ADD	;Add a new entry.
NAME
BLDLIST(NODE)	;Build the list of Health Factor file entries.
CATNCHK(NAME)	;If the Entry Type is category make sure the name is
CLOG(IEN)	;Display the change log.
CLOGS	;Display Change Log for a selected entry.
COPY(IEN)	;Copy a selected entry to a new name.
COPYS	;Copy a selected entry.
EDITS	;Edit a selected entry.
ENTRY	;Entry code
EXIT	;Exit code
FORMAT(NUMBER,NAME,DESC)	;Format entry number, name,
GETSEL(TEXT)	;Get a single selection
HELP	;Display help.
HDR	; Header code
HTEXT	;Health Factor management help text.
INITMPG	;Initialize all the ^TMP globals.
INQ(IEN)	;Health Factor inquiry.
INQS	;Display inquiry for selected entries.
ISMAPPED(IEN)	;Return 1 if the health factor has mapped codes.
PEXIT	; Protocol exit code
START	;Main entry point for PX Health Factor Management
XQORM	;Set range for selection.
XSEL	;Entry action for protocol PX HEALTH FACTOR SELECT ENTRY.

External References

Name	Field # of Occurrence
ENDR^%ZISS	START+3
KILL^%ZISS	START+6
BROWSE^DDBR	HELP+8
EN^DDIOL	NAME+8, NAME+24, NAME+54, CATNCHK+5, CATNCHK+7, CATNCHK+9
UPDATE^DIE	NAME+52
^DIR	NAME+2, NAME+12, NAME+31, NAME+37, NAME+43, GETSEL+6, XSEL+31
COPY^PXCOPY	COPY+2
BHFINQ^PXHFINQ	INQ+2, XSEL+39
BLDLIST^PXHFMGR	COPY+3, ENTRY+2
CLOG^PXHFMGR	XSEL+40
COPY^PXHFMGR	XSEL+37
INITMPG^PXHFMGR	ENTRY+1, EXIT+1
SMANEDIT^PXHFSM	NAME+57, EDITS+5, XSEL+38
LMCLBROW^PXSINQ	CLOG+1
AWRITE^PXUTIL	NAME+55
EN^VALM	START+4
CLEAR^VALM1	ADD+2, XSEL+35
FULL^VALM1	COPY+1, EXIT+3, XSEL+18
CLEAN^VALM10	EXIT+2
$$REPEAT^XLFSTR	FORMAT+11
$$RJ^XLFSTR	FORMAT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IORESET Line Location: START+5
Function Call: WRITE	Prompt: !,"Only one item number allowed." Line Location: XSEL+7
Function Call: WRITE	Prompt: !,SEL_" is not a valid item number." Line Location: XSEL+10
Routine Call	DIE Line Location: NAME+52
Routine Call	DIR Line Location: NAME+2 NAME+12 NAME+31 NAME+37 NAME+43 GETSEL+6 XSEL+31
Routine Call	VALM Line Location: START+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTHF - [#9999999.64]	BLDLIST+10, ISMAPPED+1, XSEL+15
^AUTTHF("B"	NAME+5, BLDLIST+5, BLDLIST+6
^ORD(101 - [#101]	XQORM+3
^TMP(	BLDLIST+2!, BLDLIST+8, BLDLIST+9, BLDLIST+11, BLDLIST+12, BLDLIST+13, BLDLIST+14, BLDLIST+15*
^TMP("PXHFL"	GETSEL+2, GETSEL+7, INITMPG+1!, XQORM+2, XSEL+14

Label References

Name	Line Occurrences
$$CATNCHK	NAME+16
$$FORMAT	BLDLIST+11
$$GETSEL	CLOGS+3, COPYS+3, EDITS+3, INQS+4
CLOG	CLOGS+6
COPY	COPYS+5
INQ	INQS+6
NAME	NAME+5, NAME+17, NAME+21
XQORM	ENTRY+3, PEXIT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CAT	ADD+3~, NAME+32, NAME+48, FORMAT+2~, FORMAT+6~, FORMAT+7, FORMAT+8
CLASS	ADD+3~, NAME+39, NAME+51, EDITS+1~, XSEL+1~, XSEL+15, XSEL+23, XSEL+29
CNAME	CATNCHK+2~, CATNCHK+6, CATNCHK+7, CATNCHK+8, CATNCHK+11, CATNCHK+12
DDS	HELP+1~, HELP+4*
DESC	BLDLIST+1~, BLDLIST+10*, BLDLIST+11, FORMAT~, FORMAT+10
DIR	ADD+3~, GETSEL+1~, XSEL+21~
DIR("?"	XSEL+30*
DIR("A"	NAME+1, NAME+11, NAME+30, NAME+36, NAME+42, GETSEL+5, XSEL+28*
DIR("B"	XSEL+29*
DIR(0	NAME, NAME+10, NAME+29, NAME+35, NAME+41, GETSEL+4, XSEL+22, XSEL+24, XSEL+25, XSEL+26 , XSEL+27*
DIR0	HELP+1~
DIROUT	XSEL+21~, XSEL+32
DIRUT	ADD+3~, NAME+3, NAME+13, NAME+32, NAME+33, NAME+38, NAME+44, XSEL+21~, XSEL+32
DOHS	ADD+3~, NAME+45*, NAME+49
DONE	HELP+1~, HELP+4, HELP+5, HELP+7
DTOUT	XSEL+21~, XSEL+33
DUOUT	XSEL+21~, XSEL+33
DUZ(0	XSEL+23
EDITOK	XSEL+1~, XSEL+23*, XSEL+24
ETYPE	ADD+3~, NAME+14*, NAME+16, NAME+21, NAME+28, NAME+50
FDA	NAME+46~
FDA(	NAME+47, NAME+48, NAME+49, NAME+50, NAME+51*
IEN	NAME+46~, BLDLIST+1~, BLDLIST+6, BLDLIST+8, BLDLIST+9, BLDLIST+10, CLOG~, CLOG+1, CLOGS+1~, CLOGS+3 , CLOGS+5, CLOGS+6, COPY~, COPY+2, COPYS+1~, COPYS+3, COPYS+4, COPYS+5, EDITS+1~, EDITS+3 , EDITS+4, EDITS+5, INQ~, INQ+2, INQS+2~, INQS+4, INQS+5, INQS+6, ISMAPPED~, ISMAPPED+1 , XSEL+1~, XSEL+14, XSEL+15, XSEL+37, XSEL+38, XSEL+39, XSEL+40
IEN(1	NAME+57
IND	HELP+1~, HELP+5*, HELP+6, HELP+7
>> IORESET	START+5
L3C	ADD+3~, NAME+18, NAME+21, CATNCHK+3, CATNCHK+4
LEN	ADD+3~, NAME+18, CATNCHK+3
LNAME	FORMAT+2~, FORMAT+3*, FORMAT+4, FORMAT+7
MSG	NAME+46~, NAME+53
NAME	ADD+3~, NAME+4, NAME+5, NAME+6, NAME+16, NAME+17, NAME+18, NAME+47, BLDLIST+1~, BLDLIST+4* , BLDLIST+5*, BLDLIST+6, BLDLIST+11, CATNCHK~, CATNCHK+3, CATNCHK+4, CATNCHK+6, FORMAT~, FORMAT+3, FORMAT+4 , FORMAT+7, FORMAT+8
NHF	GETSEL+1~, GETSEL+2, GETSEL+3, GETSEL+4, XQORM+1~, XQORM+2, XQORM+3
NODE	BLDLIST~, BLDLIST+2, BLDLIST+8, BLDLIST+9, BLDLIST+11, BLDLIST+12, BLDLIST+13, BLDLIST+14, BLDLIST+15
NUMBER	FORMAT~, FORMAT+9
OPTION	XSEL+21~, XSEL+34*, XSEL+37, XSEL+38, XSEL+39, XSEL+40
>> PXNAT	XSEL+23
SEL	XSEL+1~, XSEL+2, XSEL+4, XSEL+6, XSEL+9, XSEL+10, XSEL+14
TDESC	FORMAT+2~, FORMAT+10*, FORMAT+11
TEXT	ADD+3~, NAME+8, NAME+24, FORMAT+2~, FORMAT+9, FORMAT+11, FORMAT+12, GETSEL~, GETSEL+5, HELP+1~
TEXT(	HELP+6*, HELP+7!
TEXT(1	NAME+6, NAME+22
TEXT(2	NAME+7, NAME+23
TNAME	FORMAT+2~, FORMAT+4, FORMAT+8, FORMAT+9
U	NAME+32, BLDLIST+13, ISMAPPED+1, XQORM+3, XSEL+15, XSEL+22
>> VALMAR	XSEL+9
VALMBCK	ADD+1, NAME+3, NAME+13, NAME+33, NAME+38, NAME+44, CLOGS+4, CLOGS+5, CLOGS+7, COPY+4 , COPYS+4, EDITS+4, EXIT+4, HELP+9, INQ+1, INQS+1, INQS+5, INQS+7, START+1~, XSEL+8* , XSEL+11, XSEL+32, XSEL+33, XSEL+41
>> VALMCNT	BLDLIST+4, BLDLIST+7, BLDLIST+8, BLDLIST+9, BLDLIST+11, BLDLIST+12, BLDLIST+13, BLDLIST+14, BLDLIST+15, XSEL+9
>> VALMHDR(1	HDR+1*
VALMSG	HDR+2, PEXIT+1, START+1~
X	ADD+3~, NAME+4, GETSEL+1~, START+1~, START+2*, XSEL+21~
>> XQORM("#"	XQORM+3*
>> XQORM("A"	XQORM+4*
>> XQORNOD(0	XSEL+2
Y	ADD+3~, NAME+32, GETSEL+1~, GETSEL+7, XSEL+21~, XSEL+34
Y(0	NAME+14, NAME+39, NAME+45

Marked Items

Name	Field # of Occurrence
$T(HTEXT+IND	HELP+6

Customize PDF page

Package: PCE Patient Care Encounter