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 |