Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: LRAPMRL

Package: Lab Service

Routine: LRAPMRL


Information

LRAPMRL ;DALOI/STAFF - AP MODIFY RELEASED REPORT;02/28/12 20:38

Source Information

Source file <LRAPMRL.m>

Call Graph

Call Graph

Call Graph Total: 17

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAPMOD  LRAPMRL  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOTICE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: WHAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SECTION+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPARE+19
Routine Call
  • DIE
  • Line Location:
    • COMPARE+29
Routine Call
  • DIE
  • Line Location:
    • AUDIT+9
Routine Call
  • DIE
  • Line Location:
    • STORE+4
Routine Call
  • DIR
  • Line Location:
    • NOTICE+11
    • WHAT+13
    • ASK+7
    • ASK+14
    • ASK2+13
    • SUPRPT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(69.9 - [#69.9] GET1^DIQ

Global Variables Directly Accessed

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!

Label References

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

Local Variables

Legend:

>> 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*

Marked Items

Name Field # of Occurrence
$T(CLEAN^LRCAPES END+3
$T(ES^LRCAPES CPTCHK+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All