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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRAPBK

Package: Lab Service

Routine: LRAPBK


Information

LRAPBK ;DALOI/STAFF - AP LOG BOOK ;02/21/13 08:08

Source Information

Source file <LRAPBK.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Lab Service 9 ^LRAP  (,AU)^LRAPBK1  D^LRAUAW  (D,F,L,M,S,V,XR)^LRU  GETDATA^LRUEPR  (BEG,END)^LRUTL  IO^LRWU  ENA^LRWU4  
PT^LRX  
VA FileMan 2 $$GET1^DID  ^DIR  
Kernel 1 $$FMTE^XLFDT  
PCE Patient Care Encounter 1 GETCPT^PXAPIOE  
Toolkit 1 $$GET^XPAR  

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 LRAPBK  LRAPBK1  

Entry Points

Name Comments DBIA/ICR reference
N1
N2
QUE ; Print the log book
ACC ; Print log book entry for a single accession
; Called from above.
ACCB ; Build variables for printing.
SH ;
D ;
H ;
H1 ;
S ;
AS
END ;
SRCASE ; Print related surgery case info

External References

Name Field # of Occurrence
$$GET1^DID SRCASE+27
^DIR LRAPBK+16, LRAPBK+22, LRAPBK+31
^LRAP LRAPBK+12
^LRAPBK1 SH+78
AU^LRAPBK1 SH+83
D^LRAUAW SH+56
D^LRU SH+57
F^LRU H+2
L^LRU QUE+6
M^LRU H+1
S^LRU QUE+6
V^LRU END+1
XR^LRU LRAPBK+12, ACCB+11
GETDATA^LRUEPR SRCASE+10, SRCASE+24
BEG^LRUTL N2+2
END^LRUTL QUE+10, ACC+16
IO^LRWU ACCB+15
ENA^LRWU4 ACC+7
PT^LRX SH+5
GETCPT^PXAPIOE SH+39
$$FMTE^XLFDT LRAPBK+26, LRAPBK+33, SH+15, SH+25
$$GET^XPAR QUE+3, SRCASE+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRO(68)," LOG BOOK"
  • Line Location: LRAPBK+13
Function Call: WRITE
  • Prompt: $C(7)," No entries for ",LRH(0)
  • Line Location: LRAPBK+34
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Go to Acc #: LAST // "
  • Variable: X
  • Timeout: DTIME
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !,"Doesn't exist."
  • Line Location: ACC+9
Function Call: WRITE
  • Prompt: !,"Incomplete accession - unable to identify results."
  • Line Location: ACC+12
Function Call: WRITE
  • Prompt: !,"This option only supports SP, CY, EM and AU subscripted accessions."
  • Line Location: ACC+13
Function Call: WRITE
  • Prompt: $E(LRP,1,18),?34,SSN(1),?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1),!?5,"Patient ID: ",SSN
  • Line Location: SH+27
Function Call: WRITE
  • Prompt: !?5,LRLLOC("TY")
  • Line Location: SH+30
Function Call: WRITE
  • Prompt: ?29,"Accession [UID]: "_$P(LRX(0),"^",6)_" ["_$P(LRX("ORU"),"^")_"]"
  • Line Location: SH+32
Function Call: WRITE
  • Prompt: !,"CPT Code: "
  • Line Location: SH+43
Function Call: WRITE
  • Prompt: $P(LRENC(IEN),U)_"X"_$P(LRENC(IEN),U,16)_" "
  • Line Location: SH+45
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: SH+45
Function Call: WRITE
  • Prompt: !,"Date specimen taken: ",LRSPDT
  • Line Location: SH+48
Function Call: WRITE
  • Prompt: ?39," Entered by: ",$P(^(0),"^")
  • Line Location: SH+50
Function Call: WRITE
  • Prompt: !?39,"Released by: ",P(13)
  • Line Location: SH+52
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(4,Y,0)),U)
  • Line Location: SH+53
Function Call: WRITE
  • Prompt: !?14,"Date died: ",Y,?49,"Path resident:",?64,P(9)
  • Line Location: SH+58
