GMTSPST1 ;BIR/RMS - MED RECON TOOL #1 (MED REC PROFILE) ; Feb 8, 2023@12:51:30
Source file <GMTSPST1.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 5 | IMOOD^ORIMO TEXT^ORQ12 ($$GET,$$HAVEHDR)^ORRDI1 COVER^ORWPS $$PKGID^ORX8 |
Health Summary | 3 | (DRGDSP2,DRUGDSP)^GMTSPSTN ADD^GMTSPSTR CKP^GMTSUP |
Kernel | 3 | (RMDEV,SAVDEV,USE)^%ZISUTL ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT ($$CJ,$$REPEAT,$$RJ,$$UP)^XLFSTR |
Outpatient Pharmacy | 3 | PEN^PSO5241 RX^PSO52API ^PSOHCSUM |
VA FileMan | 3 | ^%DT $$GET1^DIQ ^DIWP |
Inpatient Medications | 1 | $$BCMALG^PSJUTL2 |
Pharmacy Data Management | 1 | DATA^PSS50 |
Toolkit | 1 | $$GET^XPAR |
Name | Comments | DBIA/ICR reference |
---|---|---|
TOOL1 | ;ENTRY POINT FOR HEALTH SUMMARY
|
|
ADDREM | ;USES RDI - REMOTE DATA INTEROPERABILITY TO INCORPORATE OUTSIDE MEDS
|
|
HEADER | ;
|
|
TEXTPRNT(TEXTLOC) | ;PRINT LINES OF TEXT FROM A LINE LABEL, ENDS WITH $$END
|
|
OUTPUT | ||
INPDISP | ;Display an Inpatient or Clinic Meds Entry
|
|
OPTDISP | ;Display an Outpatient Prescription Entry
|
|
ISSUPPLY(DRUG,DRUGNAME) | ;
; Function returns '1' if drug is a SUPPLY, '0' otherwise |
|
RDIDISP | ;Display a Remote Meds Entry
|
|
NVADISP | ;Display a Non-VA Medication Entry
|
|
FOOTER | ;Report footer for older medication entries
|
|
OPTFOOT | ;Actual display for outpatient footer
|
|
NVADT() | ;Replaces call previously in ^PSOQCF04
|
|
LSIG(SIG) | ;Expand a SIG
|
|
LRD(PACKREF) | ;Calculate LAST RELEASE DATE as latest of original + refill relDates
|
|
CKP | ||
HEADTXT1 | ;;
|
|
HEADTXT2 | ;;
|
Name | Field # of Occurrence |
---|---|
^%DT | ADDREM+31 |
RMDEV^%ZISUTL | ADDREM+14 |
SAVDEV^%ZISUTL | ADDREM+11 |
USE^%ZISUTL | ADDREM+13 |
$$GET1^DIQ | INPDISP+14 |
^DIWP | INPDISP+20, OPTDISP+47, RDIDISP+6, NVADISP+11 |
DRGDSP2^GMTSPSTN | INPDISP+12 |
DRUGDSP^GMTSPSTN | INPDISP+8 |
ADD^GMTSPSTR | TOOL1+2 |
CKP^GMTSUP | CKP |
IMOOD^ORIMO | INPDISP+9 |
TEXT^ORQ12 | INPDISP+13, OPTDISP+10, NVADISP+5 |
$$GET^ORRDI1 | ADDREM+12 |
$$HAVEHDR^ORRDI1 | ADDREM+2 |
COVER^ORWPS | TOOL1+4 |
$$PKGID^ORX8 | OPTDISP+4, OPTFOOT+3 |
$$BCMALG^PSJUTL2 | INPDISP+25, INPDISP+26 |
PEN^PSO5241 | OPTDISP+6 |
RX^PSO52API | OPTDISP+32, OPTFOOT+9, LRD+4 |
^PSOHCSUM | NVADT+2 |
DATA^PSS50 | ISSUPPLY+5, ISSUPPLY+6 |
$$FMADD^XLFDT | ADDREM+28, OPTFOOT+5 |
$$FMDIFF^XLFDT | OPTDISP+38, OPTDISP+39 |
$$FMTE^XLFDT | HEADER+6, OPTDISP+25, OPTDISP+52, OPTDISP+53, OPTFOOT+12 |
$$CJ^XLFSTR | TOOL1+20 |
$$REPEAT^XLFSTR | TOOL1+19, TOOL1+21, HEADER+8, HEADER+14 |
$$RJ^XLFSTR | OPTFOOT+13 |
$$UP^XLFSTR | TOOL1+8 |
$$GET^XPAR | ADDREM+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PS(53.1 - [#53.1] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^OR(100 - [#100] | TOOL1+11 |
^PS(51 - [#51] | LSIG+3 |
^TMP("PSOO" | NVADT+3, NVADT+4, NVADT+5 |
^TMP($J | OPTDISP+3!, OPTDISP+17, OPTDISP+18, OPTDISP+22, OPTDISP+25, OPTDISP+28, OPTDISP+30, OPTDISP+33, OPTDISP+34, OPTDISP+35 , OPTDISP+40, OPTDISP+45, OPTDISP+46, OPTDISP+52, OPTDISP+54, ISSUPPLY+4!, ISSUPPLY+6, ISSUPPLY+8, ISSUPPLY+9, OPTFOOT+2! , OPTFOOT+10, OPTFOOT+11, OPTFOOT+14, OPTFOOT+15, LRD+2!, LRD+5, LRD+7, LRD+8, LRD+10! |
^UTILITY($J | INPDISP+3!, INPDISP+21, INPDISP+22, OPTDISP+3!, OPTDISP+48, OPTDISP+49, RDIDISP+4!, RDIDISP+7, RDIDISP+9, NVADISP+2! , NVADISP+12, NVADISP+13 |
^XTMP("ORRDI" | ADDREM+4, ADDREM+5, ADDREM+21, ADDREM+22, ADDREM+23, ADDREM+30, ADDREM+33, ADDREM+34, RDIDISP+5, RDIDISP+11 , RDIDISP+13, RDIDISP+14 |
Name | Line Occurrences |
---|---|
$$ISSUPPLY | OUTPUT+7 |
$$LRD | TOOL1+11, OPTDISP+36, OPTFOOT+4 |
$$LSIG | INPDISP+18, NVADISP+10 |
$$NVADT | HEADER+2 |
ADDREM | TOOL1+15 |
CKP | TOOL1+18, TOOL1+19, TOOL1+20, TOOL1+21, TOOL1+22, ADDREM+6, ADDREM+8, ADDREM+18, ADDREM+20, HEADER+4 , HEADER+7, HEADER+9, HEADER+10, HEADER+12, HEADER+13, HEADER+15, TEXTPRNT+3, INPDISP+4, INPDISP+11, INPDISP+23 , INPDISP+26, OPTDISP+7, OPTDISP+9, OPTDISP+16, OPTDISP+21, OPTDISP+24, OPTDISP+26, OPTDISP+29, OPTDISP+31, OPTDISP+42 , OPTDISP+50, OPTDISP+52, OPTDISP+53, OPTDISP+55, RDIDISP+1, RDIDISP+2, RDIDISP+8, RDIDISP+10, NVADISP+3, NVADISP+4 , NVADISP+14, NVADISP+15, FOOTER+1, OPTFOOT+7, OPTFOOT+8, OPTFOOT+13, OPTFOOT+16, OPTFOOT+17 |
FOOTER | TOOL1+24 |
HEADER | TOOL1+16 |
INPDISP | OUTPUT+8 |
NVADISP | OPTDISP+37 |
OPTDISP | OUTPUT+9 |
OUTPUT | TOOL1+17, TOOL1+23 |
RDIDISP | OUTPUT+10 |
TEXTPRNT | HEADER+3, HEADER+11, FOOTER+2 |
Name | Field # of Occurrence |
---|---|
^( | LSIG+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | LSIG+1~, LSIG+3* |
%DT | ADDREM+29~ |
ALPHA | TOOL1+1~ |
ALPHA( | OUTPUT+3, OUTPUT+4, OUTPUT+5, OUTPUT+7, INPDISP+5 |
ALPHA(1 | TOOL1+14*, ADDREM+36* |
ALPHA(2 | OUTPUT+7* |
ANS | LRD+1~, LRD+3*, LRD+6*, LRD+9*, LRD+11 |
CANCELDT | OPTDISP+1~, OPTDISP+34*, OPTDISP+39 |
CTR | LRD+1~, LRD+7*, LRD+8 |
DAYSSUPP | OPTFOOT+1~, OPTFOOT+11*, OPTFOOT+12 |
DDNUM | INPDISP+2~ |
DEAHDLG | ISSUPPLY+3~, ISSUPPLY+9*, ISSUPPLY+12 |
>> DFN | TOOL1+4, ADDREM+12, ADDREM+21, ADDREM+22, ADDREM+23, ADDREM+30, ADDREM+33, ADDREM+34, INPDISP+25, INPDISP+26 , OPTDISP+6, OPTDISP+17, OPTDISP+18, OPTDISP+22, OPTDISP+25, OPTDISP+28, OPTDISP+30, OPTDISP+32, OPTDISP+33, OPTDISP+34 , OPTDISP+35, OPTDISP+40, OPTDISP+45, OPTDISP+46, OPTDISP+52, OPTDISP+54, RDIDISP+5, RDIDISP+11, RDIDISP+13, RDIDISP+14 , OPTFOOT+9, OPTFOOT+10, OPTFOOT+11, OPTFOOT+14, OPTFOOT+15, LRD+4, LRD+5, LRD+7, LRD+8 |
DIWF | INPDISP+1~, RDIDISP+3~, NVADISP+1~ |
DIWL | INPDISP+1~, INPDISP+14*, INPDISP+21, INPDISP+22, OPTDISP+1~, OPTDISP+44*, OPTDISP+48, OPTDISP+49, RDIDISP+3~, RDIDISP+5* , RDIDISP+7, RDIDISP+9, NVADISP+1~, NVADISP+6*, NVADISP+12, NVADISP+13 |
DIWR | INPDISP+1~, INPDISP+14*, OPTDISP+1~, OPTDISP+44*, RDIDISP+3~, RDIDISP+5*, NVADISP+1~, NVADISP+6* |
DOWN | ADDREM+1~, ADDREM+3, ADDREM+5* |
DRUG | ISSUPPLY~, ISSUPPLY+5, ISSUPPLY+6*, ISSUPPLY+7, ISSUPPLY+8, ISSUPPLY+9 |
DRUGDISP | INPDISP+2~, INPDISP+10 |
DRUGNAME | ISSUPPLY~, ISSUPPLY+6 |
DRUGNM | TOOL1+1~, TOOL1+8*, TOOL1+10, TOOL1+12, TOOL1+14, OUTPUT~, OUTPUT+3*, OUTPUT+4, OUTPUT+5, OUTPUT+7 , INPDISP+5, OPTDISP+8, OPTDISP+12, OPTDISP+43, RDIDISP+2, NVADISP+4, OPTFOOT+8 |
DT | ADDREM+28, OPTDISP+38, OPTDISP+39, OPTFOOT+5 |
EXPDAYS | TOOL1+1~, TOOL1+3*, OPTDISP+38, OPTDISP+39 |
EXPDT | OPTDISP+1~, OPTDISP+33*, OPTDISP+38, OPTDISP+53 |
FOOTTXT | OPTFOOT+1~, OPTFOOT+12*, OPTFOOT+13 |
GMTSPST1 | INPDISP+1~, INPDISP+13, NVADISP+1~, NVADISP+5 |
GMTSPST1( | INPDISP+16*, INPDISP+18, NVADISP+8, NVADISP+10 |
GMTSPST1(":" | INPDISP+16, INPDISP+17, NVADISP+8, NVADISP+9 |
GMTSPST1(1 | INPDISP+15, NVADISP+7 |
GMTSPSTP | OPTDISP+1~, OPTDISP+10 |
GMTSPSTP( | OPTDISP+12, OPTDISP+14, OPTDISP+15 |
>> GMTSQIT | TOOL1+18, TOOL1+19, TOOL1+20, TOOL1+21, TOOL1+22, ADDREM+5, ADDREM+6, ADDREM+9, ADDREM+17, ADDREM+18 , HEADER+4, HEADER+7, HEADER+9, HEADER+10, HEADER+12, HEADER+13, HEADER+15, TEXTPRNT+3, OUTPUT+3, OUTPUT+4 , OUTPUT+5, OUTPUT+8, OUTPUT+9, OUTPUT+10, INPDISP+4, INPDISP+11, INPDISP+21, INPDISP+24, INPDISP+26, OPTDISP+7 , OPTDISP+9, OPTDISP+16, OPTDISP+21, OPTDISP+24, OPTDISP+26, OPTDISP+29, OPTDISP+31, OPTDISP+42, OPTDISP+45, OPTDISP+48 , OPTDISP+51, OPTDISP+52, OPTDISP+53, RDIDISP+1, RDIDISP+2, RDIDISP+7, RDIDISP+8, RDIDISP+10, NVADISP+3, NVADISP+4 , NVADISP+12, NVADISP+15, FOOTER+1, OPTFOOT+7, OPTFOOT+8, OPTFOOT+13, OPTFOOT+14 |
IND1 | TOOL1+1~, TOOL1+3*, INPDISP+14, INPDISP+26, OPTDISP+15, OPTDISP+44, RDIDISP+2, RDIDISP+5, NVADISP+6, OPTFOOT+15 |
IOM | TOOL1+19, TOOL1+20, TOOL1+21, HEADER+8, HEADER+14 |
ISSUE | ADDREM+1~, ADDREM+28, ADDREM+32* |
LASTACT | OUTPUT+2~ |
LASTBCMA | INPDISP+1~, INPDISP+25*, INPDISP+26 |
LASTREL | OPTDISP+36*, OPTDISP+52, OPTFOOT+1~, OPTFOOT+4*, OPTFOOT+5, OPTFOOT+12 |
LINE | TEXTPRNT+1~, TEXTPRNT+2* |
LINETEXT | TEXTPRNT+1~, TEXTPRNT+2*, TEXTPRNT+4 |
LIST | TOOL1+1~, TOOL1+17*, TOOL1+23*, OUTPUT+3, OUTPUT+4, OUTPUT+5, OUTPUT+7, INPDISP+5, ISSUPPLY+2 |
MED | ADDREM+1~, ADDREM+22*, ADDREM+23, ADDREM+30, ADDREM+33, ADDREM+34, ADDREM+36 |
NVADT | HEADER+1~, HEADER+2*, HEADER+6, NVADT+5*, NVADT+6, NVADT+7*, NVADT+8 |
NVAL | NVADT+1~, NVADT+4*, NVADT+5 |
NVARR | NVADT+1~ |
NVARR( | NVADT+6* |
NVARR(0 | NVADT+7 |
OALINE | INPDISP+1~, INPDISP+16*, INPDISP+17*, INPDISP+18, NVADISP+1~, NVADISP+8*, NVADISP+9*, NVADISP+10 |
ORDER | TOOL1+1~, TOOL1+9*, TOOL1+10, TOOL1+11, TOOL1+12, TOOL1+14, OUTPUT~, OUTPUT+4*, OUTPUT+5, OUTPUT+7 , INPDISP+5, INPDISP+9, INPDISP+13, OPTDISP+4, OPTDISP+6, OPTDISP+10, NVADISP+5, OPTFOOT+3 |
ORDNUM | OUTPUT+1~, OUTPUT+6*, INPDISP+25, INPDISP+26, RDIDISP+5, RDIDISP+11, RDIDISP+13, RDIDISP+14 |
ORDTYP | OPTDISP+2~, OPTDISP+18*, OPTDISP+19 |
ORIG | INPDISP+1~, INPDISP+14*, INPDISP+16*, INPDISP+17, NVADISP+1~, NVADISP+6*, NVADISP+8*, NVADISP+9 |
ORIGRX | OPTDISP+2~, OPTDISP+17*, OPTDISP+19, OPTDISP+20 |
ORQLN | OPTDISP+1~, OPTDISP+12*, OPTDISP+13*, OPTDISP+14*, OPTDISP+15 |
ORVP | INPDISP+1~ |
ORY | INPDISP+2~, INPDISP+9, INPDISP+10 |
OTLINE | OUTPUT+2~ |
P | LSIG+1~, LSIG+2*, LSIG+3 |
PACK | OUTPUT+1~, OUTPUT+6*, OUTPUT+8, OUTPUT+9, OUTPUT+10 |
PACKREF | OUTPUT+1~, OPTDISP+4*, OPTDISP+5, OPTDISP+6, OPTDISP+17, OPTDISP+18, OPTDISP+22, OPTDISP+25, OPTDISP+28, OPTDISP+30 , OPTDISP+32, OPTDISP+33, OPTDISP+34, OPTDISP+35, OPTDISP+36, OPTDISP+40, OPTDISP+45, OPTDISP+46, OPTDISP+52, OPTDISP+54 , OPTFOOT+3*, OPTFOOT+4, OPTFOOT+9, OPTFOOT+10, OPTFOOT+11, OPTFOOT+14, OPTFOOT+15, LRD~, LRD+4, LRD+5 , LRD+7, LRD+8 |
PENDMED | OPTDISP+1~ |
PSIFN | INPDISP+1~ |
PSNUM | TOOL1+1~, TOOL1+7*, TOOL1+10, TOOL1+12, TOOL1+13, TOOL1+14, OUTPUT~, OUTPUT+5*, OUTPUT+6, OUTPUT+7 , INPDISP+5, INPDISP+14, OPTDISP+37, OPTFOOT+6 |
QDFLAG | OPTDISP+2~, OPTDISP+19*, OPTDISP+23*, OPTDISP+27, OPTDISP+30 |
RDI | ADDREM+1~, ADDREM+12*, ADDREM+17 |
REFDT | LRD+1~, LRD+8*, LRD+9 |
REFILLS | OPTDISP+1~, OPTDISP+35*, OPTDISP+53 |
RELDT | LRD+1~, LRD+5*, LRD+6 |
REPEAT | HEADER+1~, HEADER+12* |
RNAM | ADDREM+1~, ADDREM+33*, ADDREM+35, ADDREM+36 |
RNUM | ADDREM+1~, ADDREM+34*, ADDREM+35, ADDREM+36 |
RPC | TOOL1+1~, TOOL1+4 |
RPC( | TOOL1+5, TOOL1+6 |
RPCNODE | TOOL1+1~, TOOL1+6*, TOOL1+7, TOOL1+8, TOOL1+9, TOOL1+13, TOOL1+14 |
RPCT | TOOL1+1~, TOOL1+5*, TOOL1+6 |
SAVE | TOOL1+1~ |
SAVE( | TOOL1+12*, OUTPUT+3! |
SAVERD | TOOL1+1~, TOOL1+11*, TOOL1+12 |
SGY | LSIG+1~, LSIG+2*, LSIG+4*, LSIG+5 |
SIG | LSIG~, LSIG+2, LSIG+3 |
SIGLINE | OUTPUT+1~, OPTDISP+45*, OPTDISP+46, OPTFOOT+14*, OPTFOOT+15 |
STAT | ADDREM+1~, ADDREM+23*, ADDREM+24, ADDREM+25 |
STATUS | INPDISP+1~, INPDISP+5*, INPDISP+6*, INPDISP+10, OPTDISP+1~, OPTDISP+40*, OPTDISP+41*, OPTDISP+43, RDIDISP+3~, RDIDISP+11* , RDIDISP+12*, RDIDISP+13, OPTFOOT+1~, OPTFOOT+10*, OPTFOOT+12 |
TEXTLOC | TEXTPRNT~, TEXTPRNT+2 |
TLINE | TEXTPRNT+1~, TEXTPRNT+2* |
TYPE | INPDISP+1~ |
U | TOOL1+7, TOOL1+8, TOOL1+9, TOOL1+13, TOOL1+14, OPTDISP+17, OPTDISP+18, OPTDISP+38, OPTDISP+39, OPTDISP+40 , OPTDISP+54, OPTFOOT+10 |
VACLASS | ISSUPPLY+3~, ISSUPPLY+8*, ISSUPPLY+10, ISSUPPLY+11, ISSUPPLY+12 |
WLINE | INPDISP+1~, INPDISP+21*, INPDISP+22, OPTDISP+48*, OPTDISP+49, RDIDISP+3~, RDIDISP+7*, RDIDISP+9, NVADISP+1~, NVADISP+12* , NVADISP+13 |
X | ADDREM+29~, ADDREM+30*, INPDISP+1~, INPDISP+18*, OPTDISP+46*, RDIDISP+3~, RDIDISP+5*, NVADISP+1~, NVADISP+10*, LSIG+1~ , LSIG+2*, LSIG+3*, LSIG+4 |
Y | ADDREM+29~, ADDREM+32, LSIG+3* |
Name | Field # of Occurrence |
---|---|
$T(@TLINE | TEXTPRNT+2 |