PXCEPAT ;ISL/dee,ISA/KWP - Creates the List Manager display of visit for a patient ; 6/3/03 10:47am ; Compiled January 5, 2007 14:12:43
Source file <PXCEPAT.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 5 | (KILL,START)^AUPNPAT SETDATES^PXCE $$DATE^PXCEDATE MAKELIST^PXCENEW $$DISPOSIT^PXUTL1 |
| VA FileMan | 4 | ^DIC YN^DICN $$EXTERNAL^DILFD ^DIR |
| List Manager | 3 | CHGCAP^VALM FULL^VALM1 CLEAN^VALM10 |
| Registration | 2 | (2,ELIG,SDA)^VADPT PID^VADPT6 |
| Scheduling | 1 | $$STATUS^SDPCE |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEWPAT2 | ;Entry point of changing patient from Update Encounter
|
|
| NEWPAT1 | ;Entry point for initial selection of patient
|
|
| NEWPAT | ; -- init variables and list array
|
|
| MAKELIST | ;
|
|
| SDSALONE | ;Get the patient for standalone from the appointment/hospital
|
|
| SDKALONE | ;Kill the patient info if it was created above
|
|
| JUSTDFN | ;Just set DFN for other packages.
|
|
| JUSTDFNK | ;Kill DFN if it was set above
|
|
| PATIENT(PXCEDATA) | ; Select a patient
|
|
| PAT1 | ||
| PATINFO(PXCEDATA) | ;
|
|
| DTHINFO | ;DEATH WARNING
|
|
| PATNAME(PXCEDATA) | ;
|
|
| PATKILL | ;
|
|
| APPOINT(DFN,DATETIME,HOSLOC) | ;See if there is an appointment.
|
|
| QAPPOINT |
| Name | Field # of Occurrence |
|---|---|
| KILL^AUPNPAT | PATKILL+3 |
| START^AUPNPAT | PATINFO+11 |
| ^DIC | JUSTDFN+5, PATIENT+3 |
| YN^DICN | PAT1 |
| $$EXTERNAL^DILFD | MAKELIST+27 |
| ^DIR | PAT1+6, DTHINFO+3 |
| SETDATES^PXCE | NEWPAT1+4 |
| $$DATE^PXCEDATE | MAKELIST+21 |
| MAKELIST^PXCENEW | NEWPAT+8 |
| $$DISPOSIT^PXUTL1 | MAKELIST+18 |
| $$STATUS^SDPCE | MAKELIST+32 |
| 2^VADPT | PAT1+4, DTHINFO+1 |
| ELIG^VADPT | PATINFO+15 |
| SDA^VADPT | APPOINT+13 |
| PID^VADPT6 | PATNAME+4 |
| CHGCAP^VALM | MAKELIST+2 |
| FULL^VALM1 | PATIENT+2 |
| CLEAN^VALM10 | MAKELIST+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| 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! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | PAT1*, PAT1+1 |
| DA | JUSTDFN+3~, PATIENT+1~ |
| DATETIME | APPOINT~, APPOINT+9, APPOINT+10 |
| DFN | JUSTDFN+2, JUSTDFN+6*, JUSTDFNK+1!, JUSTDFNK+2*, PATIENT+1~, PAT1+3, PAT1+4*, PATINFO+2*, PATNAME+2~, PATNAME+3* , PATKILL+1!, APPOINT~ |
| DIC | JUSTDFN+3~, JUSTDFN+4*, PATIENT+1~, PATIENT+3* |
| DIC(0 | JUSTDFN+4*, PATIENT+3* |
| DIR | PAT1+4~, DTHINFO+1~ |
| DIR("A" | PAT1+5*, PAT1+6*, DTHINFO+2*, DTHINFO+3* |
| DIR(0 | PAT1+5*, DTHINFO+2* |
| >> DIRUT | NEWPAT1+1, NEWPAT+7, PAT1+1, PAT1+4, PATINFO+4 |
| >> FSEL | PATINFO+3, PATINFO+4 |
| HL | APPOINT+7~, APPOINT+14*, APPOINT+16*, APPOINT+17*, QAPPOINT+1 |
| HOSLOC | APPOINT~, APPOINT+12 |
| INDEX | APPOINT+7~, APPOINT+15*, APPOINT+16 |
| ORVP | PATINFO+2*, PATKILL+1! |
| >> PXCE9BEG | MAKELIST+9 |
| >> PXCE9END | MAKELIST+4 |
| >> PXCECAT | PATINFO+3 |
| PXCEDATA | PATIENT~, PATIENT+4*, PAT1+1*, PAT1+4*, PATINFO~, PATINFO+1, PATINFO+2, PATINFO+9, PATINFO+12, PATNAME~ , PATNAME+1, PATNAME+3 |
| PXCEDATA("ELIG" | PATINFO+16*, PATINFO+18* |
| 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+13~, PATINFO+17*, PATINFO+18* |
| 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+13~ |
| PXCEVA(1 | PATINFO+16, PATINFO+18 |
| >> 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+2*, PATKILL+1! |
| VA | PATNAME+2~ |
| VA("BID" | PATNAME+5 |
| VA("PID" | PATNAME+5 |
| VADM | PATKILL+1! |
| VADM(6 | PAT1+4, DTHINFO+1 |
| VADM(7 | PAT1+6, DTHINFO+3 |
| VAEL | PATKILL+1! |
| VAERR | PATINFO+13~, 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* |
| VALMSG | PAT1+3*, PATKILL+1! |
| VAPTYP | PATNAME+2~ |
| VAROOT | PATINFO+13~, PATINFO+14* |
| 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+4, PAT1, PAT1+1*, PAT1+2, PAT1+4, PATINFO+8~ , PATINFO+9* |
