©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
GMVRPCHL ;HIOFO/FT-RPC FOR HOSPITAL LOCATION SELECTION ;12/7/05 10:32
Source file <GMVRPCHL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | FIND^DIC CLEAN^DILF |
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
| Registration | 1 | (KVAR,SDA)^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLINIC | ; Return list of active clinics
; DATA = GMVFROM^GMVMAX^GMVDIR ; Where: ; GMVFROM - Value to begin the search (optional). Default is null (i.e., start ; with the first entry in the B x-ref). ; GMVMAX - Maximum number of entries to return. (optional) Default is 100. ; GMVDIR - Direction of search (optional). 1 means forward and -1 means backwards. ; Default is 1. ; Output ; RESULT(n)=piece1^piece2 ; ; where n is a sequential number starting with zero ; piece1 - 44;ien (44, a semi-colon and the entry number) ; piece2 - location name (FILE 44, Field .01) ; ; ex: ; RESULTS(0)=n ; RESULTS(1)=44;123^TEST CLINIC ; ; If no entries are found, then RESULTS(0)="-1^NO ENTRIES FOUND" |
|
| APPT | ; Get patient appointments using SDA^VADPT
; DATA=GMVDFN^GMVFROM^GMVTO^GMVFLAG ; GMVDFN - DFN (required) ; GMVFROM - Start date of search (optional) ; GMVTO - End date of search (optional) ; GMVFLAG - kind of appt flag (optional) ; RESULTS(0)=piece1^piece2 ; RESULTS(n)=piece3^piece4^piece5^piece6^piece7^piece8^piece9^piece10 |
|
| ADMIT | ; return a list of admissions
; DATA=DFN ; RESULTS(0)=piece1 ; RESULTS(n)=piece2^piece3^piece4^piece5^piece6 ; where piece1 - number of records returned ; piece2 - movement date/time (external) ; piece3 - location ien (FILE 44) ; piece4 - location name (FILE 44, Field .01) ; piece5 - type of move ; PIECE6 - movement ien ; n - a sequential number starting with 1 |
|
| RPC(RESULTS,OPTION,DATA) | ; [Procedure] Main RPC call tag
; RPC: [GMV LOCATION SELECT] |
|
| NAME | ; Return list of clinics and wards by name
; DATA=pieceA^pieceB^pieceC ; where pieceA - file number (required) ; pieceB - value to begin search with (required) ; pieceC - field(s) to do the look-up on (optional, defaults to .01 field) |
| RPC Name | Call Tags |
|---|---|
| GMV LOCATION SELECT | RPC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.1 - [#405.1] | ADMIT+20 |
| ^DGPM - [#405] | ADMIT+18 |
| ^DGPM("ATID1" | ADMIT+15, ADMIT+17 |
| ^DIC(42 - [#42] | ADMIT+21 |
| ^SC - [#44] | CLINIC+34, CLINIC+38, CLINIC+39, CLINIC+42 |
| ^SC("B" | CLINIC+26, CLINIC+27, CLINIC+31, CLINIC+33 |
| ^TMP("DIERR" | NAME+23, NAME+24 |
| ^TMP("DILIST" | NAME+26, NAME+32, NAME+33 |
| ^TMP("GMVHLOC" | RPC+8 |
| ^UTILITY("VASD" | APPT+34, APPT+36, APPT+37, APPT+38, APPT+44! |
| Name | Line Occurrences |
|---|---|
| @( | RPC+9 |
| Name | Field # of Occurrence |
|---|---|
| ^(44 | ADMIT+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATA | RPC~, NAME+14*, NAME+15, NAME+18, NAME+19, NAME+20, NAME+22, NAME+27, NAME+33, APPT+23* , APPT+24, ADMIT+13, CLINIC+22 |
| DFN | APPT+22~, APPT+30*, ADMIT+12~, ADMIT+13*, ADMIT+14, ADMIT+15, ADMIT+17 |
| DT | APPT+27, APPT+28, CLINIC+40 |
| GMVACTIV | CLINIC+21~, CLINIC+39*, CLINIC+40 |
| GMVARRAY | APPT+21~ |
| GMVARRAY( | APPT+41*, APPT+46, APPT+48 |
| GMVCNT | APPT+21~, APPT+35*, APPT+40*, APPT+43, APPT+45*, APPT+47*, APPT+48, CLINIC+21~, CLINIC+30*, CLINIC+31 , CLINIC+33, CLINIC+41*, CLINIC+42, CLINIC+46, CLINIC+47 |
| GMVDFN | APPT+21~, APPT+24*, APPT+25*, APPT+26, APPT+30 |
| GMVDIR | CLINIC+21~, CLINIC+22*, CLINIC+24*, CLINIC+26, CLINIC+27, CLINIC+31 |
| GMVE | APPT+21~, APPT+37*, APPT+41 |
| GMVFLAG | APPT+21~, APPT+24*, APPT+29 |
| GMVFLD | NAME+13~, NAME+19*, NAME+20*, NAME+21*, NAME+22 |
| GMVFROM | APPT+21~, APPT+24*, APPT+27*, APPT+30, CLINIC+21~, CLINIC+22*, CLINIC+25, CLINIC+26, CLINIC+27, CLINIC+28* , CLINIC+30 |
| GMVI | APPT+21~, APPT+38*, APPT+39, APPT+41 |
| GMVIEN | CLINIC+21~, CLINIC+32*, CLINIC+33*, CLINIC+34, CLINIC+38, CLINIC+39, CLINIC+42 |
| GMVLAST | CLINIC+21~, CLINIC+26*, CLINIC+27*, CLINIC+28 |
| GMVLOCS | CLINIC+21~ |
| GMVLOOP | APPT+21~, APPT+35*, APPT+36*, APPT+37, APPT+38, APPT+45*, APPT+46*, APPT+48, CLINIC+21~ |
| GMVMAX | CLINIC+21~, CLINIC+22*, CLINIC+23*, CLINIC+31, CLINIC+33 |
| GMVNAME | CLINIC+21~, CLINIC+30*, CLINIC+31*, CLINIC+33 |
| GMVNODE | CLINIC+21~, CLINIC+34*, CLINIC+35, CLINIC+36 |
| GMVSCRN | NAME+13~, NAME+18*, NAME+22 |
| GMVTO | APPT+21~, APPT+24*, APPT+28*, APPT+30 |
| GMVX | CLINIC+21~ |
| HLOC | ADMIT+12~, ADMIT+21*, ADMIT+22 |
| ILST | ADMIT+12~, ADMIT+13*, ADMIT+22*, ADMIT+25 |
| MOV | ADMIT+12~, ADMIT+16*, ADMIT+17*, ADMIT+18, ADMIT+22 |
| MTIM | ADMIT+12~, ADMIT+19*, ADMIT+22 |
| OPTION | RPC~, RPC+9 |
| RESULTS | RPC~, RPC+8*, RPC+10, NAME+16, NAME+24, NAME+27, NAME+33, NAME+35, APPT+26, APPT+32 , APPT+33, APPT+43*, APPT+48, ADMIT+22, ADMIT+25, CLINIC+42, CLINIC+46, CLINIC+47 |
| TIM | ADMIT+12~, ADMIT+13*, ADMIT+15*, ADMIT+17 |
| U | NAME+27, APPT+24, APPT+39, APPT+41, APPT+43, ADMIT+19, ADMIT+20, ADMIT+21, ADMIT+22, CLINIC+22 , CLINIC+35, CLINIC+36, CLINIC+40, CLINIC+42 |
| VAERR | APPT+22~, APPT+32 |
| VASD | APPT+22~ |
| VASD("F" | APPT+30* |
| VASD("T" | APPT+30* |
| VASD("W" | APPT+29* |
| X | NAME+13~, NAME+32*, NAME+33 |
| X0 | ADMIT+12~, ADMIT+18*, ADMIT+19, ADMIT+20, ADMIT+21 |
| XLOC | ADMIT+12~, ADMIT+21*, ADMIT+22 |
| XTYP | ADMIT+12~, ADMIT+20*, ADMIT+22 |
| Name | Field # of Occurrence |
|---|---|
| $T(@OPTION | RPC+9 |