Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls