GMVGETD ;HOIFO/YH,FT-EXTRACTS WARD/ROOM-BED/PT AND PT VITALS ;5/10/07
Source file <GMVGETD.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 |
| Package | Total | Caller Graph |
|---|---|---|
| General Medical Record - Vitals | 6 | GMV CLOSEST READING GMV EXTRACT REC GMV LATEST VM GMV ROOM/BED GMV WARD LOCATION GMV WARD PT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETVM(RESULT,GMRVDATA) | ;GMV EXTRACT REC [RPC entry point]
; Returns data particular patient and date/time range in RESULT ; GMRVDATA = DFN^END DATE VITAL TAKEN^VITAL TYPE (OPTIONAL)^START DATE VITAL TAKEN |
|
| GETLAT(RESULT,GMRDFN) | ;GMV LATEST VM [RPC entry point]
; RETURNS THE LATEST VITALS/MEASUREMENTS FOR A GIVEN PATIENT(GMRDFN) ; IN RESULT ARRAY. |
|
| WARDLOC(RESULT,DUMMY) | ;GMV WARD LOCATION [RPC entry point]
|
|
| WARDPT(RESULT,GMRWARD) | ;GMV WARD PT [RPC entry point]
|
|
| ROOMBED(RESULT,GMRWARD) | ;GMV ROOM/BED [RPC entry point]
|
|
| QUIT | ||
| CLOSEST(RESULT,GMVDFN,GMVDT,GMVT,GMVFLAG) | ; GMV CLOSEST READING [RPC entry point]
; Get nearest reading to date(/time) provided ; Input: GMVDFN - DFN (required) ; GMVDT - FileMan date/time (optional) ; Default is NOW ; GMVT - Vital Type abbreviation, FILE 120.51, Field 1 (required) ; GMVFLAG - Where to look (optional) ; 0 = either before or after GMVDT (default) ; 1 = before GMVDT ; 2 = after GMVDT ; Output: RESULT - piece1^piece2 ; where piece1 = date/time of reading (FileMan internal format) ; piece2 = reading ; If no records found piece 1 = -2 ; and piece 2 = message text ; If an error was encountered piece1 = -1 ; and piece2 = error message |
|
| FIND(GMVDFN,GMVTI,GMVSDT,GMVX,GMVDIR) | ; Get nearest record from GMVSDT date/time
; Input: GMVDFN - DFN (required) ; GMVTI - Vital Type (120.51) IEN (required) ; GMVSDT - FileMan date/time (optional) ; Default is NOW ; GMVX - Return numeric values only or all values including ; text (optional) ; 0 = numeric values only (default) ; 1 = all values including text ; GMVDIR - direction of search (required) ; -1 = look before GMVSDT ; 1 = look after GMVSDT ; Output: GMVY - piece1^piece2 ; where piece1 = date/time of reading (FileMan internal format) ; piece2 = reading ; If an error was encountered piece1 = -1 ; and piece2 = error message |
| RPC Name | Call Tags |
|---|---|
| GMV EXTRACT REC | GETVM |
| GMV WARD LOCATION | WARDLOC |
| GMV WARD PT | WARDPT |
| GMV LATEST VM | GETLAT |
| GMV ROOM/BED | ROOMBED |
| GMV CLOSEST READING | CLOSEST |
| FileNo | Call Tags |
|---|---|
| ^DIC(42 - [#42] | LIST^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.4 - [#405.4] | ROOMBED+5, ROOMBED+6 |
| ^DIC(42 - [#42] | WARDLOC+12, WARDLOC+14, ROOMBED+2, ROOMBED+4 |
| ^DPT - [#2] | WARDPT+6, WARDPT+9 |
| ^DPT("CN" | WARDLOC+12, WARDPT+2, WARDPT+5 |
| ^GMRD(120.51 - [#120.51] | GETVM+9 |
| ^PXRMINDX(120.5 | CLOSEST+22, CLOSEST+27, FIND+25, FIND+28, FIND+30 |
| ^TMP($J | GETVM+5!, GETVM+11*, GETVM+12, GETLAT+3!, GETLAT+4, WARDLOC+2!, WARDLOC+7, WARDLOC+9, WARDLOC+10, WARDLOC+12* , WARDLOC+14*, WARDLOC+15!, WARDPT+4!, WARDPT+15*, WARDPT+18, ROOMBED+3!, ROOMBED+4*, ROOMBED+11*, QUIT |
| Name | Line Occurrences |
|---|---|
| $$FIND | CLOSEST+30, CLOSEST+34 |
| QUIT | ROOMBED+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | GETVM+3~, GETVM+4*, WARDPT+3~, WARDPT+5*, WARDPT+6, WARDPT+8, WARDPT+9, WARDPT+11*, WARDPT+12*, WARDPT+14 , WARDPT+15 |
| DFN1 | WARDPT+3~, WARDPT+13*, WARDPT+14*, WARDPT+15 |
| DUMMY | WARDLOC~, WARDLOC+3*, WARDLOC+4*, WARDLOC+5*, WARDLOC+11, WARDLOC+13 |
| GINDEX | WARDLOC+2~, WARDLOC+7*, WARDLOC+8 |
| GMR | WARDLOC+2~, WARDLOC+9*, WARDLOC+12*, WARDLOC+14* |
| GMRDFN | GETLAT~, GETLAT+3 |
| GMRDT | GETVM+13! |
| GMRVARY | GETVM+13! |
| GMRVDATA | GETVM~, GETVM+4 |
| GMRVITY | GETVM+13! |
| GMRVX | GETVM+13! |
| GMRWARD | WARDLOC+2~, WARDLOC+10*, WARDLOC+12, WARDLOC+14, WARDPT~, WARDPT+2, WARDPT+5, ROOMBED~, ROOMBED+2, ROOMBED+4 |
| GMRWARD(1 | WARDLOC+10*, WARDLOC+12, WARDLOC+14 |
| GMRZZ | GETVM+13! |
| GMVADIFF | CLOSEST+18~, CLOSEST+55*, CLOSEST+56, CLOSEST+57, CLOSEST+58 |
| GMVADT | CLOSEST+18~, CLOSEST+28*, CLOSEST+35*, CLOSEST+41, CLOSEST+43, CLOSEST+45, CLOSEST+47, CLOSEST+50, CLOSEST+51, CLOSEST+53 , CLOSEST+55, CLOSEST+57, CLOSEST+58 |
| GMVARR | FIND+18~, FIND+32, FIND+34 |
| GMVARR(0 | FIND+35*, FIND+36, FIND+37, FIND+39, FIND+41, FIND+42 |
| GMVAVAL | CLOSEST+18~, CLOSEST+28*, CLOSEST+35*, CLOSEST+42, CLOSEST+43, CLOSEST+51, CLOSEST+52, CLOSEST+57, CLOSEST+58 |
| GMVBDIFF | CLOSEST+18~, CLOSEST+54*, CLOSEST+56, CLOSEST+57, CLOSEST+58 |
| GMVBDT | CLOSEST+18~, CLOSEST+28*, CLOSEST+31*, CLOSEST+37, CLOSEST+39, CLOSEST+45, CLOSEST+47, CLOSEST+48, CLOSEST+50, CLOSEST+53 , CLOSEST+54, CLOSEST+56 |
| GMVBVAL | CLOSEST+18~, CLOSEST+28*, CLOSEST+31*, CLOSEST+38, CLOSEST+39, CLOSEST+48, CLOSEST+49, CLOSEST+56 |
| GMVDATA | CLOSEST+18~, CLOSEST+28*, CLOSEST+30*, CLOSEST+31, CLOSEST+32*, CLOSEST+34*, CLOSEST+35 |
| GMVDFN | CLOSEST~, CLOSEST+19*, CLOSEST+21, CLOSEST+22, CLOSEST+27, CLOSEST+30, CLOSEST+34, FIND~, FIND+19*, FIND+24 , FIND+25, FIND+28, FIND+30 |
| GMVDIR | FIND~, FIND+19*, FIND+20*, FIND+21, FIND+28 |
| GMVDT | CLOSEST~, CLOSEST+19*, CLOSEST+23*, CLOSEST+30, CLOSEST+34, CLOSEST+54, CLOSEST+55 |
| GMVEND | GETVM+3~, GETVM+4*, GETVM+6*, GETVM+7* |
| GMVFLAG | CLOSEST~, CLOSEST+19*, CLOSEST+20*, CLOSEST+29, CLOSEST+33, CLOSEST+36, CLOSEST+40, CLOSEST+44, FIND+18~, FIND+27* , FIND+28, FIND+30, FIND+39*, FIND+42* |
| GMVIEN | FIND+18~, FIND+27*, FIND+29*, FIND+30*, FIND+31, FIND+32, FIND+33, FIND+34 |
| GMVPAT | WARDPT+3~, WARDPT+7*, WARDPT+8, WARDPT+9 |
| GMVSDT | FIND~, FIND+19*, FIND+26*, FIND+28*, FIND+30 |
| GMVSTART | GETVM+3~, GETVM+4*, GETVM+8* |
| GMVT | CLOSEST~, CLOSEST+19*, CLOSEST+24, CLOSEST+25 |
| GMVTI | CLOSEST+18~, CLOSEST+25*, CLOSEST+26, CLOSEST+27, CLOSEST+30, CLOSEST+34, FIND~, FIND+19*, FIND+22, FIND+28 , FIND+30 |
| GMVTMP | ROOMBED+3~ |
| GMVTMP( | ROOMBED+6*, ROOMBED+10, ROOMBED+11 |
| GMVTYPE | GETVM+3~, GETVM+4*, GETVM+9, GETVM+11 |
| GMVTYPE(1 | GETVM+9*, GETVM+11 |
| GMVX | FIND~, FIND+19*, FIND+23*, FIND+38, FIND+40 |
| GMVY | FIND+18~, FIND+27*, FIND+39*, FIND+42*, FIND+43*, FIND+44 |
| GN | WARDLOC+2~, WARDLOC+9*, WARDLOC+10, WARDPT+3~, WARDPT+5*, WARDPT+15*, ROOMBED+3~, ROOMBED+4*, ROOMBED+9*, ROOMBED+11* |
| GROOM | ROOMBED+3~, ROOMBED+4*, ROOMBED+5*, ROOMBED+6, ROOMBED+9*, ROOMBED+10*, ROOMBED+11 |
| GWARD | ROOMBED+3~, ROOMBED+4*, ROOMBED+5 |
| OUT | WARDPT+3~, WARDPT+10 |
| OUT( | WARDPT+9*, WARDPT+12, WARDPT+14, WARDPT+15 |
| RESULT | GETVM~, GETVM+12*, GETLAT~, GETLAT+4*, WARDLOC~, WARDLOC+15*, WARDPT~, WARDPT+18*, ROOMBED~, QUIT* , CLOSEST~, CLOSEST+21*, CLOSEST+22*, CLOSEST+24*, CLOSEST+26*, CLOSEST+27*, CLOSEST+37*, CLOSEST+38*, CLOSEST+39*, CLOSEST+41* , CLOSEST+42*, CLOSEST+43*, CLOSEST+46*, CLOSEST+48*, CLOSEST+49*, CLOSEST+51*, CLOSEST+52*, CLOSEST+56*, CLOSEST+57*, CLOSEST+58* |
| U | GETVM+4, WARDLOC+12, WARDLOC+14, CLOSEST+31, CLOSEST+35, CLOSEST+39, CLOSEST+43, CLOSEST+48, CLOSEST+51, CLOSEST+56 , CLOSEST+57, CLOSEST+58, FIND+36, FIND+37, FIND+39, FIND+41, FIND+42 |