Function Call: WRITE
  • Prompt: !,?$S($L(Z(1))<61:14,1:2),Z(1)
  • Line Location: SH+68
Function Call: WRITE
  • Prompt: !?14,"SNOMED codes:"
  • Line Location: SH+77
Function Call: WRITE
  • Prompt: !?14,"SNOMED codes:"
  • Line Location: SH+82
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: SH+88
Function Call: WRITE
  • Prompt: !?4,^LR(LRDFN,LRSS,LRI,Z(1),Z,0)
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !,"LOG BOOK entry for accession ",LRACC,!
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,") LOG BOOK for ",LRH(0),!
  • Line Location: H+4
Function Call: WRITE
  • Prompt: "# =Demographic data in file other than PATIENT file"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !,"Date",?8,"Num",?14,"Patient",?35,"ID",?40,"LOC",?49,"PHYSICIAN",?67,"PATHOLOGIST",!,LR("%")
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !,$J(T,5),?7,$J(LRAN,5),?14
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: $E(LRP,1,18),?34,SSN(1),?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1)
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: AS+0
Function Call: WRITE
  • Prompt: ?14,"Entered by: ",Y
  • Condition for execution: Y]""
  • Line Location: AS+0
Function Call: WRITE
  • Prompt: ?49,"Autopsy Asst: ",LR("ASST")
  • Condition for execution: LR("ASST")]""
  • Line Location: AS+0
Function Call: WRITE
  • Prompt: !,"Related Surgery Case #"_$P(LRSRTN,";")
  • Line Location: SRCASE+12
Function Call: WRITE
  • Prompt: !,$P(LRSRTN,";",3)
  • Line Location: SRCASE+13
Function Call: WRITE
  • Prompt: !,LRFIELDNAME_": "
  • Line Location: SRCASE+29
Function Call: WRITE
  • Prompt: LRX
  • Line Location: SRCASE+30
Function Call: WRITE
  • Prompt: !,?LRTAB,LRY
  • Line Location: SRCASE+33
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: $X>LRTAB
  • Line Location: SRCASE+34
Function Call: WRITE
  • Prompt: LRY
  • Line Location: SRCASE+34
Routine Call
  • DIR
  • Line Location:
    • LRAPBK+16
    • LRAPBK+22
    • LRAPBK+31

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] ACCB+7, SH+53
^DIC(5 - [#5] ACCB+7
^LR - [#63] LRAPBK+34, QUE+8, SH+2, SH+10, SH+11, SH+17, SH+18, SH+65, SH+67, SH+75
, SH+80, D+3, SRCASE+8, SRCASE+9, SRCASE+20, SRCASE+22
^LRO(68 - [#68] ACC+9, ACC+11, ACCB+3, ACCB+5, SH+28, SH+34, SH+36, SH+49, SH+53, AS
^VA(200 - [#200] SH+50, S+1

Label References

Name Line Occurrences
ACC LRAPBK+24
ACCB ACC+14
AS SH+59
D SH+85
END LRAPBK+12, LRAPBK+17, LRAPBK+35, N1, N2, N2+2, QUE+10, ACC+16
H QUE+6, SH+3, H1+1
H1 SH+66, SH+76, SH+81, D+3, SRCASE+21
N1 N1
N2 N2
S SH+12, SH+13, SH+14, SH+19, SH+20, SH+21, SH+22, AS
SH QUE+8
SRCASE SH+70

Naked Globals

Name Field # of Occurrence
^( SH+2
^(0 SH+50, AS
^(1 ACCB+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ACCB+14*
>> DA SH+56*
DFN ACC+2~
DIR LRAPBK+11~, LRAPBK+20!, LRAPBK+28!
DIR("A" LRAPBK+15*, LRAPBK+21*, LRAPBK+29*
DIR("B" LRAPBK+15*, LRAPBK+21*, LRAPBK+29*
DIR(0 LRAPBK+15*, LRAPBK+21*, LRAPBK+29*
DIRUT LRAPBK+11~, LRAPBK+17, LRAPBK+23, LRAPBK+30, LRAPBK+32, LRAPBK+35
DT LRAPBK+26
DTIME N1, N2
DTOUT LRAPBK+11~
DUOUT LRAPBK+11~
DUZ(2 ACCB+7, SH+53
IEN SH+35~, SH+37*, SH+44*, SH+45*
IO QUE+6
IOF QUE+9
IOM SRCASE+30, SRCASE+33
IOSL SH+3, SH+66, SH+76, SH+81, D+3, SRCASE+21
IOST QUE+9, H+1
LR ACC+2~
LR("%" SH+88, H+6
LR("ASST" SH+22*, AS
LR("F" QUE+6*, H+1
LR("Q" QUE+8, SH+2, SH+3, SH+65, SH+66, SH+69, SH+72, SH+75, SH+76, SH+80
, SH+81, SH+85, SH+87, D+1, D+3, H+1, H1+1, SRCASE+18, SRCASE+21
LR(63 SH+57
LRAA ACC+2~, ACC+9, ACC+11, ACCB+3, ACCB+5, SH+28, SH+34, SH+36, SH+49, SH+53
, AS
LRAA(1 ACCB+4*
LRAA(2 ACCB+4*
LRAA(4 ACCB+7*
LRAA(5 ACCB+7*
LRAA(6 ACCB+7*
LRABV LRAPBK+34, QUE+8, ACC+2~, ACCB+4*, SH+2, H+4
LRACC ACC+2~, ACC+6*, ACCB+5*, H+3
LRAD ACC+2~, ACC+9, ACC+11, ACCB+5, ACCB+9
LRAN QUE+7*, QUE+8*, ACC+2~, ACC+8, ACC+9, ACC+11, ACCB+5, ACCB+10, SH+2, SH+26
, SH+28, SH+34, SH+36, SH+49, SH+53, H1+2, AS
LRAX ACC+2~
LRB LRAPBK+11~, LRAPBK+18*, ACC+4, ACC+6*, SH+75, SH+80
LRBSAV ACC+2~, ACC+4*, ACC+6
LRCAPA ACC+2~
LRDATA SRCASE+2~, SRCASE+10, SRCASE+23!, SRCASE+24
LRDATA( SRCASE+11, SRCASE+28
LRDFN ACC+2~, ACC+10!, ACC+11*, ACC+12, SH+2*, SH+10, SH+11, SH+17, SH+18, SH+56
, SH+65, SH+67, SH+75, SH+80, D+3, SRCASE+7, SRCASE+8, SRCASE+9, SRCASE+19, SRCASE+20
, SRCASE+22
LRDPAF ACC+2~
LRDPF ACC+2~, ACC+10!, SH+4!, SH+8
LRENC SH+35~
LRENC( SH+41*, SH+45
LRENC(0 SH+42
LREND ACC+2~, ACC+5, ACC+6*, ACC+8*, ACCB+2~, ACCB+13*, SH+6!
LRFIELDNAME SRCASE+2~, SRCASE+27*, SRCASE+29
LRFIELDNUM SRCASE+2~, SRCASE+26*, SRCASE+27
LRH ACC+2~
LRH(0 LRAPBK+26*, LRAPBK+29, LRAPBK+30, LRAPBK+33*, LRAPBK+34!, ACCB+9*, H+4
LRH(2 LRAPBK+26*, LRAPBK+33*, LRAPBK+34, QUE+6, QUE+8, ACCB+9*, SH+2, SH+28, SH+34, SH+36
, SH+53
>> LRI SH+2*, SH+10, SH+11, SH+65, SH+67, SH+75, D+3, SRCASE+7, SRCASE+19
LRIDIV ACC+2~
LRIDT ACC+2~, ACC+10!, ACC+11*, ACC+12
LRIENS SRCASE+2~, SRCASE+7*, SRCASE+8, SRCASE+9, SRCASE+19*, SRCASE+20, SRCASE+22
LRJ SRCASE+2~, SRCASE+9*, SRCASE+18*, SRCASE+19, SRCASE+26
LRK SRCASE+2~, SRCASE+22*, SRCASE+31*, SRCASE+32
LRLLOC SH+4!, SH+12*, SH+19*, SH+27, H1+4
LRLLOC("TY" SH+28*, SH+29*, SH+30
>> LRN(1 N1+1*, QUE+7, ACCB+10*
>> LRN(2 N2+2*, QUE+8, ACCB+10*
LRO ACC+2~
LRO(68 LRAPBK+13, ACCB+4*, H+4
>> LRP SH+8*, SH+27, H1+4
LRPSNM QUE+1~, QUE+3*, QUE+4*
LRREF SRCASE+2~, SRCASE+9*, SRCASE+10, SRCASE+11, SRCASE+22*, SRCASE+24, SRCASE+28
LRSCR ACC+2~, ACC+4*, ACC+7
LRSF ACC+2~
LRSINGLE ACCB+2~, ACCB+13*, H+3
LRSPDT SH+15*, SH+48, END+1!
LRSRTN SRCASE+2~, SRCASE+11*, SRCASE+12, SRCASE+13
LRSS ACC+4, ACC+10!, ACC+11*, ACC+12, ACC+13, ACCB+4, SH+2, SH+10, SH+11, SH+17
, SH+47, SH+55, SH+62, SH+65, SH+67, SH+75, SH+80, SH+85, D+3, SRCASE+7
, SRCASE+19, SRCASE+25
LRSTOP ACC+5, ACC+6*, ACCB+2~, ACCB+13*
LRSTR SH+35~, SH+36*, SH+37
LRSUBFILE SRCASE+2~, SRCASE+25*, SRCASE+27
LRT ACC+2~
LRTAB SRCASE+2~, SRCASE+29*, SRCASE+30, SRCASE+33, SRCASE+34
LRU ACC+2~
LRVBY ACC+2~, ACC+6*
>> LRW QUE+6*, SH+49, AS
LRWHO ACC+2~
LRX ACCB+2~, ACCB+3*, ACCB+4, SH+1~, SH+35~, SH+37*, SH+39, SH+41, SRCASE+2~, SRCASE+28*
, SRCASE+30, SRCASE+31, SRCASE+32
LRX("ORU" SH+11*, SH+18*, SH+32
LRX(0 SH+11*, SH+18*, SH+32
>> LRXREF LRAPBK+34, QUE+8, SH+2
LRY SH+35~, SH+38!, SH+40*, SH+41*, SRCASE+2~, SRCASE+32*, SRCASE+33, SRCASE+34
LRY( SH+41
>> P(0 SH+8*, SH+26, H1+3
>> P(1 SH+14*, SH+23*, SH+27, H1+4
>> P(13 SH+2*, SH+15*, SH+52
>> P(2 SH+13*, SH+20*, SH+27, H1+4
>> P(9 QUE+6*, SH+21*, SH+58
>> PNM SH+8
>> POP N2+2
>> SSN SH+27
>> SSN(1 SH+27, H1+4
>> T SH+25*, SH+26, H1+2
U N1, N2, ACCB+4, SH+12, SH+13, SH+14, SH+15, SH+19, SH+20, SH+21
, SH+22, SH+28, SH+45, SH+53, S+1
X N1*, N1+1, N2*, N2+2, ACC+2~, ACCB+7*, SH+11*, SH+12, SH+13, SH+14
, SH+15*, SH+18*, SH+19, SH+20, SH+21, SH+22, SH+23*, SH+25, SH+35~
Y LRAPBK+12, LRAPBK+18, LRAPBK+24, LRAPBK+33, ACC+2~, SH+12*, SH+13*, SH+14*, SH+15, SH+19*
, SH+20*, SH+21*, SH+22*, SH+23, SH+35~, SH+49*, SH+50, SH+53*, SH+57*, SH+58
, S+1*, AS*
Z SH+63~, SH+64*, SH+65*, SH+67, D+2*, D+3*
Z(1 SH+67*, SH+68, D+1*, D+3
>> ZTDESC N2+2*
>> ZTRTN N2+2*, ACCB+14*
>> ZTSAVE("DFN" ACCB+14*
>> ZTSAVE("LR*" N2+2*, ACCB+14*
>> ZTSK N2+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All