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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRCAPPH2

Package: Lab Service

Routine: LRCAPPH2


Information

LRCAPPH2 ;DALISC/FHS - CREATE OR MODIFY LAB LOCATIONS

Source Information

Source file <LRCAPPH2.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIE  EN^DIQ  ^DIR  
Kernel 1 $$CJ^XLFSTR  
Scheduling 1 ($$EXEMPT,$$LOC)^SCDXUAPI  

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: 3

Package Total Caller Graph
Lab Service 3 LR WKLD ACC AREA LOCATION  LR WKLD LOCATION  LR138PO  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DIV ;
SCODE ;
DIS ;
CHK ;
LOADB
LOAD ;
SHOW
END ;
END0
DETAIL
DEND
ACC ;
44 ;

External References

Name Field # of Occurrence
^DIE ACC+13
EN^DIQ SHOW
^DIR EN+10, DIV+3, SCODE+2, DIS+4, ACC+2, 44+2
$$EXEMPT^SCDXUAPI SCODE+2
$$LOC^SCDXUAPI LOAD+2
$$CJ^XLFSTR EN+3, EN+4, EN+8, EN+9, DIV+1, DIS+2, LOAD+1, LOAD+6, ACC+6, ACC+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Not able to find 'LAB SERVICE' in your Package (#9.4) file.",80),!,$$CJ^XLFSTR("Contact your IRM Service !!",80),!!,$C(7)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("List of already defined Laboratory OOS Locations",80),!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$P(X,U),?32,$P($G(^DIC(4,+$P(X,U,4),99)),U),?40,$P($G(^DIC(40.7,+$P(X,U,7),0)),U,2)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("NONE ARE CURRENTLY DEFINED",80)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("INSTALL PATCH LR*5.2*138",80),!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" You may define a new Laboratory OOS Location ",80),!
  • Line Location: DIV+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ONCE DEFINED - IT CAN NOT BE DELETED",80),!
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: @IOF,!?20,LRNAME,!?5," This location is already defined ",!,$C(7)
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Load SD*5.3*63 Patch",80),!!
  • Line Location: LOAD+1
Function Call: WRITE
  • Prompt: !,"LROK = ",LROK
  • Line Location: LOAD+3
Function Call: WRITE
  • Prompt: !!?5,$P(LROK,U,2),!,"LOCATION NOT CREATED",!,$C(7)
  • Line Location: LOAD+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("LAB Location Added",80),!!
  • Line Location: LOAD+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: @IOF,!,$$CJ^XLFSTR("Current Laboratory OOS Location",80),!
  • Line Location: ACC+6
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("For [ "_$P(Y,U,2)_" ] Accession Area ",80)
  • Line Location: ACC+7
Function Call: WRITE
  • Prompt: !?10,"NO SELECTION MADE ",!!
  • Line Location: ACC+10
Function Call: WRITE
  • Prompt: !?10,"DONE",!
  • Line Location: ACC+14
Routine Call
  • DIE
  • Line Location:
    • ACC+13
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • DIV+3
    • SCODE+2
    • DIS+4
    • ACC+2
    • 44+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^LRO(68 - [#68] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" LOAD+1
^DIC(4 - [#4] EN+6, DIV+5
^DIC(40.7 - [#40.7] EN+6
^DIC(9.4 - [#9.4] EN+1, EN+2
^LAB(69.9 - [#69.9] ACC+9
^LRO(68 - [#68] ACC+5, ACC+9
^SC - [#44] EN+5, ACC+9
^SC("B" CHK+4, LOADB

Label References

Name Line Occurrences
44 DETAIL, ACC+9
ACC ACC+10, ACC+14
DEND DETAIL+1
DETAIL EN+13, DETAIL+2
DIV CHK+3, CHK+7
EN EN+13, CHK+4
END EN+3, EN+7, EN+12, DIV+4, DIV+5, SCODE+3, SCODE+4, CHK+2, ACC+3, ACC+11
END0 CHK+6, CHK+7
LOAD CHK+7
SHOW LOAD+5, DETAIL+2, ACC+8

Naked Globals

Name Field # of Occurrence
^( EN+5
^(0 EN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT EN+5*, EN+6*, EN+7
DA LOAD+7!, SHOW!*, END0!, DEND!, ACC+13!*
DIC DIV+2!, LOAD+7!, SHOW!*, END0!, DEND!, 44+1!
DIE LOAD+7!, SHOW!, ACC+13!*
DIR EN+10!, EN+11!, DIV+2!, SCODE+1!, DIS+3!, CHK+1!, LOAD+7!, END0!, DETAIL!, DEND!
, ACC+1!, ACC+6!, ACC+9!
DIR("A" EN+10*, DIV+2*, SCODE+1*, DIS+3*, ACC+1*, ACC+9*, 44+1*
DIR("B" EN+10*, DIS+4*, ACC+9*
DIR("S" DIV+3*, SCODE+2*, 44+1*
DIR(0 EN+10*, DIV+2*, SCODE+1*, DIS+4*, ACC+1*, 44+1*
>> DIRUT EN+12, DIV+4, SCODE+3, CHK+2, DETAIL+1, ACC+3, ACC+11
DR SHOW*, END0!, ACC+13*
>> DTOUT EN+12, DIV+4, SCODE+3, CHK+2, DETAIL+1, ACC+3, ACC+11
>> DUOUT EN+12, DIV+4, SCODE+3, CHK+2, DETAIL+1, ACC+3, ACC+11
>> I EN+5*
IOF CHK+5, CHK+7, ACC+6
LRAA END0+1!, ACC+4*, ACC+5, ACC+9, ACC+13
>> LRDBUG LOAD+3, LOAD+7, END+1
LRDIV DIV+5*, DIS+1, END0!
LRDIVN DIV+5*, LOAD+2, END0!
LRLOC END0+1!, ACC+12*, ACC+13
LRNAME DIS+1*, DIS+3, CHK+4, CHK+5, LOADB*, LOAD+2, END0!
LROK LOAD+2*, LOAD+3, LOAD+4, SHOW, DETAIL+2*, DEND!, ACC+5*, ACC+9!
>> LRPKG EN+1*, EN+2*, EN+3, LOAD+2
LRSCODE SCODE+4*, DIS+1, LOAD+2, END0!
LRSCODEN SCODE+4*, END0!
S END0!
SCERR END0!
U EN+5, EN+6, DIV+5, SCODE+4, LOAD+4, ACC+7, ACC+9
>> X EN+5*, EN+6, LOAD+1*
>> Y EN+13, DIV+5, SCODE+4, CHK+3, DETAIL+2, ACC+3, ACC+4, ACC+7, ACC+10, ACC+11
, ACC+12
>> Y(0 SCODE+4
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 |  Naked Globals |  Local Variables  | All