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* |