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: LRCYPCT

Package: Lab Service

Routine: LRCYPCT


Information

LRCYPCT ; IHS/DIR/AAB - CYTOPATH %POS,NEG,SUSP, & UNSAT 8/13/95 15:41 ; [ 07/22/2002 1:16 PM ]

Source Information

Source file <LRCYPCT.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 3 ^LRAP  (B,F,L,M,S,V,XR,YN)^LRU  (BEG,END)^LRUTL  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPCYPCT  

Entry Points

Name Comments DBIA/ICR reference
LRDFN
DATE
SET
TO
ASK
TG
OUT
CK
C
END
G
SHW
I
H
M
L
P
S
T
H2
H1
QUE

External References

Name Field # of Occurrence
^%ZIS LRCYPCT+3
^LRAP LRCYPCT+3
B^LRU DATE
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU OUT, END
XR^LRU QUE
YN^LRU LRCYPCT+4, TO, DATE
BEG^LRUTL DATE+1
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,LRO(68)," (",LRABV,") Cytology Specimens:"
  • Line Location: LRCYPCT+3
Function Call: WRITE
  • Prompt: !,"Use morphology list "
  • Line Location: LRCYPCT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TO+0
Function Call: WRITE
  • Prompt: !,"Use topography category list "
  • Line Location: TO+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"Include locations for each morphology "
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,LRN(LRN,0)," (",LRN,"): ",?55,$J(S,5)
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !!,"Total specimens found: ",?55,$J(LR,5)
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?36,$J(X,5)," (",$J(X/LR*100,4,1),"%)"
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !?3,$P(LRA(B),"^"),?36,$J(T,5)," (",$J(T/S*100,4,1),"%)"
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !?5,$E(LRL,1,23),?30,$J(L,3)
  • Line Location: L+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Select 1 or more characters of SNOMED TOPOGRAPHY code (Choice# ",B,"): "
  • Line Location: ASK+0
Function Call: READ
  • Prompt: "ENTER IDENTIFYING COMMENT: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X(1)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!!,"You must enter an identifying comment <ENTRY DELETED>",!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter free text 2-30 characters",!," (Ex. for 2 you may want to enter Respiratory System)",!
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,LRO(68)," Counts From ",LRSTR," To ",LRLST,!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?5,"Location",?25,"Location Count"
  • Condition for execution: LRP
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?55,"Count",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LRN(LRN,0),?55,$J(S,5)
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !?3,$P(LRA(B),U),?36,$J(T,5)," (",$J(T/S*100,4,1),"%)"
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !!,$C(7),?12,"Please have appropriate person enter missing SNOMED code",!?24,"in the MORPHOLOGY FIELD file (#61.1)"
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter up to 6 characters.",!,"Entry can only contain digits, letters 'X' and 'Y'.",!,"One character entered -> most general All 6 characters -> most specific",!
  • Line Location: SHW+0
Function Call: WRITE
  • Prompt: !,X," ",E
  • Line Location: SET+0
Function Call: WRITE
  • Prompt: !,LRA(B)
  • Line Location: M+0
Routine Call
  • %ZIS
  • Line Location:
    • LRCYPCT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] TG
^LAB(61.1 - [#61.1] LRCYPCT+5, M
^LR - [#63] QUE+1, LRDFN, I, T, G, G+1
^LRO(69.2 - [#69.2] LRCYPCT+4, TO, SET, M
^TMP($J QUE!, QUE+2!, G, G+1, P, S, L

Label References

Name Line Occurrences
ASK TO+1, ASK+1, C
C C+1
CK ASK+1
DATE TO
END LRCYPCT+3, LRCYPCT+4, TO, DATE, DATE+1, QUE+2
G TG
H QUE, P, P+1, H1
H1 S, H2
H2 L
I LRDFN
L S
LRDFN QUE+1
M LRCYPCT+4
OUT LRCYPCT+5
P QUE+2
S P
SET TO
SHW CK
T I
TG T
TO LRCYPCT+4

Naked Globals

Name Field # of Occurrence
^( T, G*, G+1*, P, S, L
^(0 LRCYPCT+5, TG

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRCYPCT+4*, TO*, DATE*
>> A TG*, G, G+1, P*
>> A("B" ASK!, ASK+1, CK*, CK+1*, SHW
>> B TO+1*, DATE, P+1*, S*, L, ASK, H2, SET*, SET+1*, M*
>> C L*, SET*
DTIME ASK, C
>> E TG*, SET*
>> I CK+1*
>> I(1 CK+1*
IO QUE
IOF LRCYPCT+3
>> IOP LRCYPCT+3*
IOSL P, P+1, S, L
IOST H
>> L L*
>> LR QUE*, P*, P+1
>> LR("%" H+1
>> LR("F" QUE*, H
>> LR("Q" P, P+1, S, L, H, H1, H2
>> LRA LRCYPCT+4
>> LRA( LRCYPCT+5*, G+1, P+1, S*, H2, M*
>> LRAA LRCYPCT+4, TO, SET, M
>> LRABV LRCYPCT+3, I
>> LRDFN LRDFN*, I, T, G, G+1
>> LRDICS LRCYPCT+3*
>> LRI I*, T, G, G+1
>> LRL G*, G+1, L*
>> LRLDT DATE*, QUE+1
>> LRLST H+1
LRM TO!
LRM( TG, ASK+1*, C!, SET*
LRN TO!, P*, S, L, H1, SET+1
LRN( TG, P, ASK+1*, C!, C+2*, H1, SET*
>> LRO(68 LRCYPCT+3, H+1
>> LRP DATE*, S, H+1
>> LRSDT DATE*, QUE+1*, LRDFN, I
>> LRSS I, T, G, G+1
>> LRSTR H+1
>> LRXR QUE+1, LRDFN, I
>> M G+1*
>> M(1 G+1*
>> O T*, G+1
>> POP DATE+1
>> S P*, S, H1, H2
>> T T*, TG*, S*, H2
U TO+1, I, ASK, C, H2
>> X LRCYPCT+5*, TO+1, QUE+1*, G*, G+1*, P+1*, ASK*, ASK+1, C, C+2
, CK, CK+1, SET*
>> X(1 C*, C+1, C+2
>> Y LRCYPCT+3, LRCYPCT+5*, DATE
>> ZTRTN DATE+1*
>> ZTSK DATE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All