PXVUTIL ;BIR/ADM - VIMM UTILITY ROUTINE ;04/16/2018
Source file <PXVUTIL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VIS | ; display VIS name with identifiers
|
|
| DUPDX(PXVIEN,PXVDX) | ; extrinsic function to check for duplicate diagnoses
; PXVIEN - Internal Entry Number of the event, pointing to the ; V IMMUNIZATION file (9000010.11) ; PXVDX is the diagnosis entered and used to check for duplicates ; ; this code is called by the input transforms of: ; ^DD(9000010.11,1304,0) & ^DD(9000010.113,.01,0) ; ; RETURNS a 1 if the diagnosis already exists for this ; entry, 0 if not |
|
| RSETDA | ; code needed for the routine AUPNSICD to have the correct value in
; DA, as AUPNSICD is not designed to be called from a multiple. |
|
| HRS | ; called by AH new style x-ref in V IMMUNIZATION file
; set number of hours between administration and reading of results |
|
| DOSAGE(PXIEN) | ; Used to compute Dosage (9000010.11,1312.5)
|
|
| OFFER() | ; called from screen on VIS OFFERED/GIVEN TO PATIENT field (#.01) in
; VIS OFFERED/GIVEN TO PATIENT multiple field (#2) in file #9000010.11 ; ; PXD is defined by immunization edit process in PCE and is the value of ; Y from the DIR call to select an immunization. |
|
| IMMSEL(PXVIMM,PXVISIT,EVENTDT) | ; Immunization screen for V Immunization file
|
|
| IMMCRSEL(PXVICR,PXVIMM) | ; Immunization screen for V Imm Contra/Refusal Events file
|
|
| ARTAPI(PXALERGY) | ; extrinsic function returns whether allergy ; PX*1*216
; Input: ; PXALERGY - (required) Pointer to IMM CONTRAINDICATION REASONS file (#920.4) ; PX*1*216 |
|
| INST(PXVIN) | ; Return Institution based off input
; Input: ; PXVIN - Possible values are: ; "I:X": Institution (#4) IEN #X ; "V:X": Visit (#9000010) IEN #X ; "L:X": Hospital Location (#44) IEN #X |
