LR309 ;VA/DALOI/CKA - LR*5.2*309 PATCH ENVIRONMENT CHECK ROUTINE ;June 10, 2008
Source file <LR309.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RECIP | ; Find recipients with LRAPSUPER key and LRLIASON key.
|
|
PRINT1 | ; Actually print the report
; K ^TMP($J) |
|
EN | ; Does not prevent loading of the transport global.
|
|
SEND | ;Send the message to users of the security keys LRLIASON and LRAPSUPER
|
|
REMOVE | ;Removes the DD entry for field #20
|
|
PTHDR | ; header for each new patient entry
|
|
HEADER2 | ; Prints header for all other pages
|
|
EXIT | ;
|
|
PRTDATA | ;
|
|
MSG | ; S ^TMP($J,"LR309",LRLNCNT)=LRDATA S LRLNCNT=LRLNCNT+1
|
|
POST | ; KIDS Post install for LR*5.2*309
|
|
CHECK | ; Perform environment check
|
|
MATCH | ;
|
Name | Field # of Occurrence |
---|---|
$$GET1^DID | MATCH+16 |
^DIK | REMOVE+2 |
PT^LRX | MATCH+14, PRINT1+14 |
$$FMADD^XLFDT | MATCH+4 |
$$FMTE^XLFDT | MATCH+20 |
$$HTE^XLFDT | EN+5, EN+12, POST+22 |
$$NOW^XLFDT | MATCH+4, MATCH+5 |
$$CJ^XLFSTR | EN+17, POST+4, POST+18, POST+20, POST+27, CHECK+1, CHECK+5, CHECK+10, CHECK+15, EXIT+6 , EXIT+7, MATCH+8, MATCH+33, MATCH+37 |
^XMD | SEND+7 |
BMES^XPDUTL | EN+17, POST+4, POST+18, POST+20, POST+27, CHECK+1, CHECK+5, CHECK+10, CHECK+15, EXIT+6 , EXIT+7, MATCH+8, MATCH+33, MATCH+37 |
MES^XPDUTL | MATCH+48 |
$$ACTIVE^XUSER | CHECK+12 |
FileNo | Call Tags |
---|---|
^DIC - [#1] | GET1^DID |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LR - [#63] | MATCH+10, MATCH+11, MATCH+18, MATCH+19, MATCH+20, MATCH+28, MATCH+29, MATCH+30!, PRINT1+16 |
^TMP("LR309" | PRINT1+2!, MSG+1* |
^XTMP("LR309" | POST+7, POST+14, MATCH+3!, MATCH+5*, MATCH+22*, MATCH+23*, MATCH+24*, MATCH+25*, MATCH+26*, MATCH+27* , MATCH+28*, MATCH+29*, MATCH+34, PRINT1+6, PRINT1+11, PRINT1+15, PTHDR+2, PTHDR+3, PTHDR+4, PTHDR+5 , PTHDR+6, PTHDR+7, PRTDATA+3, PRTDATA+4, HEADER2+6 |
^XUSEC("LRAPSUPER" | RECIP+2 |
^XUSEC("LRLIASON" | RECIP+4 |
Name | Line Occurrences |
---|---|
CHECK | EN+18 |
EXIT | EN+20 |
HEADER2 | PRINT1+10 |
MATCH | POST+6 |
MSG | PRINT1+21, PTHDR+3, PTHDR+6, PTHDR+7, PTHDR+8, PTHDR+9, PTHDR+10, PTHDR+11, PRTDATA+4, PRTDATA+5 , PRTDATA+6, PRTDATA+7, HEADER2+3, HEADER2+4, HEADER2+6, HEADER2+7, HEADER2+8 |
PRINT1 | POST+8 |
PRTDATA | PRINT1+20 |
PTHDR | PRINT1+18 |
RECIP | SEND+2 |
REMOVE | POST+12 |
SEND | POST+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AGE | MATCH+2~, MATCH+26 |
DA | REMOVE+1~, REMOVE+2* |
DA(1 | REMOVE+2* |
DIFROM | SEND+1~ |
DIK | REMOVE+1~, REMOVE+2* |
DIR | PRTDATA+1~ |
DIRUT | PRTDATA+1~ |
DUZ | CHECK+7, CHECK+12 |
DUZ(0 | CHECK+7 |
IOM | EN+17, POST+4, POST+18, POST+20, POST+27, CHECK+3, CHECK+5, CHECK+10, CHECK+15, EXIT+6 , EXIT+7, MATCH+8, MATCH+33, MATCH+37 |
IOSL | CHECK+3 |
LRACC | PRINT1+3~, PRINT1+16* |
LRANS | MATCH+15! |
LRCNT | MATCH+2~, MATCH+9* |
LRCURPNM | PRINT1+4~ |
LRDATA | PRINT1+3~, PRINT1+21*, PTHDR+1~, PTHDR+2*, PTHDR+3*, PTHDR+4*, PTHDR+5*, PTHDR+6*, PTHDR+7*, PTHDR+8* , PTHDR+9*, PTHDR+10*, PTHDR+11*, PRTDATA+1~, PRTDATA+4*, PRTDATA+5*, PRTDATA+6*, PRTDATA+7*, HEADER2+1~, HEADER2+3* , HEADER2+4*, HEADER2+6*, HEADER2+7*, HEADER2+8*, MSG+1 |
LRDATE | PRINT1+3~ |
LRDFN | MATCH+1~, MATCH+9*, MATCH+10*, MATCH+11, MATCH+18, MATCH+19, MATCH+20, MATCH+22, MATCH+23, MATCH+24 , MATCH+25, MATCH+26, MATCH+27, MATCH+28, MATCH+29, MATCH+30, PRINT1+3~, PRINT1+7*, PRINT1+11*, PRINT1+15 , PRINT1+16, PTHDR+2, PTHDR+3, PTHDR+4, PTHDR+5, PTHDR+6, PTHDR+7, PRTDATA+3, PRTDATA+4, HEADER2+6 |
LRDPF | MATCH+13!, MATCH+16 |
LRDUZ | RECIP+1*, RECIP+2*, RECIP+3*, RECIP+4*, RECIP+5! |
LREDATE | MATCH+1~, MATCH+20*, MATCH+22 |
LRERR | MATCH+15!, MATCH+17 |
LRFNAM | MATCH+1~, MATCH+16*, MATCH+17*, MATCH+23 |
LRI | MATCH+1~, PRINT1+4~, PRINT1+8*, PRINT1+17, PRINT1+19*, PRINT1+21*, HEADER2+5, HEADER2+8* |
LRIDT | MATCH+2~, MATCH+12*, MATCH+18*, MATCH+19, MATCH+20, MATCH+22, MATCH+23, MATCH+24, MATCH+25, MATCH+26 , MATCH+27, MATCH+28, MATCH+29, MATCH+30, PRINT1+3~, PRINT1+8*, PRINT1+12*, PRINT1+15*, PRINT1+16, PRINT1+17 , PRINT1+19, PTHDR+2, PTHDR+3, PTHDR+4, PTHDR+5, PTHDR+6, PTHDR+7, PRTDATA+3, PRTDATA+4, HEADER2+5 , HEADER2+6 |
LRLINE | PRINT1+4~, PRTDATA+2*, PRTDATA+3*, PRTDATA+4 |
LRLNCNT | PRINT1+4~, PRINT1+9*, MSG+1* |
LRMATFND | MATCH+1~, MATCH+9*, MATCH+21* |
LRNAM | PRINT1+3~ |
LRPAGE | PRINT1+4~, PRINT1+9*, HEADER2+2*, HEADER2+3 |
LRPAT | PRINT1+3~ |
LRPDF | PRINT1+5~, PRINT1+13! |
LRRES | POST+1~ |
LRRMV | POST+1~ |
LRSTATE | PRINT1+3~ |
LRZTSK | PRINT1+4~ |
MSG | EN+2~, EN+8*, EN+15*, POST+1~, POST+15!, POST+16*, POST+18!, POST+25*, CHECK+8*, CHECK+10! , CHECK+13*, CHECK+15!, MATCH+1~, MATCH+6*, MATCH+8!, MATCH+31*, MATCH+33!, MATCH+35*, MATCH+37!, MATCH+48 , REMOVE+1~, PRTDATA+1~ |
MSG(1 | MATCH+38* |
MSG(10 | MATCH+47* |
MSG(2 | MATCH+39* |
MSG(3 | MATCH+40* |
MSG(4 | MATCH+41* |
MSG(5 | MATCH+42* |
MSG(6 | MATCH+43* |
MSG(7 | MATCH+44* |
MSG(8 | MATCH+45* |
MSG(9 | MATCH+46* |
PNM | MATCH+2~, MATCH+13!, MATCH+24, PRINT1+3~, PRINT1+13! |
SEX | MATCH+2~, MATCH+27, PRINT1+5~, PRINT1+13! |
SSN | MATCH+2~, MATCH+13!, MATCH+25, PRINT1+5~, PRINT1+13! |
U | CHECK+3, MATCH+28, PRINT1+16 |
VA | MATCH+13!, PRINT1+5~, PRINT1+13! |
VADM | MATCH+13!, PRINT1+5~, PRINT1+13! |
X | MATCH+1~, MATCH+4*, MATCH+5 |
X1 | MATCH+1~ |
X2 | MATCH+1~ |
XAQMSG | EN+2~ |
XDATA | MATCH+2~, MATCH+12* |
XDATA1 | MATCH+1~ |
XDATA2 | MATCH+2~, MATCH+12* |
XMDUN | SEND+1~, SEND+6* |
XMSUB | SEND+1~, SEND+3* |
XMTEXT | SEND+1~, SEND+5* |
XMY | SEND+1~ |
XMY( | RECIP+2*, RECIP+4* |
>> XPDDIQ("XPZ1" | EN+19* |
>> XPDENV | EN+3, EN+10, EN+19 |
>> XPDNM | EN+4, EN+11, POST+4, POST+21, CHECK+1, EXIT+6, EXIT+7 |
>> XPDQUIT | CHECK+6*, CHECK+11*, CHECK+16*, EXIT+1, EXIT+3, EXIT+6, EXIT+7 |
XQA | EN+2~, POST+1~ |
XQA("G.LMI" | EN+6*, EN+13*, POST+23* |
XQAMSG | EN+4*, EN+5*, EN+11*, EN+12*, EN+17, POST+1~, POST+21*, POST+22*, POST+27 |