©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMVDCSAV ;HOIFO/DAD,FT-VITALS COMPONENT: SAVE DATA ; 5/8/08
Source file <GMVDCSAV.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | UPDATE^DIE CLEAN^DILF |
| General Medical Record - Vitals | 1 | ADDQUAL^GMVGETQ |
| Kernel | 1 | ($$FMADD,$$NOW)^XLFDT |
| Package | Total | Caller Graph |
|---|---|---|
| General Medical Record - Vitals | 1 | GMVDCRPC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKDT(GMVDT,GMVSAV) | ;Check if there is a vital entered for that date and time.
; If there is then add one second to the date/time until you find a ; date/time not used. |
|
| QUALTWO | ; Add a new entry to FILE 120.5
|
|
| FMERROR | ;
|
|
| MSG(X) | ; *** Add a line to the message array ***
|
|
| EN1(RESULT,GMVDATA) | ; GMV ADD VM [RPC entry point]
; Saves vitals data ; GMVDATA has the following data: ; piece1^piece2^piece3^piece4^piece5 ; where: ; piece1 = date/time in FileMan internal format ; piece2 = patient number from FILE 2 (i.e., DFN) ; piece3 = vital type, a semi-colon, the reading, a semi-colon, and ; oxygen flow rate and percentage values [optional] (e.g., ; 21;99;1 l/min 90%) ; piece4 = hospital location (FILE 44) pointer value ; piece5 = FILE 200 user number (i.e., DUZ), an asterisk, and the ; qualifier (File 120.52) internal entry numbers separated by ; colons (e.g., 547*50:65) ; Example: ; > S GMVDATA="3051011.1635^134^1;120/80;^67^87*2:38:50:75" ; > D EN1^GMVDCSAV(.RESULT,GMVDATA) |
| RPC Name | Call Tags |
|---|---|
| GMV ADD VM | EN1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PXRMINDX(120.5 | CHKDT+6 |
| ^TMP("DIERR" | FMERROR+1, FMERROR+4, FMERROR+6, FMERROR+7 |
| Name | Line Occurrences |
|---|---|
| $$CHKDT | QUALTWO+9 |
| FMERROR | QUALTWO+22 |
| MSG | FMERROR+7 |
| QUALTWO | EN1+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| GMVCNT | EN1+18~, QUALTWO+23*, QUALTWO+28* |
| GMVDATA | EN1~, QUALTWO+2, QUALTWO+24 |
| GMVDFN | EN1+18~, QUALTWO+7*, QUALTWO+14, CHKDT+6 |
| GMVDT | CHKDT~, CHKDT+6, CHKDT+7*, CHKDT+9 |
| GMVDTDUN | EN1+18~, QUALTWO+3*, QUALTWO+5*, QUALTWO+6*, QUALTWO+9*, QUALTWO+13 |
| GMVDTENT | EN1+18~, QUALTWO+10*, QUALTWO+16 |
| GMVENTBY | EN1+18~, QUALTWO+12*, QUALTWO+18 |
| GMVER1 | FMERROR+2~, FMERROR+3*, FMERROR+4*, FMERROR+6, FMERROR+7 |
| GMVER2 | FMERROR+2~, FMERROR+5*, FMERROR+6*, FMERROR+7 |
| GMVFDA | EN1+18~, QUALTWO+1! |
| GMVFDA( | QUALTWO+13*, QUALTWO+14*, QUALTWO+15*, QUALTWO+16*, QUALTWO+17*, QUALTWO+18*, QUALTWO+19*, QUALTWO+20* |
| GMVFLAG | CHKDT+3~, CHKDT+4*, CHKDT+5, CHKDT+6* |
| GMVHOSPL | EN1+18~, QUALTWO+11*, QUALTWO+17 |
| GMVIEN | EN1+19~, QUALTWO+21* |
| GMVIEN(1 | QUALTWO+29 |
| GMVLOOP | EN1+19~, QUALTWO+25*, QUALTWO+26 |
| GMVMSG | EN1+19~, MSG+1*, MSG+2 |
| GMVQUALS | EN1+19~, QUALTWO+24*, QUALTWO+25, QUALTWO+26 |
| GMVRES | EN1+19~, QUALTWO+29 |
| GMVSAV | CHKDT~, CHKDT+6 |
| GMVVMEAS | EN1+19~, QUALTWO+2*, QUALTWO+3, QUALTWO+7, QUALTWO+8, QUALTWO+11, QUALTWO+12 |
| GMVVQUAL | EN1+19~, QUALTWO+26*, QUALTWO+27, QUALTWO+29 |
| GMVVTYP | EN1+19~, QUALTWO+8*, QUALTWO+9, QUALTWO+15, QUALTWO+19, QUALTWO+20 |
| RESULT | EN1~ |
| RESULT( | MSG+1*, MSG+2* |
| RESULT(0 | MSG+3* |
| X | MSG~, MSG+2, MSG+3 |