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

Package: Lab Service

Routine: LRSPSICP


Information

LRSPSICP ;AVAMC/REG - SEARCH BY ICD CODE PRINT ;8/15/95 08:50 ;

Source Information

Source file <LRSPSICP.m>

Entry Points

Name Comments DBIA/ICR reference
A
ABC
PRT
L
LRAN
PT
H
H1
H2
H3
H4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(N,1,18),?19,$P(V,"^",5),?25,$P(V,"^",3)
  • Line Location: LRSPSICP+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C>0
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?27,$P(V,"^",2)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?31,$J($P(V,"^"),7),?39,$E($P(V,"^",8),1,18)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z>1
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?58,$E(^(O),1,21)
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,$J($P(V,"^"),7),?9,$E($P(V,"^",4),1,18),?28,$P(V,"^",5),?34,$P(V,"^",3),?37,$J($P(V,"^",2),3),?41
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z>1
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: ?65,$E(^(O),1,14)
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: !,LRO(68)," SEARCH (",LRSTR,"=>",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"ICD CODE: ",I(1),?20,I
  • 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 #",!!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"ACC #",?9,"NAME",?28,"ID",?33,"SEX",?37,"AGE",?41,"MO/DA"
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,$E(N,1,18),?19,$P(V,"^",5),?25,$P(V,"^",3),?27,$P(V,"^",2),?31,$J($P(V,"^"),7)
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,$J($P(V,"^"),7),?9,$E($P(V,"^",4),1,18),?28,$P(V,"^",5),?34,$P(V,"^",3),?37,$J($P(V,"^",2),3),?41,$J($P(V,"^",6),5)
  • Line Location: H4+0
Info |  Source |  Entry Points |  Interaction Calls