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

Package: Lab Service

Routine: LRCYPCT


Information

LRCYPCT ;AVAMC/REG - CYTOPATH %POS,NEG,SUSP, & UNSAT ;8/13/95 15:41 ;

Source Information

Source file <LRCYPCT.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,LRO(68)," (",LRABV,") Cytology Specimens:"
  • Line Location: LRCYPCT+2
Function Call: WRITE
  • Prompt: !,"Use morphology list "
  • Line Location: LRCYPCT+3
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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !
  • Prompt: "ENTER IDENTIFYING COMMENT: "
  • Variable: X(1)
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls