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 ; IHS/DIR/AAB - CREATE OR MODIFY LAB LOCATIONS ; [ 07/09/1998 8:28 AM ]

Source Information

Source file <LRCAPPH2.m>

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

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 3 LR WKLD ACC AREA LOCATION  LR WKLD LOCATION  LR138PO  
IHS Changes To Lab 1 BLR138PO  

Entry Points

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

External References

Name Field # of Occurrence
^DIE ACC+13
EN^DIQ SHOW
^DIR EN+13, DIV+3, SCODE+2, DIS+4, ACC+2, 44+2
$$EXEMPT^SCDXUAPI SCODE+2
$$LOC^SCDXUAPI LOAD+3
$$CJ^XLFSTR EN+3, EN+4, EN+11, EN+12, DIV+1, DIS+2, LOAD+7, 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: !,$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+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("NONE ARE CURRENTLY DEFINED",80)
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("INSTALL PATCH LR*5.2*138",80),!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+14
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+4
Function Call: WRITE
  • Prompt: !!?5,$P(LROK,U,2),!,"LOCATION NOT CREATED",!,$C(7)
  • Line Location: LOAD+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("LAB Location Added",80),!!
  • Line Location: LOAD+7
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+13
    • 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+2
^DIC(4 - [#4] EN+8, DIV+5
^DIC(40.7 - [#40.7] EN+8
^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+16, DETAIL+2
DIV CHK+3, CHK+7
EN EN+16, CHK+4
END EN+3, EN+10, EN+15, DIV+4, DIV+5, SCODE+3, SCODE+4, CHK+2, ACC+3, ACC+11
END0 CHK+6, CHK+7
LOAD CHK+7
SHOW LOAD+6, 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+8*, EN+10
DA LOAD+8!, SHOW!*, END0!, DEND!, ACC+13!*
DIC DIV+2!, LOAD+8!, SHOW!*, END0!, DEND!, 44+1!
DIE LOAD+8!, SHOW!, ACC+13!*
DIR EN+13!, EN+14!, DIV+2!, SCODE+1!, DIS+3!, CHK+1!, LOAD+8!, END0!, DETAIL!, DEND!
, ACC+1!, ACC+6!, ACC+9!
DIR("A" EN+13*, DIV+2*, SCODE+1*, DIS+3*, ACC+1*, ACC+9*, 44+1*
DIR("B" EN+13*, DIS+4*, ACC+9*
DIR("S" DIV+3*, SCODE+2*, 44+1*
DIR(0 EN+13*, DIV+2*, SCODE+1*, DIS+4*, ACC+1*, 44+1*
>> DIRUT EN+15, DIV+4, SCODE+3, CHK+2, DETAIL+1, ACC+3, ACC+11
DR SHOW*, END0!, ACC+13*
>> DTOUT EN+15, DIV+4, SCODE+3, CHK+2, DETAIL+1, ACC+3, ACC+11
>> DUOUT EN+15, 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+4, LOAD+8, END+1
LRDIV DIV+5*, DIS+1, END0!
LRDIVN DIV+5*, LOAD+3, END0!
LRLOC END0+1!, ACC+12*, ACC+13
LRNAME DIS+1*, DIS+3, CHK+4, CHK+5, LOADB*, LOAD+3, END0!
LROK LOAD+3*, LOAD+4, LOAD+5, SHOW, DETAIL+2*, DEND!, ACC+5*, ACC+9!
>> LRPKG EN+1*, EN+2*, EN+3, LOAD+3
LRSCODE SCODE+4*, DIS+1, LOAD+3, END0!
LRSCODEN SCODE+4*, END0!
S END0!
SCERR END0!
U EN+5, EN+8, DIV+5, SCODE+4, LOAD+5, ACC+7, ACC+9
>> X EN+5*, EN+8, LOAD+2*
>> Y EN+16, 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