PXUTL1 ;ISL/dee - Utility routines used by PCE ;06/14/2018
Source file <PXUTL1.m>
| 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 |
|---|---|---|
| EXTTEXT(IEN,REQUIRED,FILE,FIELD1,FIELD2) | ;Returns the external form.
|
|
| PRIMVPRV(PXUTVST) | ;Returns the primary provider if there is one
; for the passed visit otherwise returns 0. |
|
| PRIMVPOV(PXUTVST) | ;Returns the primary diagnosis if there is one
; for the passed visit otherwise returns 0. |
|
| PRIMSEC(PXUTVST,PXUTAUPN,PXUTNODE,PXUPIECE) | ;Returns IEN of the primary one
; if there is one for the passed visit otherwise returns 0. ; Parameters: ; PXUTVST Pointer to the visit ; PXUTAUPN V-File global e.g. "^AUPNVPRV" ; PXUTNODE The node that the Primary/Secondary field is on ; PXUPIECE The piece of the Primary/Secondary field |
|
| DISPOSIT(PXUTLDFN,PXUTLDT,PXUTVIEN) | ;Checks to see if a visit is a disposition
|
|
| APPOINT(PXUTLDFN,PXUTLDT,HLOC) | ;Returns 1 if the patient has an appointment
|
|
| VST2APPT(VISIT) | ;Is this visit related to an appointment
|
|
| VSTAPPT(PXUTLPAT,PXUTLDT,PXUTLLOC,PXUTLVST) | ;Returns 1 if the visit is being pointed to by an
; appointment otherwise 0. |
|
| APPT2VST(PXUTLPAT,PXUTLDT,HLOC) | ;Returns IEN of visit that the related
|
|
| DXNARR(CODEIEN,PXUTLDT) | ;Returns the versioned full text from file #80,
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVPOV - [#9000010.07] | PRIMVPOV+4 |
| ^AUPNVPRV - [#9000010.06] | PRIMVPRV+4 |
| ^AUPNVSIT - [#9000010] | VST2APPT+7 |
| ^DPT - [#2] | DISPOSIT+1, APPOINT+2, VSTAPPT+2, APPT2VST+2 |
| ^SCE - [#409.68] | DISPOSIT+1, VSTAPPT+2, APPT2VST+2 |
| Name | Line Occurrences |
|---|---|
| $$PRIMSEC | PRIMVPRV+3, PRIMVPOV+3 |
| $$VSTAPPT | VST2APPT+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODEIEN | DXNARR~, DXNARR+3, DXNARR+5 |
| DA | EXTTEXT+18~, EXTTEXT+23*, EXTTEXT+27, EXTTEXT+28 |
| DIC | EXTTEXT+18~, EXTTEXT+20* |
| DIQ | EXTTEXT+18~, EXTTEXT+24* |
| DIQ(0 | EXTTEXT+25* |
| DR | EXTTEXT+18~, EXTTEXT+21*, EXTTEXT+22* |
| DT | DXNARR+4 |
| FIELD1 | EXTTEXT~, EXTTEXT+19, EXTTEXT+21, EXTTEXT+27 |
| FIELD2 | EXTTEXT~, EXTTEXT+22, EXTTEXT+28 |
| FILE | EXTTEXT~, EXTTEXT+19, EXTTEXT+20, EXTTEXT+27, EXTTEXT+28 |
| HLOC | APPOINT~, APPOINT+2, APPT2VST~, APPT2VST+2 |
| IEN | EXTTEXT~, EXTTEXT+23 |
| NARR | DXNARR+2~, DXNARR+5*, DXNARR+6 |
| PXCATEMP | PRIMVPRV+2~, PRIMVPRV+3*, PRIMVPRV+4, PRIMVPOV+2~, PRIMVPOV+3*, PRIMVPOV+4 |
| PXCOD | DXNARR+2~ |
| PXLDX | DXNARR+2~ |
| PXNO | DXNARR+2~ |
| PXTEXT | EXTTEXT+18~, EXTTEXT+27*, EXTTEXT+28*, EXTTEXT+29*, EXTTEXT+30*, EXTTEXT+31 |
| PXUPIECE | PRIMSEC~, PRIMSEC+10 |
| PXUTAUPN | PRIMSEC~, PRIMSEC+10 |
| PXUTDIQ1 | EXTTEXT+18~ |
| PXUTDIQ1( | EXTTEXT+27, EXTTEXT+28 |
| PXUTLDFN | DISPOSIT~, DISPOSIT+1, APPOINT~, APPOINT+2 |
| PXUTLDT | DISPOSIT~, DISPOSIT+1, APPOINT~, APPOINT+2, VSTAPPT~, VSTAPPT+2, APPT2VST~, APPT2VST+2, DXNARR~, DXNARR+4* , DXNARR+5 |
| PXUTLLOC | VSTAPPT~, VSTAPPT+2 |
| PXUTLPAT | VSTAPPT~, VSTAPPT+2, APPT2VST~, APPT2VST+2 |
| PXUTLVST | VSTAPPT~, VSTAPPT+2 |
| PXUTNODE | PRIMSEC~ |
| PXUTPRIM | PRIMSEC+8~, PRIMSEC+9*, PRIMSEC+10*, PRIMSEC+11 |
| PXUTVIEN | DISPOSIT~, DISPOSIT+1 |
| PXUTVST | PRIMVPRV~, PRIMVPRV+3, PRIMVPOV~, PRIMVPOV+3, PRIMSEC~ |
| REQUIRED | EXTTEXT~, EXTTEXT+29, EXTTEXT+30 |
| U | DXNARR+6 |
| VISIT | VST2APPT~, VST2APPT+7, VST2APPT+9 |
| VISIT0 | VST2APPT+6~, VST2APPT+7*, VST2APPT+8, VST2APPT+9 |
| X | EXTTEXT+18~ |
| Y | EXTTEXT+18~ |
