Routine: PXCEPAT

Information

PXCEPAT ;ISL/dee,ISA/KWP - Creates the List Manager display of visit for a patient ;04/30/99

Source Information

Source file <PXCEPAT.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Registration	5	(ELIG,SDA)^VADPT PID^VADPT6 CHGCAP^VALM FULL^VALM1 CLEAN^VALM10
PCE Patient Care Encounter	4	SETDATES^PXCE $$DATE^PXCEDATE MAKELIST^PXCENEW $$DISPOSIT^PXUTL1
VA Fileman	2	^DIC $$EXTERNAL^DILFD
IHS Patient	1	(KILL,START)^AUPNPAT
Scheduling	1	$$STATUS^SDPCE

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
PCE Patient Care Encounter	8	PXCA0 PXCE PXCEAE PXCEEXP PXCEHLOC PXCENEW PXCESDAM PXCEVSIT

Entry Points

Name	Comments	DBIA/ICR reference
SDSALONE	;Get the patient for standalone from the appointment/hospital
NEWPAT	; -- init variables and list array
QAPPOINT
SDKALONE	;Kill the patient info if it was created above
PATNAME(PXCEDATA)	;
PATINFO(PXCEDATA)	;
JUSTDFNK	;Kill DFN if it was set above
APPOINT(DFN,DATETIME,HOSLOC)	;See if there is an appointment.
PATKILL	;
JUSTDFN	;Just set DFN for other packages.
NEWPAT1	;Entry point for initial selection of patient
NEWPAT2	;Entry point of changing patient from Update Encounter
PATIENT(PXCEDATA)	; Select a patient
MAKELIST	;

External References

Name	Field # of Occurrence
KILL^AUPNPAT	PATKILL+3
START^AUPNPAT	PATINFO+5
^DIC	JUSTDFN+5, PATIENT+4
$$EXTERNAL^DILFD	MAKELIST+27
SETDATES^PXCE	NEWPAT1+4
$$DATE^PXCEDATE	MAKELIST+21
MAKELIST^PXCENEW	NEWPAT+8
$$DISPOSIT^PXUTL1	MAKELIST+18
$$STATUS^SDPCE	MAKELIST+32
ELIG^VADPT	PATINFO+9
SDA^VADPT	APPOINT+13
PID^VADPT6	PATNAME+4
CHGCAP^VALM	MAKELIST+2
FULL^VALM1	PATIENT+2
CLEAN^VALM10	MAKELIST+5

FileNo	Call Tags
^AUPNVSIT - [#9000010]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	MAKELIST+12, MAKELIST+14, MAKELIST+28
^AUPNVSIT("AA"	MAKELIST+9, MAKELIST+11
^DPT - [#2]	PATNAME+1
^SC - [#44]	MAKELIST+30
^TMP("PXCE"	MAKELIST+33, MAKELIST+37, MAKELIST+38*
^TMP("PXCEIDX"	MAKELIST+6!, MAKELIST+34, MAKELIST+35
^UTILITY("VASD"	APPOINT+8!, APPOINT+15, APPOINT+16, QAPPOINT!

Name	Line Occurrences
NEWPAT1	NEWPAT+7
PATIENT	NEWPAT2+2, NEWPAT+2, SDSALONE+3
PATINFO	NEWPAT1+1, SDSALONE+4
PATKILL	NEWPAT2+4, NEWPAT+5, SDKALONE+2
PATNAME	PATINFO+6
QAPPOINT	APPOINT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	JUSTDFN+3~, PATIENT+1~
DATETIME	APPOINT~, APPOINT+9, APPOINT+10
DFN	JUSTDFN+2, JUSTDFN+6, JUSTDFNK+1!, JUSTDFNK+2, PATINFO+3, PATNAME+2~, PATNAME+3, PATKILL+1!, APPOINT~
DIC	JUSTDFN+3~, JUSTDFN+4, PATIENT+1~, PATIENT+3
DIC(0	JUSTDFN+4, PATIENT+3
HL	APPOINT+7~, APPOINT+14, APPOINT+16, APPOINT+17*, QAPPOINT+1
HOSLOC	APPOINT~, APPOINT+12
INDEX	APPOINT+7~, APPOINT+15*, APPOINT+16
ORVP	PATINFO+3*, PATKILL+1!
>> PXCE9BEG	MAKELIST+9
>> PXCE9END	MAKELIST+4
PXCEDATA	PATIENT~, PATIENT+5*, PATINFO~, PATINFO+1, PATINFO+3, PATINFO+6, PATNAME~, PATNAME+1, PATNAME+3
PXCEDATA("ELIG"	PATINFO+10, PATINFO+12
PXCEDATA("NAME"	PATNAME+1*
PXCEDATA("SSN"	PATNAME+5, PATNAME+6
PXCEDATA("SSN_BRIEF"	PATNAME+5, PATNAME+6
PXCEDATE	MAKELIST+1~, MAKELIST+21, MAKELIST+22, MAKELIST+33
PXCEDELF	MAKELIST+26~
PXCEDT	MAKELIST+1~, MAKELIST+4, MAKELIST+9, MAKELIST+11
PXCEHLOC	NEWPAT1+6!, MAKELIST+13
PXCEIEN	MAKELIST+1~, MAKELIST+10, MAKELIST+11, MAKELIST+12, MAKELIST+14, MAKELIST+18, MAKELIST+28, MAKELIST+32, MAKELIST+34
PXCEINDX	PATINFO+7~, PATINFO+11, PATINFO+12
PXCEJDFN	JUSTDFN+6*, JUSTDFNK+1!
PXCEJPAT	SDSALONE+4*, SDKALONE+1, SDKALONE+3!
>> PXCEKEYS	MAKELIST+17, MAKELIST+18
PXCELOC	MAKELIST+1~, MAKELIST+24, MAKELIST+30, MAKELIST+31*, MAKELIST+33
PXCENEWP	NEWPAT2+1~, NEWPAT2+2, NEWPAT2+3, NEWPAT2+5, NEWPAT+1~, NEWPAT+2, NEWPAT+3, NEWPAT+4, NEWPAT+6
PXCEPAT	NEWPAT2+5, NEWPAT1+1, NEWPAT+6, MAKELIST+9, MAKELIST+11, MAKELIST+18, SDSALONE+2, SDSALONE+3, SDSALONE+4, JUSTDFNK+2 , PATKILL+1!
PXCEPRIM	MAKELIST+1~, MAKELIST+14*, MAKELIST+16, MAKELIST+17
PXCESTAT	MAKELIST+1~, MAKELIST+27, MAKELIST+28, MAKELIST+32*, MAKELIST+33
PXCEVA	PATINFO+7~
PXCEVA(1	PATINFO+10, PATINFO+12
>> PXCEVIEW	NEWPAT1+2, NEWPAT1+3*, NEWPAT1+6, NEWPAT+3
PXCEVSIT	MAKELIST+1~, MAKELIST+12*, MAKELIST+13, MAKELIST+18, MAKELIST+20, MAKELIST+21, MAKELIST+23, MAKELIST+25, MAKELIST+27, MAKELIST+30
>> SDAMTYP	NEWPAT1+5*
SDFN	PATINFO+3*, PATKILL+1!
VA	PATNAME+2~
VA("BID"	PATNAME+5
VA("PID"	PATNAME+5
VAERR	PATINFO+7~, PATNAME+2~, PATNAME+5, APPOINT+7~, APPOINT+14
>> VALMBCK	MAKELIST+3*
>> VALMBG	MAKELIST+7*
>> VALMCNT	MAKELIST+8, MAKELIST+19, MAKELIST+33, MAKELIST+34, MAKELIST+35, MAKELIST+36, MAKELIST+39*
VALMHDR	MAKELIST+3!
>> VALMQUIT	NEWPAT+3*
VAPTYP	PATNAME+2~
VAROOT	PATINFO+7~, PATINFO+8*
VASD	APPOINT+7~
VASD("C"	APPOINT+12*
VASD("F"	APPOINT+10*
VASD("T"	APPOINT+9*
VASD("W"	APPOINT+11*
X	JUSTDFN+3~, PATIENT+1~
Y	MAKELIST+20, JUSTDFN+3~, JUSTDFN+6, PATIENT+1~, PATIENT+5, PATINFO+2~, PATINFO+3

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXCEPAT

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: