Routine: PXPT

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

PXPT ;ISL/MKB,DLT,dee - Patient/IHS maintenance routine ;8/10/96

Source Information

Source file <PXPT.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	^%ZTLOAD BMES^XPDUTL
VA FileMan	2	FILE^DICN ^DIR
Registration	1	$$SITE^VASITE

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

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXPTPOST

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point
LOC	;POPULATE LOCATION FILE
MASTER	;Populate the PXPT fields $501 & #502 in PCE PARAMETERS file (#815)
QUE	; Queue job to populate IHS Patient File #9000001
Q1
GETLOC

External References

Name	Field # of Occurrence
^%ZTLOAD	Q1+4
FILE^DICN	LOC+4
^DIR	QUE+8
$$SITE^VASITE	MASTER+6
BMES^XPDUTL	LOC+1, MASTER+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Error in setup, run D MASTER^PXPTPOST" Line Location: QUE+3
Function Call: WRITE	Prompt: !!,"Populating the Patient/IHS File #9000001 via the following queued job ... " Line Location: Q1+0
Function Call: WRITE	Prompt: !!,">> I will queue this job; please specify a start time for it." Line Location: Q1+1
Function Call: WRITE	Prompt: $C(7),!!,"You MUST schedule this job at this time!",!,"This is a required task.",! Line Location: Q1+5
Function Call: WRITE	Prompt: !,"Task #"_ZTSK Line Location: Q1+6
Routine Call	DIR Line Location: QUE+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+4
^PX(815 - [#815]	MASTER+7, MASTER+8, QUE+4, GETLOC

Label References

Name	Line Occurrences
GETLOC	MASTER+5, QUE+3
LOC	EN+1
MASTER	EN+1
QUE	EN+1, Q1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DD	LOC+2!
>> DIC	LOC+3*
>> DIC(0	LOC+3*
DINUM	LOC+4*, QUE+2~
>> DIR("A"	QUE+7*
>> DIR("B"	QUE+7*
>> DIR(0	QUE+7*
DO	LOC+2!
PXPTINST	LOC+4*, LOC+5!
>> PXPTLAST	QUE+4*, QUE+5, QUE+9
PXPTLOC	MASTER+2~, MASTER+4, MASTER+5, MASTER+6, MASTER+7, QUE+2~, QUE+3, Q1+3, GETLOC*
>> X	LOC+4*
>> XPDQUES("POS	PXPT LOCATION" , MASTER+4
>> Y	QUE+5
ZTDESC	QUE+1~, Q1+2*
ZTDTH	QUE+1~
ZTIO	QUE+1~, Q1+2*
ZTRTN	QUE+1~, Q1+2*
>> ZTSAVE("PXPTLOC"	Q1+3*
ZTSK	QUE+1~, Q1+5, Q1+6