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 |
Package | Total | Caller Graph |
---|---|---|
VA Point of Service | 1 | VPSRPC1 |
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 |