GMRVPCE1 ;HIRMFO/RM-PCE Interface code ;8/2/96
Source file <GMRVPCE1.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 |
|---|---|---|
| PCE(GMRVSTOR) | ; Called from VALIDATE^GMRVPCE0 to validate vitals data, or
; STORE^GMRVPCE0 to store vitals data. The variable GMRVSTOR (req.) ; will determine if called from VALIDATE (0), or STORE (1). ; 08/15/2005 KAM/BAY 107096 added 'Q' for error handling ; 09/23/2005 KAM/BAY 113449 add check for invalid HOS/LOC type |
|
| ERROR(PROVIDER,I,CODE,VALUE) | ; Given Provider IEN (PROVIDER), subentry (I),
; Error code (CODE) and Rejected value (VALUE), this procedure will ; set the GMRVDAT("ERROR") array with error. |
|
| ERRTXT | ; Error messages and <NODE>/<PIECE> information for code passed.
|
|
| DATA(VITALS) | ; Process GMRVDAT("VITALS") node. Data in in variable VITALS.
; Present but not passed are GMRVPROV=Provider IEN, GMRVX=subentry ; for GMRVPROV and GMRVSTOR=$S(1:Store data,0:Validate Data). |
|
| DUPCHK | ; This procedure checks for duplicate data. If data is being
; validated, a warning message will be sent, if data is being stored, ; the old record that is duplicate will be entered in error and the ; new data filed. |
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PCE+8 |
| ^GMR(120.5 - [#120.5] | DUPCHK+6, DUPCHK+7 |
| ^GMRD(120.51 - [#120.51] | DATA+21 |
| ^SC - [#44] | PCE+10, PCE+12 |
| ^VA(200 - [#200] | PCE+15 |
| Name | Line Occurrences |
|---|---|
| DATA | PCE+20 |
| DUPCHK | DATA+24 |
| ERROR | PCE+8, PCE+10, PCE+12, PCE+15, DATA+5, DATA+8, DATA+10, DATA+20, DATA+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DUPCHK+7*, DUPCHK+8 |
| %DT | DATA+9*!, DATA+11*, DATA+12! |
| CODE | ERROR~ |
| DUZ | PCE+14 |
| GMRVDA | DUPCHK+5~*, DUPCHK+6*, DUPCHK+7, DUPCHK+12, DUPCHK+13 |
| >> GMRVDAT("ENCOUNTER" | PCE+7, PCE+9, DATA+11 |
| >> GMRVDAT("ERROR" | ERROR+7* |
| >> GMRVDAT("SOURCE" | PCE+14 |
| >> GMRVDAT("VITALS" | PCE+17, PCE+19, PCE+20 |
| >> GMRVDAT("WARNING" | DUPCHK+15* |
| GMRVDFN | PCE+6~, PCE+7*, PCE+8, DATA+27, DUPCHK+6 |
| GMRVDUZ | PCE+6~, PCE+14*, PCE+15, DATA+31, DUPCHK+8, DUPCHK+12 |
| GMRVFDA | DATA+25~, DUPCHK+11~ |
| GMRVFDA(77 | DUPCHK+13* |
| GMRVFDA(88 | DUPCHK+12* |
| GMRVFDA(99 | DATA+26*, DATA+27*, DATA+28*, DATA+29*, DATA+30*, DATA+31*, DATA+32* |
| GMRVHLOC | PCE+6~, PCE+9*, PCE+10, PCE+12, DATA+30, DUPCHK+8 |
| GMRVMDT | DATA+4~, DATA+6~, DATA+9*, DATA+10, DATA+12*, DATA+26, DUPCHK+6 |
| GMRVMTYP | DATA+4~, DATA+7*, DATA+8, DATA+16, DATA+17, DATA+18, DATA+20, DATA+21*, DATA+23, DATA+28 , DUPCHK+6 |
| GMRVPROV | PCE+6~, PCE+16*, PCE+17*, PCE+19, PCE+20, DATA+5, DATA+8, DATA+10, DATA+20, DATA+23 , DUPCHK+15 |
| GMRVRATE | DATA+4~, DATA+6~, DATA+14*, DATA+20, DATA+32, DUPCHK+8 |
| GMRVSTOR | PCE~, ERROR+4, DATA+24, DUPCHK+9, DUPCHK+15 |
| GMRVTYP | DATA+6~ |
| GMRVUNIT | DATA+4~, DATA+6~, DATA+15*, DATA+16*, DATA+17*, DATA+18*, DATA+20 |
| GMRVX | PCE+6~, PCE+18*, PCE+19*, PCE+20, DATA+5, DATA+8, DATA+10, DATA+20, DATA+23, DUPCHK+15 |
| I | ERROR~, ERROR+7 |
| MSG | ERROR+5~, ERROR+6*, ERROR+7 |
| NODE | ERROR+5~, ERROR+6*, ERROR+7 |
| PIECE | ERROR+5~, ERROR+6*, ERROR+7 |
| PROVIDER | ERROR~, ERROR+7 |
| VALUE | ERROR~, ERROR+7 |
| VITALS | DATA~, DATA+5, DATA+7, DATA+9, DATA+14, DATA+15, DATA+23 |
| X | ERROR+5~, ERROR+6*, DATA+9*, DATA+11* |
| >> Y | DATA+9, DATA+12 |
| Name | Field # of Occurrence |
|---|---|
| $T(ERRTXT+CODE | ERROR+6 |
