Routine: PXPT

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 file <PXPT.m>

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXPTPOST

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

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+9

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

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

Name	Field # of Occurrence
DD	LOC+2!
>> DIC	LOC+3*
>> DIC(0	LOC+3*
DINUM	LOC+4*, QUE+2~
>> DIR("A"	QUE+8*
>> DIR("B"	QUE+8*
>> DIR(0	QUE+8*
DO	LOC+2!
PXPTINST	LOC+4*, LOC+5!
>> PXPTLAST	QUE+4*, QUE+5, QUE+6, QUE+10
PXPTLOC	MASTER+2~, MASTER+4, MASTER+5, MASTER+6, MASTER+8, QUE+2~, QUE+3, Q1+3, GETLOC*
>> X	LOC+4*
>> XPDQUES("POS	PXPT LOCATION" , MASTER+4
>> Y	QUE+6
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