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

Package: Lab Service

Routine: LRAPSM1


Information

LRAPSM1 ;AVAMC/REG/CYM - SEARCH BY SNOMED CODE PRINT ;8/13/97 09:58 ;

Source Information

Source file <LRAPSM1.m>

Entry Points

Name Comments DBIA/ICR reference
Y
ABC
PRT
M1
L
W
PT
M
H
H1
H2
H3
H4
H5
H6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?21,"RESULT OF ",LRO(68)," SEARCH: "
  • Line Location: LRAPSM1+5
Function Call: WRITE
  • Prompt: !!,$J(A,5)," OF ",$J(LR(2),5)," PATIENTS(",$J(A*100/LR(2),5,2),"%)"
  • Line Location: LRAPSM1+7
Function Call: WRITE
  • Prompt: !,$J(LR(13),5)," OF ",$J(LR(1),5)," SNOMED CODE ",S(2)," SPECIMENS(",$J(LR(13)*100/LR(1),5,2),"%)"
  • Line Location: LRAPSM1+8
Function Call: WRITE
  • Prompt: !,$J(LR,14)," ORGAN/TISSUE SPECIMENS WITHIN PERIOD SEARCHED",!?15,"(SNOMED TOPOGRAPHY CODE ",S(2)," IS ",$J(LR(1)*100/LR,5,2),"%)"
  • Line Location: LRAPSM1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: Y+0
Function Call: WRITE
  • Prompt:
  • Condition for execution: $P(LR(11),"^",7)'=2 "#" W $E(N,1,17),?19,$P(LR(11),"^",5),?25,$P(LR(11),"^",3) S H(2)=0 F B=0:1 S H(2)=$O(^TMP($J,"B",N,H(2))) Q:'H(2)!(LR("Q"))
  • Line Location: Y+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: Y+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C>0
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?27,$P(LR(11),"^",2)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?31,$J($P(LR(11),"^"),7)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>1
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?46,$E(LR(5),1,15)
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z>1
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: ?62,$E($P(LR(6),"^"),1,Y)
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: ?80,$S(X=0:"Neg",X=1:"Pos",1:"?")
  • Condition for execution: X]""
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: $E($P(LR(11),"^",4),1,15),?33,$P(LR(11),"^",5),?38,$P(LR(11),"^",3),?41,$J($P(LR(11),"^",2),3),?45,$J($P(LR(11),"^",6),5)
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>1
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: ?52,$E(LR(5),1,15)
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z>1
  • Line Location: M+0
Function Call: WRITE
  • Prompt: ?69,$E($P(LR(6),"^"),1,Y)
  • Line Location: M+0
Function Call: WRITE
  • Prompt: ?86,$S(X=0:"Neg",X=1:"Pos",1:"?")
  • Condition for execution: Y=11
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,") SEARCH(",LRSTR,"=>",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"# = Not VA patient",!,"SNOMED TOPOGRAPHY CODE: ",S(2)_$E("-----",1,5-$L(S(2))),?46,"SNOMED ",S(7)," CODE: ",LRN_$E("-----",1,5-$L(LRN))
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!,?8,"NAME",?19,"ID",?23,"SEX",?27,"AGE",?32,"ACC #",?43,"ORGAN/TISSUE",?62,S(7)
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"ACC #",?16,"NAME",?33,"ID",?37,"SEX",?41,"AGE",?45,"MO/DA",?52,"ORGAN/TISSUE",?69,S(7)
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,$E(N,1,18),?19,$P(LR(11),"^",5),?25,$P(LR(11),"^",3),?27,$P(LR(11),"^",2),?31,$J($P(LR(11),"^"),7)
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,$P(LR(11),"^"),?16,$E($P(LR(11),"^",4),1,15),?33,$P(LR(11),"^",5),?38,$P(LR(11),"^",3),?41,$J($P(LR(11),"^",2),3),?45,$J($P(LR(11),"^",6),5)
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: ?43,$E(LR(5),1,15)
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: ?55,$E(LR(5),1,15)
  • Line Location: H6+0
Info |  Source |  Entry Points |  Interaction Calls