LRAPMRL ;DALOI/STAFF - AP MODIFY RELEASED REPORT;02/28/12 20:38
Source file <LRAPMRL.m>
| Package | Total | Call Graph |
|---|---|---|
| Lab Service | 9 | (,CK)^LRAP (COMPARE,COPY,GETRPT,RELEAS2,RPT,STORE,UNRELEAS,UPDATE)^LRAPDSR (CPTCODE,EDIT,QUEUPD,RELCHK,RELEASE,SETDR)^LRAPMRL1 C^LRAPSWK (ACCYR,LOOKUP)^LRAPUTL ($$ES,CLEAN,ES)^LRCAPES UPDATE^LRPXRM V^LRU DEL^LRWOMEN |
| VA FileMan | 7 | NOW^%DTC EN^DDIOL $$GET1^DID (FILE,UPDATE,WP)^DIE CLEAN^DILF $$GET1^DIQ ^DIR |
| Kernel | 1 | $$CJ^XLFSTR |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ;
|
|
| ACCPN | ; Prompt for accession number or patient name or UID
|
|
| TITLE | ; Title
|
|
| NOTICE | ; Warn the user and allow an exit
|
|
| WHAT | ; What is to be edited
|
|
| CPTCHK | ; Determine if CPT is activated
|
|
| SECTION | ; Choose Anatomic Pathology section (AU,SP,CY,EM)
|
|
| ASK | ; Ask etiology,function,procedure,disease,weights,measures
|
|
| ACCYR | ; Determine Accession Year
|
|
| ASK2 | ; Ask about other fields
|
|
| SAVTXT | ; Save word processing field text.
|
|
| COMPARE | ; Compare report text
|
|
| AUDIT | ;
|
|
| STORE | ;
|
|
| SUPRPT | ; Supplementary Report
|
|
| UNLOCK | ; Unlock the record
|
|
| END | ; Clean-up variables and quit
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | AUDIT+3 |
| EN^DDIOL | ACCPN+13, TITLE+9, NOTICE+8, SECTION+10, SAVTXT+11, COMPARE+18 |
| $$GET1^DID | AUDIT+5 |
| FILE^DIE | COMPARE+29 |
| UPDATE^DIE | AUDIT+9 |
| WP^DIE | STORE+4 |
| CLEAN^DILF | END+2 |
| $$GET1^DIQ | WHAT+9, SAVTXT+6 |
| ^DIR | NOTICE+11, WHAT+13, ASK+7, ASK+14, ASK2+13, SUPRPT+4 |
| ^LRAP | SECTION+2 |
| CK^LRAP | TITLE+2 |
| COMPARE^LRAPDSR | SUPRPT+14 |
| COPY^LRAPDSR | SUPRPT+10 |
| GETRPT^LRAPDSR | SUPRPT+8 |
| RELEAS2^LRAPDSR | SUPRPT+13 |
| RPT^LRAPDSR | SUPRPT+11 |
| STORE^LRAPDSR | SUPRPT+17 |
| UNRELEAS^LRAPDSR | SUPRPT+15 |
| UPDATE^LRAPDSR | SUPRPT+16 |
| CPTCODE^LRAPMRL1 | ACCPN+44 |
| EDIT^LRAPMRL1 | ACCPN+20, ACCPN+30, ACCPN+39 |
| QUEUPD^LRAPMRL1 | ACCPN+18 |
| RELCHK^LRAPMRL1 | ACCPN+15 |
| RELEASE^LRAPMRL1 | ACCPN+17 |
| SETDR^LRAPMRL1 | MAIN+19, ACCPN+20 |
| C^LRAPSWK | ACCPN+19 |
| ACCYR^LRAPUTL | ACCYR+1 |
| LOOKUP^LRAPUTL | ACCPN+4 |
| $$ES^LRCAPES | CPTCHK+2 |
| CLEAN^LRCAPES | END+3 |
| ES^LRCAPES | CPTCHK+1 |
| UPDATE^LRPXRM | UNLOCK+1 |
| V^LRU | MAIN+24, END+4 |
| DEL^LRWOMEN | ACCPN+41 |
| $$CJ^XLFSTR | TITLE+6, NOTICE+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^LAB(69.9 - [#69.9] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIQ1" | SAVTXT+2!, COMPARE+9, COMPARE+10, COMPARE+14, COMPARE+20!, STORE+5! |
| ^TMP("LRAPBR" | END+1! |
| ^TMP("TIUP" | END+1! |
| Name | Line Occurrences |
|---|---|
| @( | SECTION+7 |
| ACCPN | MAIN+22 |
| ACCYR | MAIN+20 |
| ASK | MAIN+17 |
| ASK2 | ACCPN+27 |
| AUDIT | ACCPN+32 |
| COMPARE | ACCPN+31, ACCPN+40 |
| CPTCHK | MAIN+14, ACCPN+3 |
| END | MAIN+7, MAIN+9, MAIN+11, MAIN+13, MAIN+16, MAIN+18, MAIN+21, MAIN+23 |
| NOTICE | MAIN+8 |
| SAVTXT | ACCPN+28, ACCPN+37 |
| SECTION | MAIN+10 |
| STORE | ACCPN+33 |
| TITLE | MAIN+6 |
| UNLOCK | ACCPN+16, ACCPN+21, ACCPN+42, ACCPN+43, ACCPN+45 |
| WHAT | MAIN+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | AUDIT+3 |
| >> DILOCKTM | ACCPN+10 |
| DIR | WHAT+3!, SUPRPT+1! |
| DIR("A" | NOTICE+10*, WHAT+11*, WHAT+12*, ASK+6*, ASK+13*, ASK2+12*, SUPRPT+3* |
| DIR("B" | NOTICE+10*, WHAT+11*, WHAT+12*, ASK+5*, ASK+12*, ASK2+11*, SUPRPT+2* |
| DIR(0 | NOTICE+10*, WHAT+10*, WHAT+12*, ASK+5*, ASK+12*, ASK2+11*, SUPRPT+2* |
| >> DIRUT | WHAT+14 |
| DR | ACCPN+29!*, ACCPN+38!* |
| DUZ | AUDIT+8 |
| IOF | TITLE+4 |
| IOM | TITLE+6, NOTICE+2 |
| LRA | SUPRPT+7~ |
| >> LRAA | ACCPN+4, ACCYR+1 |
| >> LRABV | SECTION+8 |
| >> LRAD | ACCPN+4, ACCYR+3* |
| LRAD1 | MAIN+2~, ACCYR+1, ACCYR+2, ACCYR+3 |
| >> LRAN | ACCPN+6 |
| >> LRASK | WHAT+5*, WHAT+9*, WHAT+10, WHAT+11, WHAT+12 |
| LRAU | MAIN+1~, ACCPN+9, ACCPN+14, ACCPN+22, ACCPN+34, WHAT+6, SECTION+5*, SECTION+6*, ASK+2, ASK+3 , ASK+10, SAVTXT+3, SAVTXT+4, COMPARE+2, COMPARE+3, COMPARE+25, COMPARE+27 |
| >> LRCAPA | ACCPN+19, SECTION+7 |
| LRCHG | MAIN+2~, COMPARE+1*, COMPARE+9*, COMPARE+11*, COMPARE+13, COMPARE+15*, COMPARE+17, COMPARE+23 |
| LRCT | MAIN+1~, COMPARE+1*, COMPARE+7*, COMPARE+9, COMPARE+10, COMPARE+14* |
| LRDA | MAIN+3~, SUPRPT+12 |
| LRDATA | MAIN+1~, ACCPN+4, ACCPN+6, ACCPN+8 |
| LRDATA(1 | ACCPN+8 |
| >> LRDFN | ACCPN+8*, ACCPN+14, SAVTXT+3, SAVTXT+4, UNLOCK+1 |
| LRDSC | MAIN+2~, ACCPN+35*, ASK2+2!, ASK2+6*, ASK2+7*, ASK2+8*, ASK2+9*, ASK2+12, SAVTXT+9, COMPARE+18 |
| LRDT0 | MAIN+3~ |
| LREDIAG | MAIN+4~, ACCPN+20, ACCPN+24, ACCPN+25, ACCPN+34, ACCPN+43, WHAT+15*, ASK+1, ASK2+10, ASK2+16 |
| LREFPD | MAIN+1~, ASK+2*, ASK+9* |
| LREND | MAIN+1~, ACCPN+1, ACCPN+2*, ACCPN+5*, ACCPN+6*, ACCPN+7* |
| LRESCPT | MAIN+3~, MAIN+5*, ACCPN+44, CPTCHK+2* |
| LRFDA | MAIN+3~, COMPARE+24!, AUDIT+2! |
| LRFDA( | COMPARE+25* |
| LRFDA(1 | AUDIT+7*, AUDIT+8* |
| LRFDA(63 | COMPARE+27* |
| LRFIELD | MAIN+3~ |
| LRFILE | MAIN+2~, SAVTXT+3*, SAVTXT+4*, SAVTXT+6, COMPARE+2*, COMPARE+3*, COMPARE+4, COMPARE+7, COMPARE+8, COMPARE+15 , AUDIT+5*, AUDIT+6, AUDIT+7, AUDIT+8, STORE+4 |
| LRFILE1 | MAIN+3~ |
| LRFLD | MAIN+2~, ACCPN+23*, ACCPN+24, ACCPN+25, ACCPN+26, ACCPN+29, ACCPN+36*, ACCPN+38, ASK2+3, ASK2+4 , ASK2+5, ASK2+6, ASK2+8, ASK2+9, SAVTXT+5, SAVTXT+6, COMPARE+23 |
| LRFLDA | MAIN+2~, ASK2+4*, ASK2+5*, ASK2+8*, ASK2+9*, AUDIT+5 |
| LRFLG | SUPRPT+7~ |
| LRGMDF | MAIN+1~, ACCPN+27, ASK2+1*, ASK2+15*, ASK2+16* |
| >> LRH(0 | ACCPN+4, ACCYR+1, ACCYR+3* |
| >> LRI | ACCPN+8*, ACCPN+14, SAVTXT+3, UNLOCK+1 |
| LRIENS | MAIN+2~, ACCPN+14*, SAVTXT+3*, SAVTXT+4*, SAVTXT+6, COMPARE+25, COMPARE+27, AUDIT+4, STORE+2 |
| LRIENS1 | MAIN+2~, AUDIT+4*, AUDIT+7, AUDIT+8, STORE+1!, STORE+2*, STORE+4 |
| LRIENS2 | MAIN+3~ |
| LRLOCK | MAIN+4~, ACCPN+9*, ACCPN+10, UNLOCK+2 |
| LRMSG | MAIN+1~, ACCPN+11*, ACCPN+12*, ACCPN+13!, TITLE+5*, TITLE+6, TITLE+9!, NOTICE+1~, NOTICE+8, SECTION+10! , SAVTXT+8~, SAVTXT+11 |
| LRMSG(1 | TITLE+6*, TITLE+7*, NOTICE+2*, SECTION+8*, SAVTXT+9* |
| LRMSG(2 | TITLE+8*, NOTICE+3*, SECTION+9*, SAVTXT+10* |
| LRMSG(3 | NOTICE+4* |
| LRMSG(4 | NOTICE+5* |
| LRMSG(5 | NOTICE+6* |
| LRMSG(6 | NOTICE+7* |
| LRNOTXT | MAIN+4~, SAVTXT+1*, SAVTXT+12*, COMPARE+5 |
| LRNOW | SUPRPT+7~ |
| LRNTIME | AUDIT+1~, AUDIT+3*, AUDIT+7 |
| >> LRO(68 | ACCPN+4, SECTION+4*, SECTION+8, ACCYR+1 |
| LRORIEN | MAIN+3~, MAIN+4~, STORE+5! |
| LRORIEN(1 | STORE+2 |
| LRQUIT | MAIN+1~, MAIN+7, MAIN+9, MAIN+11, MAIN+13, MAIN+16, MAIN+18, MAIN+21, ACCPN+2*, ACCPN+16 , ACCPN+21, ACCPN+23, ACCPN+27, ACCPN+31, ACCPN+32, ACCPN+42, TITLE+1*, TITLE+3*, NOTICE+12*, WHAT+14* , SECTION+3*, ASK+8*, ASK+15*, ACCYR+2*, ASK2+14*, COMPARE+1*, COMPARE+6*, AUDIT+6*, SUPRPT+8, SUPRPT+10 , SUPRPT+11, SUPRPT+14, SUPRPT+16 |
| LRQUIT1 | MAIN+4~, TITLE+1*, SUPRPT+5* |
| LRREL | MAIN+1~ |
| LRRLS | SUPRPT+7~, SUPRPT+9* |
| >> LRRLS1 | SUPRPT+9* |
| LRSEL | MAIN+4~, ACCPN+5, ACCPN+6, ACCPN+7 |
| >> LRSF | SAVTXT+3, COMPARE+25, AUDIT+5 |
| >> LRSS | ACCPN+4, ACCPN+26, ACCPN+41, WHAT+7, WHAT+8, SECTION+3, SECTION+6, SECTION+7, UNLOCK+1 |
| LRTMP | MAIN+1~, SAVTXT+6*, SAVTXT+7 |
| LRWM | MAIN+1~, ASK+3*, ASK+16* |
| LRWPROOT | MAIN+3~, STORE+3*, STORE+4 |
| LRX | SUPRPT+7~ |
| LRXTMP | MAIN+2~, COMPARE+8*, COMPARE+11 |
| LRYTMP | MAIN+2~, COMPARE+10*, COMPARE+11 |
| >> SEX | ACCPN+41 |
| U | ACCPN+5, ACCYR+3 |
| >> X | ACCPN+5 |
| XASK | WHAT+1~, WHAT+5*, WHAT+7*, WHAT+8*, WHAT+9 |
| >> Y | TITLE+3, NOTICE+12, WHAT+15, SECTION+3, ASK+8, ASK+9, ASK+15, ASK+16, ASK2+14, ASK2+15 , SUPRPT+5, SUPRPT+6, SUPRPT+12* |
