PXVUTIL ;BIR/ADM - VIMM UTILITY ROUTINE ;04/16/2018
Source file <PXVUTIL.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 |
|---|---|---|
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVIMM - [#9000010.11] | DUPDX+12, DUPDX+13, HRS+3, HRS+4, HRS+8*, DOSAGE+7, DOSAGE+10, OFFER+8, OFFER+9 |
| ^AUPNVSIT - [#9000010] | IMMSEL+14, INST+19 |
| ^AUTTIMM - [#9999999.14] | OFFER+8, OFFER+9, IMMSEL+27 |
| ^AUTTIVIS - [#920] | VIS+2 |
| ^DD(920 | VIS+5, VIS+6 |
| ^PXV(920.4 - [#920.4] | IMMCRSEL+23, IMMCRSEL+27, ARTAPI+9, ARTAPI+10, ARTAPI+11 |
| ^SC - [#44] | INST+22, INST+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| C | VIS+1~, VIS+5*, VIS+6* |
| >> D0 | RSETDA+2 |
| DA | RSETDA+2~*, HRS+3, HRS+4, HRS+8, OFFER+8, OFFER+9 |
| DUZ(2 | INST+26 |
| EVENTDT | IMMSEL~, IMMSEL+17 |
| PXALERGY | ARTAPI~, ARTAPI+8, ARTAPI+9, ARTAPI+10, ARTAPI+11 |
| PXCONTRA | IMMCRSEL+10~, IMMCRSEL+20*, IMMCRSEL+23, IMMCRSEL+27 |
| >> PXD | OFFER+9 |
| PXDA | OFFER+6~, OFFER+9* |
| PXDOSE | DOSAGE+5~, DOSAGE+7*, DOSAGE+8, DOSAGE+9*, DOSAGE+12 |
| PXIEN | DOSAGE~, DOSAGE+6, DOSAGE+7, DOSAGE+10 |
| PXRSLT | IMMCRSEL+10~, IMMCRSEL+12*, IMMCRSEL+14, IMMCRSEL+15, IMMCRSEL+17, IMMCRSEL+18*, IMMCRSEL+23, IMMCRSEL+24*, IMMCRSEL+27*, IMMCRSEL+29 |
| PXUNITS | DOSAGE+5~, DOSAGE+10*, DOSAGE+11*, DOSAGE+12 |
| PXVDATE | VIS+1~, VIS+3*, VIS+4*, VIS+7 |
| PXVDX | DUPDX~, DUPDX+12, DUPDX+13 |
| PXVHIST | IMMSEL+10~, IMMSEL+21*, IMMSEL+24, IMMSEL+27 |
| PXVICR | IMMCRSEL~, IMMCRSEL+14, IMMCRSEL+17, IMMCRSEL+20 |
| PXVIEN | DUPDX~, DUPDX+12, DUPDX+13, INST+10~, INST+13*, INST+17, INST+19, INST+20, INST+22, INST+23 , INST+24 |
| PXVIMM | IMMSEL~, IMMSEL+12, IMMSEL+24, IMMSEL+27, IMMCRSEL~, IMMCRSEL+15, IMMCRSEL+18, IMMCRSEL+24, IMMCRSEL+27 |
| PXVIN | INST~, INST+12, INST+13 |
| PXVINST | INST+10~, INST+14*, INST+17*, INST+20*, INST+23*, INST+24*, INST+26*, INST+27*, INST+29 |
| PXVIS | OFFER+6~, OFFER+7*, OFFER+8*, OFFER+9*, OFFER+10 |
| PXVISIT | IMMSEL~, IMMSEL+13, IMMSEL+14 |
| PXVISITDT | IMMSEL+10~, IMMSEL+17*, IMMSEL+18*, IMMSEL+24 |
| PXVLANG | VIS+1~, VIS+3*, VIS+6*, VIS+7 |
| PXVNAME | VIS+1~, VIS+3*, VIS+7 |
| PXVSC | IMMSEL+10~, IMMSEL+20*, IMMSEL+21 |
| PXVSTAT | VIS+1~, VIS+3*, VIS+5*, VIS+7 |
| PXVTO | INST+10~, INST+12*, INST+16, INST+19, INST+22 |
| PXVX | HRS+2~, HRS+6*, HRS+7*, HRS+8 |
| TEMP | IMMSEL+10~, IMMSEL+14*, IMMSEL+15, IMMSEL+18, IMMSEL+20 |
| TXT | DUPDX+11~!, DUPDX+12, DUPDX+13 |
| TXT(1 | DUPDX+11*, DUPDX+12*, DUPDX+13* |
| TXT(2 | DUPDX+11* |
| U | DOSAGE+7, DOSAGE+10, DOSAGE+11, IMMSEL+18, IMMSEL+20, IMMSEL+27, ARTAPI+10, ARTAPI+11, INST+23 |
| X | VIS+1~, VIS+2*, VIS+3, VIS+4* |
| X1 | HRS+2~, HRS+3*, HRS+7 |
| X2 | HRS+2~, HRS+4*, HRS+7 |
| X3 | HRS+2~, HRS+5*, HRS+7 |
| >> Y | VIS+2, VIS+5*, VIS+6*, VIS+7*, OFFER+8, OFFER+9 |
