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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: LRIPOS

Package: Lab Service

Routine: LRIPOS


Information

LRIPOS ;SLC/FHS - POST INIT V 5.2

Source Information

Source file <LRIPOS.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 5 ENT^LRIGCOPY  ^LRIPOS2  ^LRIPOS3  ^LRIPOS4  ^LRIPOSXM  
VA Fileman 3 %XY^%RCR  ^DIE  (,IXALL)^DIK  

Entry Points

Name Comments DBIA/ICR reference
LAM ;
EN ;
END ;
EXC
ENQUE
APGRP ;Checking for LR as an application group for New Person file
1
BXREF ; Setting B Xref for 65.54,.01
VA200
ALPHA ;
VER
FIN
WKL ;

External References

Name Field # of Occurrence
%XY^%RCR EN+19, EXC+2
^DIE APGRP+7
^DIK EN+8, EN+9, 1+2, 1+3, 1+4, 1+5, LAM+1, LAM+2, LAM+3, WKL+7
, WKL+8, WKL+9
IXALL^DIK BXREF+3
ENT^LRIGCOPY EN+2
^LRIPOS2 ENQUE+4
^LRIPOS3 BXREF+5
^LRIPOS4 EN+10
^LRIPOSXM ALPHA+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,"The ASK PROVIDER field (#10) in the Laboratory Site file (#69.9)"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"is set to Yes to comply with OERR Alert requirements",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"^LS(95) global is obsolete, it is replaced by ^LAB(95)",!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !?10,"Moving LAB JOURNAL Data from ^LS(95) to ^LAB(95) ",!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"Transfer complete",!
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!?15,"The global ^LS(95) will be deleted in a later version.",!!
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !!?5,"Updating LR Menu Items ",!
  • Line Location: BXREF+5
Function Call: WRITE
  • Prompt: !?10,"Done",!
  • Line Location: BXREF+5
Function Call: WRITE
  • Prompt: !!," Moving excepted location x-ref to the 2 node.",!
  • Line Location: EXC+0
Function Call: WRITE
  • Prompt: !!,"Removing other obsolete fields ",!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LAM+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: LAM+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"Adding new Workload urgencies to file 62.05 ",!
  • Line Location: WKL+2
Function Call: WRITE
  • Prompt: !!,"Removing can be ordered STAT field for Accession Test Group file",!
  • Line Location: WKL+7
Function Call: WRITE
  • Prompt: !,?5,"Sending Mailman message "
  • Line Location: ALPHA+1
Function Call: WRITE
  • Prompt: !!?10,"I see you are installing Lab for the first time.",!
  • Line Location: ALPHA+2
Function Call: WRITE
  • Prompt: !!?7,"Not able to LOCK the ^VA(200) global ",!,"Please release the LOCK on this global",!
  • Line Location: APGRP+2
Function Call: WRITE
  • Prompt: !,"Adding 'LR' as an application group to the New Person File",!!
  • Line Location: APGRP+3
Function Call: WRITE
  • Prompt: !!?10,"Removing Obsolete ^LAB('X') Global",!!
  • Line Location: FIN+0
Function Call: WRITE
  • Prompt: !,"Post Init Complete",!!
  • Line Location: FIN+1
Function Call: WRITE
  • Prompt: !!?10,$C(7),"Adjusting your Accession file",!!
  • Line Location: ENQUE+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: ENQUE+2
Routine Call
  • DIE
  • Line Location:
    • APGRP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(60.12 END+12!
^DD(62.07 END+3*
^DD(62.1 END+2*, END+5*
^DD(62.4 END+6*, END+7*, END+8*
^DD(62.43 END+4*
^DD(62.46 END+9*
^DD(63.04 EN+2!, VA200*, VA200+1*
^DD(68 END+10*, END+11*
^DD(68.14 END+13!
^DIC("AC" APGRP+1
^DIC(67.9 END+1*
^LAB( EN+6*
^LAB("VERSION" VER!
^LAB("X" FIN!
^LAB(60 - [#60] EN+3!, EN+12, EN+13*
^LAB(62.05 - [#62.05] WKL+1*, WKL+3, WKL+4*
^LAB(64.2 - [#64.2] EN+8
^LAB(64.5 - [#64.5] BXREF+1
^LAB(69.9 - [#69.9] EN+11*, EXC+1!, EXC+2*
^LAB(95 - [#95] EN+16
^LAC("VERSION" VER!
^LAH("LR5XTIME" EN+3!
^LAM("VERSION" VER!
^LAM("VR" EN+5*
^LAM(0 EN+11*
^LAR("VERSION" VER!
^LR("TMP" EN+3!
^LR("VERSION" VER!
^LRD("VERSION" VER!
^LRE("VERSION" VER!
^LRO("VERSION" VER!
^LRO(68 - [#68] ENQUE+2, ENQUE+3!
^LRT("VERSION" VER!
^LS(95 EN+16
^VA(200 - [#200] APGRP+2, APGRP+7
^XTMP634 EN+2!

Label References

Name Line Occurrences
1 BXREF+6
ALPHA WKL+6
APGRP ALPHA+1
ENQUE BXREF+8
VA200 EN+2
VER BXREF+7

Naked Globals

Name Field # of Occurrence
^( WKL+3
^("LR52TIME" EN+3!
^(0 EN+8*, EXC+2, WKL+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X EN+19*, EXC+2*
>> %Y EN+19*, EXC+2*
>> AC EXC+1*, EXC+2
>> CM EN+2*
CNT EN+12*, EN+13!
DA EN+3!, EN+7*, EN+9!*, BXREF+2~, BXREF+3*, 1+2!*, 1+3!*, 1+4!*, 1+5!*, LAM+1!*
, LAM+2!*, LAM+3!*, WKL+7!*, WKL+8!*, WKL+9*, APGRP+4!*
DA(1 EN+7*, EN+9*, BXREF+3*, 1+2*, 1+3*, 1+4*, 1+5*, LAM+1*, LAM+3*, WKL+7*
, WKL+8*, WKL+9*
DA(2 EN+7*
DA(3 EN+9*
DIC APGRP+4!*
DIC(0 APGRP+4*
DIE APGRP+4!*
>> DIFQ EN+1
DIK EN+3!, EN+8*, EN+9!*, BXREF+2~, BXREF+3*, 1+2!*, 1+3*, 1+4*, 1+5*, LAM+1*
, LAM+2*, LAM+3*, WKL+7*, WKL+8*, WKL+9*
DIK(1 BXREF+3*
DLAYGO APGRP+4*, APGRP+7!
DR APGRP+4!, APGRP+5*
DR(1 APGRP+6*
DR(2 APGRP+7*
>> GLO EN+2*
>> GLO1 EN+2*
I EN+12*, EN+13!, END+1*
>> LRAA ENQUE+2*, ENQUE+3
LRDA EN+5~*, EN+6
LRDAI EN+5~, EN+6*
>> LRDT ENQUE+2*, ENQUE+3
>> LRFIRST BXREF+6, ALPHA+2
LRLLOC 1!
>> LRSN ENQUE+2*, ENQUE+3
>> LRTEST ENQUE+3*
>> LRURG WKL+3*
>> LRURGI WKL+3*, WKL+4
>> LRURGN WKL+3*, WKL+4
>> LRVR BXREF+7, WKL+6, WKL+7, ALPHA+1, ENQUE+4
SX EXC+2*, 1!
U EN+8, EN+11, EN+13, EXC+2, WKL+1, WKL+3, WKL+4

Marked Items

Name Field # of Occurrence
$T( EN+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All