GMTSPSTN ;BIR/RMS - MED RECON TOOL #1 NO GLOSSARY (MED REC PROFILE) ; Jan 31, 2023@12:50:10
Source file <GMTSPSTN.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 5 | IMOOD^ORIMO TEXT^ORQ12 ($$GET,$$HAVEHDR)^ORRDI1 COVER^ORWPS $$PKGID^ORX8 |
Outpatient Pharmacy | 4 | PEN^PSO5241 RX^PSO52API ^PSOHCSUM OEL^PSOORRL |
Kernel | 3 | (RMDEV,SAVDEV,USE)^%ZISUTL ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT ($$CJ,$$REPEAT,$$RJ,$$UP)^XLFSTR |
VA FileMan | 3 | ^%DT $$GET1^DIQ ^DIWP |
Health Summary | 2 | ADD^GMTSPSTR CKP^GMTSUP |
Inpatient Medications | 1 | $$BCMALG^PSJUTL2 |
Pharmacy Data Management | 1 | DATA^PSS50 |
Toolkit | 1 | $$GET^XPAR |
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 |
---|---|---|
Health Summary | 1 | GMTSPST1 |
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
|
|
DRUGDSP | ; Get Medication with Dosage
|
|
DRGDSP2 | ; Display other multiple information for medications/dosages
|
|
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 | ||
GETPKG(ORDER) | ;GET PACKAGE TYPE, added by GMTS*2.7*132
|
|
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, DRUGDSP+6, DRGDSP2+2, GETPKG+2, GETPKG+3, GETPKG+6 |
^DIWP | INPDISP+20, OPTDISP+48, RDIDISP+6, NVADISP+11 |
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+33, OPTFOOT+9, LRD+4 |
^PSOHCSUM | NVADT+2 |
OEL^PSOORRL | DRUGDSP+4 |
DATA^PSS50 | ISSUPPLY+5, ISSUPPLY+6 |
$$FMADD^XLFDT | ADDREM+28, OPTFOOT+5 |
$$FMDIFF^XLFDT | OPTDISP+39, OPTDISP+40 |
$$FMTE^XLFDT | HEADER+6, OPTDISP+25, OPTDISP+53, OPTDISP+54, 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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^OR(100 - [#100] | GET1^DIQ |
^PSDRUG - [#50] | GET1^DIQ |
^PS(53.1 - [#53.1] | GET1^DIQ |
^DIC(9.4 - [#9.4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^OR(100 - [#100] | TOOL1+11, DRUGDSP+1 |
^PS(51 - [#51] | LSIG+3 |
^TMP("PS" | DRUGDSP+3!, DRUGDSP+5, DRUGDSP+6, DRGDSP2+1, DRGDSP2+2 |
^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+34, OPTDISP+35, OPTDISP+36 , OPTDISP+41, OPTDISP+46, OPTDISP+47, OPTDISP+53, OPTDISP+55, 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+49, OPTDISP+50, 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 |
---|---|
$$GETPKG | DRUGDSP+2 |
$$ISSUPPLY | OUTPUT+7 |
$$LRD | TOOL1+11, OPTDISP+37, 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, DRGDSP2+3, OPTDISP+7, OPTDISP+9, OPTDISP+16, OPTDISP+21, OPTDISP+24, OPTDISP+26, OPTDISP+29, OPTDISP+31 , OPTDISP+43, OPTDISP+51, OPTDISP+53, OPTDISP+54, OPTDISP+56, 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 |
DRGDSP2 | INPDISP+12 |
DRUGDSP | INPDISP+8 |
HEADER | TOOL1+16 |
INPDISP | OUTPUT+8 |
NVADISP | OPTDISP+38 |
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+35*, OPTDISP+40 |
CTR | LRD+1~, LRD+7*, LRD+8 |
DAYSSUPP | OPTFOOT+1~, OPTFOOT+11*, OPTFOOT+12 |
DDNUM | INPDISP+2~, DRGDSP2+1*, DRGDSP2+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+33, OPTDISP+34, OPTDISP+35 , OPTDISP+36, OPTDISP+41, OPTDISP+46, OPTDISP+47, OPTDISP+53, OPTDISP+55, 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+45*, OPTDISP+49, OPTDISP+50, RDIDISP+3~, RDIDISP+5* , RDIDISP+7, RDIDISP+9, NVADISP+1~, NVADISP+6*, NVADISP+12, NVADISP+13 |
DIWR | INPDISP+1~, INPDISP+14*, OPTDISP+1~, OPTDISP+45*, 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, DRUGDSP+5*, DRUGDSP+6*, DRUGDSP+7*, DRGDSP2+2*, DRGDSP2+3 |
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, DRUGDSP+7, OPTDISP+8, OPTDISP+12, OPTDISP+44, RDIDISP+2, NVADISP+4, OPTFOOT+8 |
DT | ADDREM+28, OPTDISP+39, OPTDISP+40, OPTFOOT+5 |
EXPDAYS | TOOL1+1~, TOOL1+3*, OPTDISP+39, OPTDISP+40 |
EXPDT | OPTDISP+1~, OPTDISP+34*, OPTDISP+39, OPTDISP+54 |
FOOTTXT | OPTFOOT+1~, OPTFOOT+12*, OPTFOOT+13 |
GMTSPSTN | INPDISP+1~, INPDISP+13, NVADISP+1~, NVADISP+5 |
GMTSPSTN( | INPDISP+16*, INPDISP+18, NVADISP+8, NVADISP+10 |
GMTSPSTN(":" | INPDISP+16, INPDISP+17, NVADISP+8, NVADISP+9 |
GMTSPSTN(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, DRGDSP2+1 , OPTDISP+7, OPTDISP+9, OPTDISP+16, OPTDISP+21, OPTDISP+24, OPTDISP+26, OPTDISP+29, OPTDISP+31, OPTDISP+43, OPTDISP+46 , OPTDISP+49, OPTDISP+52, OPTDISP+53, OPTDISP+54, 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+45, 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+37*, OPTDISP+53, 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 |
OR0 | INPDISP+1~, DRUGDSP+1*, DRUGDSP+3 |
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, DRUGDSP+1, DRUGDSP+2, OPTDISP+4, OPTDISP+6, OPTDISP+10, NVADISP+5, OPTFOOT+3 , GETPKG~, GETPKG+2, GETPKG+6 |
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~, DRUGDSP+3*, DRUGDSP+4 |
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+33, OPTDISP+34, OPTDISP+35, OPTDISP+36, OPTDISP+37, OPTDISP+41, OPTDISP+46, OPTDISP+47, OPTDISP+53, OPTDISP+55 , 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~ |
PKGIEN | GETPKG+1~, GETPKG+2*, GETPKG+3 |
PKGTYPE | GETPKG+1~, GETPKG+3*, GETPKG+4, GETPKG+5 |
PSIFN | INPDISP+1~, DRUGDSP+1*, DRUGDSP+4 |
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+38, 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+36*, OPTDISP+54 |
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+46*, OPTDISP+47, 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+41*, OPTDISP+42*, OPTDISP+44, 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~, DRUGDSP+2*, DRUGDSP+4 |
U | TOOL1+7, TOOL1+8, TOOL1+9, TOOL1+13, TOOL1+14, DRUGDSP+3, DRUGDSP+5, DRUGDSP+6, DRGDSP2+2, OPTDISP+17 , OPTDISP+18, OPTDISP+39, OPTDISP+40, OPTDISP+41, OPTDISP+55, OPTFOOT+10 |
VACLASS | ISSUPPLY+3~, ISSUPPLY+8*, ISSUPPLY+10, ISSUPPLY+11, ISSUPPLY+12 |
WLINE | INPDISP+1~, INPDISP+21*, INPDISP+22, OPTDISP+49*, OPTDISP+50, RDIDISP+3~, RDIDISP+7*, RDIDISP+9, NVADISP+1~, NVADISP+12* , NVADISP+13 |
X | ADDREM+29~, ADDREM+30*, INPDISP+1~, INPDISP+18*, OPTDISP+47*, 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 |