VPSPDO2M ;DALOI/KML,WOIFO/BT - PDO OUTPUT DISPLAY - MEDS ;11/20/11 15:30
Source file <VPSPDO2M.m>
Package | Total | Call Graph |
---|---|---|
VA Point of Service | 2 | ($$GETDFN,$$GETLSTMR,ADDBLANK,ADDCJ,ADDPDO,ADDUNDLN,GETFORMT)^VPSOBJ $$SETFLD^VPSPUTL1 |
Kernel | 1 | $$FMDIFF^XLFDT |
National Drug File | 1 | $$PROD2^PSNAPIS |
Outpatient Pharmacy | 1 | RX^PSO52API |
Pharmacy Data Management | 1 | DATA^PSS50 |
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 |
---|---|---|
MEDCHNG(OREF,SAVMEDS) | ;
; INPUT ; OREF : Object Reference for the VPS PDO object (contains all properties) ; SAVMEDS : array represents the list of active and past medications. ; Will be used to determine if any changes have occurred since last MRAR. ; ; per MRAR requirements for CHANGES SINCE last MRAR a change to the patient's medication profile is: ; RX status changes since last MRAR or if a medication was added to the patient's medication profile |
|
GET52(OREF,RXDATA) | ; get medication profile from PRESCRIPTION file (#52)
; INPUT ; OREF : Object Reference for the VPS PDO object (contains all properties) ; RXDATA : array of data extracted from the temporary global array produced by RX^PSO52API |
|
BLD52(OREF,RXDATA) | ;
; INPUT ; RXDATA - array of data extracted from the temporary global array produced by RX^PSO52API ; RXDATA : array of data extracted from the temporary global array produced by RX^PSO52API |
|
GTDRGNM(DRUG) | ; Get Drug Name
; INPUT ; DRUG : Drug IEN ^ local drug name (file #52) ; RETURN ; DRUG NAME |
Name | Field # of Occurrence |
---|---|
$$PROD2^PSNAPIS | GTDRGNM+22 |
RX^PSO52API | GET52+12, GET52+14 |
DATA^PSS50 | GTDRGNM+20 |
$$GETDFN^VPSOBJ | GET52+7, BLD52+5 |
$$GETLSTMR^VPSOBJ | GET52+8, BLD52+7 |
ADDBLANK^VPSOBJ | MEDCHNG+13, MEDCHNG+40 |
ADDCJ^VPSOBJ | MEDCHNG+15 |
ADDPDO^VPSOBJ | MEDCHNG+24, MEDCHNG+28, MEDCHNG+31, MEDCHNG+34, MEDCHNG+38, MEDCHNG+42, MEDCHNG+44, MEDCHNG+46 |
ADDUNDLN^VPSOBJ | MEDCHNG+14 |
GETFORMT^VPSOBJ | MEDCHNG+9 |
$$SETFLD^VPSPUTL1 | MEDCHNG+23, MEDCHNG+26, MEDCHNG+27, MEDCHNG+29, MEDCHNG+30, MEDCHNG+32, MEDCHNG+33, MEDCHNG+36, MEDCHNG+37, MEDCHNG+41 , MEDCHNG+43, MEDCHNG+45 |
$$FMDIFF^XLFDT | BLD52+23 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP($J | GET52+9!, BLD52+6, BLD52+10, BLD52+11, BLD52+13, BLD52+14, BLD52+15, BLD52+16, BLD52+17, BLD52+18 , BLD52+20, BLD52+22, GTDRGNM+19!, GTDRGNM+21, GTDRGNM+25! |
Name | Line Occurrences |
---|---|
$$GTDRGNM | BLD52+14 |
BLD52 | GET52+13, GET52+15 |
GET52 | MEDCHNG+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ACTION | MEDCHNG+21*, MEDCHNG+22*, MEDCHNG+25, MEDCHNG+33, MEDCHNG+35, MEDCHNG+37 |
COL | MEDCHNG+9~ |
COL("DAYS SUP | PLIED" , MEDCHNG+30 |
COL("FILLED" | MEDCHNG+32 |
COL("MEDNAME" | MEDCHNG+23 |
COL("MEDS ACT | ION" , MEDCHNG+33, MEDCHNG+37 |
COL("PENDING | STMT" , MEDCHNG+41, MEDCHNG+43, MEDCHNG+45 |
COL("PROVIDER" | MEDCHNG+29 |
COL("REFILLS" | MEDCHNG+27 |
COL("SIG" | MEDCHNG+26, MEDCHNG+36 |
DRUG | GTDRGNM~, GTDRGNM+16, GTDRGNM+18 |
DRUGIEN | GTDRGNM+16~*, GTDRGNM+17, GTDRGNM+19, GTDRGNM+20, GTDRGNM+21, GTDRGNM+25 |
DRUGNM | GTDRGNM+18~*, GTDRGNM+24*, GTDRGNM+26 |
DT | GET52+14, BLD52+23 |
FILLED | BLD52+11~*, BLD52+12, BLD52+20*, BLD52+23 |
LMRARDT | GET52+8~*, GET52+14, BLD52+7~*, BLD52+12 |
OREF | MEDCHNG~, MEDCHNG+9, MEDCHNG+10, MEDCHNG+13, MEDCHNG+14, MEDCHNG+15, MEDCHNG+24, MEDCHNG+28, MEDCHNG+31, MEDCHNG+34 , MEDCHNG+38, MEDCHNG+40, MEDCHNG+42, MEDCHNG+44, MEDCHNG+46, GET52~, GET52+7, GET52+8, GET52+13, GET52+15 , BLD52~, BLD52+5, BLD52+7 |
PTIEN | GET52+7~*, GET52+12, GET52+14, BLD52+5~*, BLD52+6, BLD52+10, BLD52+11, BLD52+13, BLD52+14, BLD52+15 , BLD52+16, BLD52+17, BLD52+18, BLD52+20, BLD52+22 |
REFNUM | BLD52+18~*, BLD52+19 |
RXDATA | MEDCHNG+10~, MEDCHNG+11, GET52~, GET52+10!, GET52+13, GET52+15, BLD52~ |
RXDATA( | MEDCHNG+20, MEDCHNG+21, MEDCHNG+22, MEDCHNG+23, MEDCHNG+26, MEDCHNG+27, MEDCHNG+29, MEDCHNG+30, MEDCHNG+32, MEDCHNG+36 , BLD52+13*, BLD52+14*, BLD52+15*, BLD52+16*, BLD52+17*, BLD52+19*, BLD52+20, BLD52+21*, BLD52+22*, BLD52+23* , BLD52+24* |
RXIEN | MEDCHNG+18~*, MEDCHNG+20*, MEDCHNG+21, MEDCHNG+22, MEDCHNG+23, MEDCHNG+26, MEDCHNG+27, MEDCHNG+29, MEDCHNG+30, MEDCHNG+32 , MEDCHNG+36, BLD52+8~*, BLD52+10*, BLD52+11, BLD52+13, BLD52+14, BLD52+15, BLD52+16, BLD52+17, BLD52+18 , BLD52+19, BLD52+20, BLD52+21, BLD52+22, BLD52+23, BLD52+24 |
SAVMEDS | MEDCHNG~ |
SAVMEDS( | MEDCHNG+21 |
U | MEDCHNG+22, BLD52+6, BLD52+11, BLD52+13, BLD52+19, BLD52+20, GTDRGNM+16, GTDRGNM+18, GTDRGNM+21, GTDRGNM+23 |
VADRGIEN | GTDRGNM+21~*, GTDRGNM+22 |
VADRGNM | GTDRGNM+23~*, GTDRGNM+24 |
VAPROD | GTDRGNM+22~*, GTDRGNM+23 |
VPSX | MEDCHNG+17~*, MEDCHNG+23*, MEDCHNG+24, MEDCHNG+26*, MEDCHNG+27*, MEDCHNG+28, MEDCHNG+29*, MEDCHNG+30*, MEDCHNG+31, MEDCHNG+32* , MEDCHNG+33*, MEDCHNG+34, MEDCHNG+36*, MEDCHNG+37*, MEDCHNG+38, MEDCHNG+41*, MEDCHNG+42, MEDCHNG+43*, MEDCHNG+44, MEDCHNG+45* , MEDCHNG+46 |