BHSALG ; IHS/MSC/MGH - ALL Health Summary Allergies ;10-Jun-2013 16:43;DU
Source file <BHSALG.m>
Package | Total | Call Graph |
---|---|---|
Health Summary | 3 | $$WRAP^GMTSORC (REGDT4,REGDTM4)^GMTSU CKP^GMTSUP |
Adverse Reaction Tracking | 2 | EN1^GMRADPT EN1^GMRAOR2 |
VA Fileman | 2 | $$GET1^DIQ ^DIWP |
Kernel | 1 | $$FMTE^XLFDT |
Patient Care Component Reports | 1 | ($$LASTALR,$$LASTALU,$$LASTNAA)^APCLAPI6 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NKA | ; No known allergies
|
|
DATES | ;Get verification data and last edited
|
|
INACCK(GMTSALNM) | ;CHECK FOR INACTIVE
|
|
INACTIVE(IIEN) | ;IHS/MSC/MGH Display the inactive data as needed
|
|
TITLE | ; Print title
|
|
PRUN | ;IHS/MSC/MGH Print unassessable
|
|
TEXT | ; Setup for print of allergy comments
|
|
ALLRGP | ; Allergy Print
|
|
FORMAT | ; Formats each line
|
|
SIGBLK(GMTSALF) | ; Signature block
|
|
COMMON1 | ;additional stuff for CHHIT bjpc 2.0 patch 5
|
|
GETALLRG | ; Get Allergies
|
|
ALLRG | ; Allergies
|
|
UNASS(DFN) | ;IHS/MSC/MGH Check if patient is unassessable
|
|
AUTOV | ; Autoverify
|
|
RECON(ADR) | ;Get dates reconciled
|
|
ING | ;Drug classes
|
|
LINE | ; Writes formatted lines of text
|
|
ALLAS | ; Allergy Assessment
|
|
CLS | ;Drug classes
|
Name | Field # of Occurrence |
---|---|
$$LASTALR^APCLAPI6 | COMMON1+3 |
$$LASTALU^APCLAPI6 | COMMON1+6 |
$$LASTNAA^APCLAPI6 | COMMON1+9 |
$$GET1^DIQ | ALLAS+2, ALLAS+4, ALLAS+5, ALLAS+6, SIGBLK+1, INACTIVE+2, INACTIVE+3, UNASS+7, UNASS+8, UNASS+9 , UNASS+10, DATES+14, RECON+7, RECON+8 |
^DIWP | FORMAT+1 |
EN1^GMRADPT | GETALLRG+1 |
EN1^GMRAOR2 | ALLRGP+14 |
$$WRAP^GMTSORC | ALLRGP+13 |
REGDT4^GMTSU | ALLAS+3 |
REGDTM4^GMTSU | ALLRGP+39, ALLRGP+47, ALLRGP+50 |
CKP^GMTSUP | ALLRG+10, ALLRGP+3, ALLRGP+9, ALLRGP+19, ALLRGP+29, ALLRGP+34, ALLRGP+40, ALLRGP+41, ALLRGP+47, ALLRGP+50 , COMMON1+4, COMMON1+7, COMMON1+10, NKA+2, NKA+3, NKA+4, NKA+5, NKA+6, TITLE+1, TEXT+1 , LINE+1, SIGBLK+2, SIGBLK+3, INACTIVE+4, INACTIVE+5, INACTIVE+6, UNASS+4, PRUN+1, PRUN+2, PRUN+3 , CLS+3, CLS+6, ING+3, ING+6, DATES+4, DATES+6, DATES+7, DATES+16 |
$$FMTE^XLFDT | COMMON1+5, COMMON1+8, COMMON1+11, DATES+6 |
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 |
|
FileNo | Call Tags |
---|---|
^GMR(120.86 - [#120.86] | GET1^DIQ |
120.869999911 | GET1^DIQ |
120.899999912 | GET1^DIQ |
120.899999914 | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
90461.632 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | ALLRG+5 |
^BEHOAR(90460.05 - [#90460.05] | ALLRGP+22, ALLRGP+38 |
^BEHOAR(90460.06 - [#90460.06] | ALLRGP+26 |
^BEHOCIR("G" | RECON+2, RECON+4, RECON+5 |
^GMR(120.8 - [#120.8] | ALLRGP+18, ALLRGP+43, ALLRGP+50, AUTOV+1, TEXT+2, INACCK+3, INACCK+4, INACCK+5, DATES+11, DATES+12 |
^GMR(120.86 - [#120.86] | UNASS+3, UNASS+5 |
^UTILITY($J | TEXT+2!, TEXT+3, TEXT+4!, LINE+1 |
^VA(200 - [#200] | COMMON1+5, COMMON1+8, COMMON1+11 |
Name | Line Occurrences |
---|---|
$$INACCK | ALLRGP+8 |
ALLAS | GETALLRG+2 |
ALLRGP | ALLRG+7 |
AUTOV | ALLRGP+10 |
CLS | ALLRGP+15 |
DATES | ALLRGP+48 |
FORMAT | TEXT+2 |
GETALLRG | ALLRG+7 |
INACTIVE | ALLRGP+45 |
ING | ALLRGP+15 |
LINE | TEXT+3 |
NKA | ALLRG+7 |
PRUN | UNASS+11 |
RECON | ALLRGP+49 |
SIGBLK | ALLRGP+46 |
TEXT | ALLRGP+50 |
TITLE | ALLRG+7 |
UNASS | ALLRG+9, ALLRGP+1, NKA+1 |
Name | Field # of Occurrence |
---|---|
^(0 | ALLRGP+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADR | ALLRG+3~, ALLRGP+7*, ALLRGP+8, ALLRGP+14, ALLRGP+49, DATES+11, DATES+12, DATES+13, RECON~, RECON+2 , RECON+4, RECON+5 |
AIEN | RECON+1~, RECON+6*, RECON+7, RECON+8 |
ALL | ALLRG+11!, ALLRGP+28*, ALLRGP+29, ALLRGP+34*, ALLRGP+35* |
ALLRG | ALLRG+3~, ALLRG+4*, ALLRG+7, ALLRG+8, ALLRG+10, ALLRG+11!, GETALLRG+1*, GETALLRG+2*, GETALLRG+12* |
BHSX | COMMON1+2~, COMMON1+3*, COMMON1+5, COMMON1+6*, COMMON1+8, COMMON1+9*, COMMON1+11 |
BY | RECON+1~, RECON+8*, RECON+9 |
C | ALLRG+2~ |
CC | ALLRG+2~, ALLRG+11!, ALLRGP+50* |
CCC | ALLRG+11!, ALLRGP+50*, TEXT+2 |
CD | ALLRG+11!, ALLRGP+50*, TEXT+1 |
CK | INACCK+1~, INACCK+2*, INACCK+6*, INACCK+7 |
CNT | CLS+1~, CLS+2*, CLS+5*, ING+1~, ING+2*, ING+5* |
DFN | ALLRG+9, ALLRGP+1, COMMON1+3, COMMON1+6, COMMON1+9, NKA+1, GETALLRG+2, ALLAS+2, ALLAS+4, UNASS~ , UNASS+3, UNASS+5, UNASS+6 |
DIWF | ALLRG+11!, FORMAT+1* |
DIWL | ALLRG+11!, TEXT+3, FORMAT+1*, LINE+1 |
DIWR | ALLRG+11!, FORMAT+1* |
DT | COMMON1+3, COMMON1+6, COMMON1+9 |
GMRA | ALLRG+11!, GETALLRG+1* |
GMRAIIEN | ALLRG+11!, ALLRGP+44*, ALLRGP+45 |
GMRAL | ALLRG+1~, ALLRG+11!, GETALLRG+1, GETALLRG+2, GETALLRG+3 |
GMRAL( | GETALLRG+4, GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+9, GETALLRG+10, GETALLRG+11 |
GMRAUNDT | ALLRG+1~, UNASS+2*, UNASS+7*, PRUN+1 |
GMRAUNFX | ALLRG+2~, UNASS+2*, UNASS+9*, PRUN+3 |
GMRAUNRE | ALLRG+1~, UNASS+2*, UNASS+8*, PRUN+2 |
GMRAUOTH | ALLRG+1~, UNASS+10*, PRUN+2 |
GMTSA | ALLRG+4!, ALLRG+11! |
GMTSAFN | ALLRG+1~, ALLRGP+46, ALLRGP+47, AUTOV+1*, AUTOV+2 |
GMTSAL | ALLRG+1~, ALLRG+11! |
GMTSAL( | ALLRGP+2, ALLRGP+4, ALLRGP+5, ALLRGP+6, ALLRGP+7, ALLRGP+17, ALLRGP+21, ALLRGP+22, ALLRGP+24, ALLRGP+25 , ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, GETALLRG+9*, GETALLRG+11*, AUTOV+1 |
GMTSALAD | ALLRG+1~, NKA+2, NKA+4, ALLAS+1*, ALLAS+2*, ALLAS+3* |
GMTSALAS | ALLRG+1~, ALLRG+7, ALLRG+8, NKA+2, NKA+3, NKA+4, ALLAS+1* |
GMTSALAT | ALLRG+1~, NKA+6, ALLAS+6*, ALLAS+7* |
GMTSALAW | ALLRG+1~, NKA+4, NKA+5, NKA+6, ALLAS+1*, ALLAS+5*, ALLAS+7* |
GMTSALF | ALLRG+11!, SIGBLK~, SIGBLK+1 |
GMTSALG1 | ALLAS+1~ |
GMTSALG2 | ALLAS+1~, ALLAS+2 |
GMTSALG3 | ALLAS+1~, ALLAS+7 |
GMTSALNM | ALLRG+2~, ALLRG+11!, ALLRGP+18, ALLRGP+43, ALLRGP+44, ALLRGP+50, AUTOV+1*, TEXT+2, INACCK~, INACCK+3 , INACCK+4, INACCK+5 |
GMTSAU | ALLAS+1~, ALLAS+4*, ALLAS+5, ALLAS+6 |
GMTSAV | ALLRG+1~, ALLRGP+16, AUTOV+1*, AUTOV+2* |
GMTSCNT | ALLRG+2~, ALLRG+11!, GETALLRG+4*, GETALLRG+9, GETALLRG+11 |
GMTSEACT | ALLRG+2~, ALLRG+11!, GETALLRG+6*, GETALLRG+9, GETALLRG+11 |
GMTSLN | ALLRG+2~, ALLRG+11!, TEXT+2*, TEXT+3*, TEXT+5, LINE+1 |
GMTSMECH | ALLRG+2~, ALLRG+11!, GETALLRG+7*, GETALLRG+8*, GETALLRG+9, GETALLRG+11 |
GMTSN1 | ALLRG+1~, ALLRGP+26*, ALLRGP+27 |
GMTSNO | ALLRG+1~, ALLRGP+25*, ALLRGP+26 |
GMTSNODE | ALLRG+11! |
GMTSPFN | ALLRG+11! |
>> GMTSPNF | TITLE+2 |
GMTSPRT | ALLRG+2~, ALLRG+11!, TEXT+2*, FORMAT+1 |
>> GMTSQIT | ALLRG+6, ALLRG+10, ALLRGP+3, ALLRGP+9, ALLRGP+19, ALLRGP+28, ALLRGP+29, ALLRGP+34, ALLRGP+40, ALLRGP+41 , ALLRGP+43, ALLRGP+47, ALLRGP+50, COMMON1+4, COMMON1+7, COMMON1+10, NKA+2, NKA+3, NKA+4, NKA+5 , NKA+6, TITLE+1, TEXT+1, TEXT+3, LINE+1, SIGBLK+2, SIGBLK+3, INACTIVE+4, INACTIVE+5, INACTIVE+6 , UNASS+4, PRUN+1, PRUN+2, PRUN+3, CLS+3, CLS+6, ING+3, ING+6, DATES+4, DATES+6 , DATES+7, DATES+16 |
GMTSRC | ALLRG+2~, ALLRGP+22*, ALLRGP+23, GETALLRG+10* |
GMTSSB | SIGBLK+1~*, SIGBLK+2 |
GMTSSN | SIGBLK+1~*, SIGBLK+2 |
>> GMTSSRC | ALLRGP+38*, ALLRGP+41 |
GMTSST | SIGBLK+1~*, SIGBLK+3 |
GMTSSTM | ALLRG+2~, ALLRGP+39* |
GMTSTY | ALLRG+2~, ALLRG+11!, GETALLRG+5*, GETALLRG+9, GETALLRG+11 |
I | ALLRG+11!, GETALLRG+4*, GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+9, GETALLRG+10, GETALLRG+11 |
IEN | RECON+1~, RECON+5*, RECON+6 |
II | ALLRG+11!, ALLRGP+2*, ALLRGP+3, ALLRGP+4, ALLRGP+5, ALLRGP+6, ALLRGP+7, ALLRGP+15, ALLRGP+17, ALLRGP+21 , ALLRGP+22, ALLRGP+24, ALLRGP+25, ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, AUTOV+1 |
IIEN | INACTIVE~, INACTIVE+2, INACTIVE+3, UNASS+1~, DATES+10~, DATES+13*, DATES+14 |
IN | ALLRG+3~, ALLRGP+8*, ALLRGP+11, ALLRGP+12 |
INACT | ALLRG+2~, INACCK+1~, INACCK+4*, INACCK+6 |
INIEN | ALLRG+2~, UNASS+6*, UNASS+7, UNASS+8, UNASS+9, UNASS+10 |
JJ | ALLRG+3~, ALLRG+11!, ALLRGP+4*, ALLRGP+5, ALLRGP+6, ALLRGP+7, ALLRGP+11, ALLRGP+12, ALLRGP+17, ALLRGP+21 , ALLRGP+22, ALLRGP+24, ALLRGP+25, ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, GETALLRG+11*, AUTOV+1 |
JK | ALLRG+3~, ALLRGP+11*, ALLRGP+12*, ALLRGP+13 |
KK | ALLRG+2~, ALLRG+11!, ALLRGP+5*, ALLRGP+6, ALLRGP+7, ALLRGP+13, ALLRGP+17, ALLRGP+21, ALLRGP+22, ALLRGP+24 , ALLRGP+25, ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, AUTOV+1 |
L | ALLRG+11!, ALLRGP+6*, ALLRGP+7, ALLRGP+17, ALLRGP+21, ALLRGP+22, ALLRGP+24, ALLRGP+25, ALLRGP+28, ALLRGP+33 , ALLRGP+37, ALLRGP+38, ALLRGP+39, AUTOV+1 |
LP | CLS+1~, CLS+4*, CLS+6, ING+1~, ING+4*, ING+6, DATES+10~, DATES+11*, DATES+12, DATES+13 |
M | ALLRG+11!, ALLRGP+28*, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, ALLRGP+43*, ALLRGP+44, INACCK+1~, INACCK+3* , INACCK+4, INACCK+5 |
MOD | DATES+10~, DATES+12* |
MX | ALLRG+11!, ALLRGP+28*, ALLRGP+31* |
N | ALLRG+11!, ALLRGP+33*, ALLRGP+34, ALLRGP+35 |
ODT | ALLRG+11!, ALLRGP+47* |
REACT | INACCK+1~, INACCK+5*, INACCK+6 |
REC | RECON+1~, RECON+3*, RECON+4*, RECON+5, RECON+6 |
RXN | ALLRG+3~, DATES+2, DATES+6, DATES+7 |
RXN("I" | ING+4, ING+6 |
RXN("V" | CLS+4, CLS+6 |
SEQ | ALLRG+4*, ALLRG+11! |
TITLE | ALLRG+3~, ALLRG+4*, ALLRG+11!, TITLE+2, TITLE+3, CLS+1~, ING+1~ |
U | ALLRGP+7, ALLRGP+17, ALLRGP+18, ALLRGP+21, ALLRGP+22, ALLRGP+24, ALLRGP+25, ALLRGP+26, ALLRGP+37, ALLRGP+38 , ALLRGP+39, ALLRGP+46, ALLRGP+47, COMMON1+5, COMMON1+8, COMMON1+11, GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+10 , AUTOV+1, AUTOV+2, INACCK+4, INACCK+5, CLS+6, ING+6, DATES+2, DATES+6, DATES+7 |
VBY | DATES+1~ |
VER | DATES+1~, DATES+2*, DATES+3, DATES+5 |
VERTX | DATES+1~, DATES+3*, DATES+4 |
WHEN | RECON+1~, RECON+7*, RECON+9 |
WKK | ALLRGP+5~, ALLRGP+13*, ALLRGP+19 |
X | ALLRG+1~, ALLRG+5*, ALLRG+11!, ALLRGP+39*, ALLRGP+40, ALLRGP+47*, ALLRGP+50*, ALLAS+1~, ALLAS+3*, FORMAT+1* , INACTIVE+1~, INACTIVE+2*, INACTIVE+4, DATES+10~, DATES+14*, DATES+15*, DATES+16 |
X1 | INACTIVE+1~ |
X2 | INACTIVE+1~, INACTIVE+2*, INACTIVE+4 |
X3 | INACTIVE+1~, INACTIVE+2*, INACTIVE+5 |
X4 | INACTIVE+1~, INACTIVE+3*, INACTIVE+6 |
X5 | INACTIVE+1~, INACTIVE+3*, INACTIVE+6 |
Y | UNASS+1~, UNASS+5*, UNASS+6, DATES+10~, DATES+14*, DATES+15 |
Z | ALLRG+11! |