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 ;AVAMC/REG/CYM - AP LOG BOOK ;2/9/98 15:36 ; [ 04/11/2003 9:58 AM ]

Source Information

Source file <LRAPBK.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 6 ^LRAP  (,AU)^LRAPBK1  D^LRAUAW  (D,F,L,M,S,V,XR,YN)^LRU  (BEG,END)^LRUTL  ($$Y2K,PT)^LRX  
PCE Patient Care Encounter 1 GETCPT^PXAPIOE  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAPBK  LRAPBK1  

Entry Points

Name Comments DBIA/ICR reference
END
D
H
H1 ;D H Q:LR("Q") W !,$J(T,5),?7,$J(LRAN,5),?14 W:P(0)'="PATIENT" "#" W $E(LRP,1,18),?34,SSN(1),?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1) Q
AS
S
SH
QUE
ASK
N1
N2

External References

Name Field # of Occurrence
^%DT LRAPBK+6, ASK
^LRAP LRAPBK+5
^LRAPBK1 SH+25
AU^LRAPBK1 SH+26
D^LRAUAW SH+23
D^LRU LRAPBK+6, ASK, SH+23
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
XR^LRU LRAPBK+5
YN^LRU LRAPBK+7, LRAPBK+8, LRAPBK+9
BEG^LRUTL N2+1
END^LRUTL QUE+2
$$Y2K^LRX SH+4
PT^LRX SH+2
GETCPT^PXAPIOE SH+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRO(68)," LOG BOOK"
  • Line Location: LRAPBK+6
Function Call: WRITE
  • Prompt: !!,"Print SNOMED codes if entered "
  • Line Location: LRAPBK+7
Function Call: WRITE
  • Prompt: !,"Print only Topography and Morphology codes "
  • Line Location: LRAPBK+8
Function Call: WRITE
  • Prompt: !!,"Log book year: ",LRH(0)," OK "
  • Line Location: LRAPBK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No entries for ",LRH(0)
  • Line Location: ASK+1
Function Call: READ
  • Prompt: "Start with Acc #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+0
Function Call: READ
  • Prompt: "Go to Acc #: LAST // "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: N2+0
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),!?10,"SSN: ",SSN
  • Line Location: SH+7
Function Call: WRITE
  • Prompt: $E(LRP,1,18),?34,HRCN,?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1)
  • Line Location: SH+9
Function Call: WRITE
  • Prompt: !?5,LRLLOC("TY")
  • Line Location: SH+13
Function Call: WRITE
  • Prompt: ?29,"UID: ",^(.3)
  • Line Location: SH+14
Function Call: WRITE
  • Prompt: $P(LRENC(IEN),U)_"X"_$P(LRENC(IEN),U,16)_" "
  • Line Location: SH+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: SH+19
Function Call: WRITE
  • Prompt: !,"Date specimen taken:",LRSPDT
  • Line Location: SH+20
Function Call: WRITE
  • Prompt: ?37,"Entered by:",$P(^(0),"^")
  • Line Location: SH+20
Function Call: WRITE
  • Prompt: !?37,"Released by:",P(13)
  • Line Location: SH+21
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(4,Y,0)),U)
  • Line Location: SH+22
Function Call: WRITE
  • Prompt: !?14,"Date died: ",Y,?49,"Path resident:",?64,P(9)
  • Line Location: SH+23
Function Call: WRITE
  • Prompt: !?2
  • Line Location: SH+24
Function Call: WRITE
  • Prompt: ?14
  • Condition for execution: $L(Z(1))<61
  • Line Location: SH+24
Function Call: WRITE
  • Prompt: Z(1)
  • Line Location: SH+24
Function Call: WRITE
  • Prompt: !?14,"SNOMED codes:"
  • Line Location: SH+25
