PXUTL1 ;ISL/dee - Utility routines used by PCE ;06/14/2018
Source file <PXUTL1.m>
| 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,
|
