Routine: PXBPL

Package	Total	Call Graph
PCE Patient Care Encounter	6	(LOC,REVPOV,TERM,WIN17)^PXBCC EN0^PXBDPRV POV^PXBGPOV PRV^PXBGPRV PRV^PXBPPRV HELP1^PXBUTL1
VA Fileman	3	^DIE GETS^DIQ ^DIR
Lexicon Utility	1	EN^LEXCODE
Problem List	1	CREATE^GMPLUTL

Package

Total

Call Graph

PCE Patient Care Encounter

(LOC,REVPOV,TERM,WIN17)^PXBCC EN0^PXBDPRV POV^PXBGPOV PRV^PXBGPRV PRV^PXBPPRV HELP1^PXBUTL1

VA Fileman

^DIE GETS^DIQ ^DIR

Lexicon Utility

EN^LEXCODE

Problem List

CREATE^GMPLUTL

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXBMPOV

Package

Total

Caller Graph

PCE Patient Care Encounter

PXBMPOV

Name	Comments	DBIA/ICR reference
PR	;
PRMPT	;--Ask if you want to put entries in PL
SET	;--SETUP AND NEW VARIABLES
SEND	;--Entry point to send data to problem list
PRV	;--Ask for provider
SELECT	;--Select entries for PL
R
LOOP	;--Loop through diagnosis

External References

Name	Field # of Occurrence
^DIE	PR+16
GETS^DIQ	PR+11
^DIR	PRMPT+5, SELECT+26
CREATE^GMPLUTL	LOOP+19, SEND+18
EN^LEXCODE	LOOP+17, SEND+16
LOC^PXBCC	R+1
REVPOV^PXBCC	SELECT+25
TERM^PXBCC	SEND+2
WIN17^PXBCC	SET+2
EN0^PXBDPRV	R+1
POV^PXBGPOV	R+2
PRV^PXBGPRV	PRV+2
PRV^PXBPPRV	R
HELP1^PXBUTL1	PR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS IS NOT AN ENTRY POINT" Line Location: PXBPL+5
Function Call: WRITE	Prompt: ! Line Location: SELECT+1
Function Call: WRITE	Prompt: !,"Select 1 or several Diagnoses (eg 1,3,4,7,3-6,2-5): " Line Location: SELECT+3
Function Call: WRITE	Prompt: !,"Enter the ITEM numbers of the entries you whish to add to the PROBLEM LIST." Line Location: SELECT+16
Function Call: WRITE	Prompt: OK Line Location: SELECT+19
Function Call: WRITE	Prompt: IOEDEOP Line Location: R+0
Routine Call	DIE Line Location: PR+16
Routine Call	DIR Line Location: PRMPT+5 SELECT+26

FileNo	Call Tags
^AUPNVPOV - [#9000010.07]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV - [#9000010.07]	LOOP+7
^AUPNVSIT - [#9000010]	LOOP+8, LOOP+14, SEND+7, SEND+13
^DISV(	SELECT+18*, SELECT+19

Name	Line Occurrences
PR	LOOP+20
PRV	R+1
R	R
SELECT	SELECT+16, SELECT+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PR+7~, PR+8*, PR+11, PR+13
DATA	SET+1~, R+1
DIE	PR+7~, PR+15*
DIR	PRMPT+5!, SELECT+26!
DIR("A"	PRMPT+3, PRMPT+4, SELECT+26*
DIR("B"	PRMPT+2, SELECT+26
DIR(0	PRMPT+1, SELECT+26
DR	PR+7~, PR+15*
DTIME	SELECT+3, PR+3
DUZ	SELECT+18, SELECT+19
ERROR	R!
FLAG	SET+1~, SELECT+24*, SELECT+26, PRV+1
>> FROM	PRV+2, R
ICDCODE	SET+1~, LOOP+15, LOOP+16, LOOP+17, SEND+1~, SEND+14, SEND+15, SEND+16
>> IOEDEOP	R
>> IORVOFF	PR+2
>> IORVON	SEND+2, PR+2
LEXS	LOOP+17!, SEND+16!
LEXS("ICD"	LOOP+18, SEND+17
NOPLLIST	SET+3, LOOP+21!
OK	SET+1~, SELECT+2, SELECT+3, SELECT+4, SELECT+5, SELECT+8, SELECT+10, SELECT+11, SELECT+16, SELECT+18 , SELECT+19, SELECT+21, LOOP+1, SEND+1~, PR+3*
>> PATIENT	LOOP+4, SEND+3
PIECE	SELECT+9~, SELECT+10*, SELECT+11
>> PXBCNT	SET+2, PRMPT+3, PRMPT+4, SELECT+2, SELECT+3
PXBI	SELECT+9~, SELECT+10*
PXBJ	SELECT+9~, SELECT+11*
PXBK	SELECT+9~, SELECT+11*
>> PXBKY(	SEND+4, SEND+14
>> PXBLEN	SELECT+15, SELECT+21, LOOP+1*
>> PXBPIECE	SELECT+21, SELECT+22, SELECT+23, SELECT+25, LOOP+1, LOOP+2, LOOP+3, LOOP+5, LOOP+7, LOOP+15 , PR+8
PXBPL	SET+1~, LOOP+19, SEND+1~, SEND+18
PXBPL(	LOOP+14, SEND+13
PXBPL("DIAGNOSIS"	LOOP+7, SEND+6
PXBPL("LEXICON"	LOOP+18, SEND+17
PXBPL("LOCATION"	LOOP+8, SEND+7
PXBPL("NARRATIVE"	LOOP+5, SEND+4
PXBPL("PATIENT"	LOOP+4, SEND+3
PXBPL("PROVIDER"	LOOP+6, SEND+5
PXBPLARR	PR+7~, PR+10!
PXBPLARR(	PR+13
PXBPLERR	PR+7~, PR+10!, PR+12
PXBPLPOV	PR+7~, PR+9*, PR+11, PR+13
>> PXBRES	LOOP+19, SEND+18, PR+1, PR+6, PR+15
>> PXBRES(0	PR+2
>> PXBSAM(	SELECT+23, LOOP+3, LOOP+5, LOOP+15, SEND+4, SEND+14
>> PXBSKY(	LOOP+7, PR+8
>> PXBVST	PRV+2, R+2, LOOP+8, LOOP+14, SEND+7, SEND+13
>> PXI	SELECT+21, LOOP+1
PXII	LOOP+10~, LOOP+12, LOOP+13, LOOP+14, SEND+9~, SEND+11, SEND+12, SEND+13
PXSCSTR	LOOP+10~, LOOP+11, LOOP+13, SEND+9~, SEND+10, SEND+12
PXTYP	LOOP+10~, LOOP+13, LOOP+14, SEND+9~, SEND+12, SEND+13
>> REQE	SEND+4, SEND+14
>> REQI	LOOP+6, SEND+5, SEND+6
Y	PRMPT+6, SELECT+26!

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXBPL

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: