PXCEPAT ;ISL/dee,ISA/KWP - Creates the List Manager display of visit for a patient ;04/30/99
Source file <PXCEPAT.m>
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 |
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 | ;
|
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 |
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 |
>> | 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* |