Function Call: WRITE
  • Prompt: !?14,"SNOMED codes:"
  • Line Location: SH+26
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: SH+28
Function Call: WRITE
  • Prompt: !?4,^LR(LRDFN,LRSS,LRI,Z(1),Z,0)
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,") LOG BOOK for ",LRH(0),!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: "# =Demographic data in file other than PATIENT file"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Date",?8,"Num",?14,"Patient",?35,"ID",?40,"LOC",?49,"PHYSICIAN",?67,"PATHOLOGIST",!,LR("%")
  • Line Location: H+3
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+0
Function Call: WRITE
  • Prompt: $E(LRP,1,18),?34,HRCN,?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1)
  • Line Location: H1+2
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] SH+22
^LR - [#63] ASK+1, QUE+1, SH, SH+4, SH+5, SH+24, SH+25, SH+26, D
^LRO(68 - [#68] SH+11, SH+14, SH+17, SH+20, SH+22, AS
^VA(200 - [#200] SH+20, S

Label References

Name Line Occurrences
AS SH+23
ASK ASK+1
D SH+27
END LRAPBK+5, LRAPBK+7, LRAPBK+8, LRAPBK+9, ASK, N1, N2, N2+1, QUE+2
H QUE, SH+1, H1+2
H1 SH+24, SH+25, SH+26, D
N1 N1
N2 N2
S SH+4, SH+5, AS
SH QUE+1

Naked Globals

Name Field # of Occurrence
^( SH, SH+14
^("AU" SH+5
^("PCE" SH+17
^(0 SH+4, SH+20, AS

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRAPBK+7*, LRAPBK+8*, LRAPBK+9*, ASK, ASK+1*
%DT LRAPBK+6*, ASK*!
%DT("A" ASK*
>> DA SH+23*
DT LRAPBK+6
DTIME N1, N2
DUZ(2 SH+22
>> HRCN SH+9, H1+2
IEN SH+16~, SH+18*, SH+19*
IO QUE
IOF QUE+2
IOSL SH+1, SH+24, SH+25, SH+26, D
IOST QUE+2, H
>> LR("%" SH+28, H+3
>> LR("ASST" SH+5*, AS
>> LR("F" QUE*, H
>> LR("Q" QUE+1, SH, SH+1, SH+24, SH+25, SH+26, SH+27, SH+28, D, H
, H1+2
>> LR(63 SH+23
>> LRAA SH+11, SH+14, SH+17, SH+20, SH+22, AS
>> LRABV ASK+1, QUE+1, SH, H+1
>> LRAN QUE+1*, SH, SH+9, SH+11, SH+14, SH+17, SH+20, SH+22, H1+2, AS
>> LRB LRAPBK+7*, LRAPBK+8, SH+25, SH+26
>> LRB(1 LRAPBK+8*
>> LRDFN SH*, SH+4, SH+5, SH+23, SH+24, SH+25, SH+26, D
LRDPF SH+2!, SH+3
LRENC SH+16~
LRENC( SH+19
LRENC(0 SH+19
LREND SH+2!
>> LRH(0 LRAPBK+6*, LRAPBK+9, ASK*, ASK+1, H+1
>> LRH(2 LRAPBK+6*, ASK*, ASK+1, QUE, QUE+1, SH, SH+11, SH+14, SH+17, SH+22
>> LRI SH*, SH+4, SH+24, SH+25, D
LRLLOC SH+2!, SH+4*, SH+5*, SH+9, H1+2
LRLLOC("TY" SH+11*, SH+12*, SH+13
>> LRN(1 N1+1*, QUE+1
>> LRN(2 N2+1*, QUE+1
>> LRO(68 LRAPBK+6, H+1
>> LRP SH+3*, SH+9, H1+2
LRSPDT SH+4*, SH+20, END!
>> LRSS SH, SH+4, SH+20, SH+23, SH+24, SH+25, SH+26, SH+27, D
LRSTR SH+16~, SH+17*, SH+18
>> LRW QUE*, SH+20, AS
LRX SH+16~, SH+18*
>> LRXREF ASK+1, QUE+1, SH
>> P(0 SH+3*, SH+9, H1+2
>> P(1 SH+4*, SH+5*, SH+9, H1+2
>> P(13 SH*, SH+4*, SH+21
>> P(2 SH+4*, SH+5*, SH+9, H1+2
>> P(9 QUE*, SH+5*, SH+23
>> PNM SH+3
>> POP N2+1
>> T SH+6*, SH+9, H1+2
U N1, N2, SH+4, SH+5, SH+11, SH+19, SH+22, S
X LRAPBK+6*, N1*, N1+1, N2*, N2+1, SH+4*, SH+5*, SH+6, SH+16~
Y LRAPBK+5, LRAPBK+6, ASK, SH+4*, SH+5*, SH+16~, SH+20*, SH+22*, SH+23*, S*
, AS*
>> Z SH+24*, D*
>> Z(1 SH+24*, D*
>> ZTDESC N2+1*
>> ZTRTN N2+1*
>> ZTSAVE("LR*" N2+1*
>> ZTSK N2+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All