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 |
