VPSRPC12 ;WOIFO/BT - Patient Demographic - Lab Orders;08/14/14 13:07
Source file <VPSRPC12.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | DETAIL^ORWOR AGET^ORWORR |
| Kernel | 1 | $$TRIM^XLFSTR |
| VA FileMan | 1 | $$GET1^DIQ |
| VA Point of Service | 1 | SET^VPSRPC1 |
| 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 |
|---|---|---|
| GETLAB(VPSARR,DFN,DTRANGE) | ;given DFN, returns the patient lab
; OUTPUT ; VPSARR - passed in by reference; this is the output array to store lab order ; INPUT ; DFN - patient DFN (This value must be validated before calling this procedure) ; DTRANGE - FROMDATE:THROUGHDATE |
|
| PREPLST(LST) | ;Prepare Lab Order List
|
|
| STORE(VPSARR,DFN,ORDIEN,LST) | ;Store Lab Orders
; OUTPUT ; VPSARR - passed in by reference; this is the output array to store lab order ; INPUT ; DFN - patient DFN (This value must be validated before calling this procedure) ; ORDIEN - Order Number ; LST - Detail Result Array |
|
| EXT2FM(VAL) | ;External to FM Date -> Oct 20, 2014@17:30 -> 3141020@173
; -- Get Date |
|
| SET(VPSARR,VPSFL,VPSIEN,VPSFLD,VPSDA,VPSDS) | ;Set line item to output array
|
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(100.98 - [#100.98] | GETLAB+16 |
| ^TMP("ORR" | GETLAB+8!, GETLAB+34!, PREPLST+5, PREPLST+6, PREPLST+7 |
| Name | Line Occurrences |
|---|---|
| $$EXT2FM | STORE+21 |
| PREPLST | GETLAB+18 |
| SET | GETLAB+33, STORE+9, STORE+11, STORE+18, STORE+19, STORE+20, STORE+21 |
| STORE | GETLAB+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DAT | PREPLST+1~, PREPLST+2*, PREPLST+5*, PREPLST+6, PREPLST+7, EXT2FM+5~*, EXT2FM+7 |
| DETRES | GETLAB+21~, GETLAB+28, GETLAB+29, GETLAB+31 |
| DFN | GETLAB~, GETLAB+17, GETLAB+28, GETLAB+29, GETLAB+33, STORE~, STORE+8 |
| DTFROM | GETLAB+9~*, GETLAB+11*, GETLAB+13, GETLAB+17 |
| DTRANGE | GETLAB~, GETLAB+9, GETLAB+10 |
| DTTHRU | GETLAB+10~*, GETLAB+12*, GETLAB+13*, GETLAB+17 |
| EXIST | GETLAB+23~*, GETLAB+30*, GETLAB+33 |
| EXTTM | EXT2FM+10~*, EXT2FM+11 |
| FLD | STORE+12~, STORE+16*, STORE+18, STORE+19, STORE+20, STORE+21 |
| FMDT | EXT2FM+7~*, EXT2FM+13 |
| FMTM | EXT2FM+11~*, EXT2FM+13 |
| GROUP | GETLAB+16~*, GETLAB+17 |
| IDX | STORE+8~*, STORE+9, STORE+11, STORE+18, STORE+19, STORE+20, STORE+21 |
| LINE | STORE+12~, STORE+15*, STORE+16, STORE+17 |
| LST | GETLAB+18~, PREPLST~, PREPLST+3!, STORE~, STORE+14, STORE+15 |
| LST( | GETLAB+25, GETLAB+26, PREPLST+7* |
| MAX | PREPLST+1~, PREPLST+6*, PREPLST+7 |
| MTH | EXT2FM+3~*, EXT2FM+4, EXT2FM+7 |
| MTHS | EXT2FM+2~*, EXT2FM+3 |
| ORDIEN | GETLAB+21~, GETLAB+26*, GETLAB+27, GETLAB+28, GETLAB+29, STORE~, STORE+8, STORE+9, STORE+10 |
| ORSLT | GETLAB+17~ |
| SEQ | GETLAB+22~*, GETLAB+25*, GETLAB+26, PREPLST+1~, PREPLST+2*, PREPLST+7*, STORE+12~*, STORE+14*, STORE+15 |
| U | PREPLST+7 |
| VAL | GETLAB+21~, STORE+10~*, STORE+11, STORE+12~, STORE+17*, STORE+18, STORE+19, STORE+20, STORE+21*, EXT2FM~ , EXT2FM+3, EXT2FM+4, EXT2FM+5, EXT2FM+6, EXT2FM+10 |
| VPSARR | GETLAB~, GETLAB+29, GETLAB+33, STORE~, STORE+9, STORE+11, STORE+18, STORE+19, STORE+20, STORE+21 , SET~, SET+1 |
| VPSDA | SET~, SET+1 |
| VPSDS | SET~, SET+1 |
| VPSFL | SET~, SET+1 |
| VPSFLD | SET~, SET+1 |
| VPSIEN | SET~, SET+1 |
| YR | EXT2FM+6~*, EXT2FM+7 |