GMTSPST1 ;BIR/RMS - MED RECON TOOL #1 (MED REC PROFILE) ; Sep 12, 2025@09:00:00
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 |