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

Package: Lab Service

Routine: LRMISEZ2


Information

LRMISEZ2 ;AVAMC/REG/SLC/BA - MICRO INFECTION CTRL SURVEY ; 10/1/87 17:12 ;

Source Information

Source file <LRMISEZ2.m>

Entry Points

Name Comments DBIA/ICR reference
TYPE
M
LLOC
NLOC
NAME
SIT
AC
OR
BG
FX
NOD
HDR
LD
LIN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TYPE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !!,$E($P(LRNLOC,U),1,25)
  • Line Location: LLOC+0
Function Call: WRITE
  • Prompt: LIN
  • Condition for execution: S'="PAT" ! S LRPAT=0,X=43 D:S'="PAT"
  • Line Location: LLOC+0
Function Call: WRITE
  • Prompt: ?25,$E(SSN,1,3),"-",$E(SSN,4,5),"-",$E(SSN,6,9),!
  • Line Location: FX+1
Function Call: WRITE
  • Prompt: !,$E(LRBUG,1,13),?13,$E($P(LRSIT,U),1,7)
  • Line Location: FX+2
Function Call: WRITE
  • Prompt: !?2,$E(LRBUG,1,32),?34,$J(LRSUM,3),")",?37,$J(LRAC,5),?43
  • Line Location: FX+5
Function Call: WRITE
  • Prompt: LRLIN,!
  • Line Location: FX+8
Function Call: WRITE
  • Prompt: @IOF,!,Y,?21,"INFECTION CONTROL SURVEY REPORT BY ",$S(S="LOC":"LOCATION",S="DOC":"PROVIDER",1:"PATIENT"),?70,"PAGE ",$J(LRPG,5)
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,?2,"** Reports only those specimens collected > ",LRLOS,$S(LRLOS>1:" days",1:" day")," from admission date **"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,LRAAN,?6,"From: ",LRST," To: ",LRLST,?43
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "|",$E($P(B(I),U,2),1)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "|",!,$S(S="LOC":"Location",S="DOC":"Provider",1:"Patient")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?25,"SSN"
  • Condition for execution: S="PAT"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?43
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?43
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "|",$E($P(B(I),U,2),3)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "|",!,?10,"** ANTIBIOTIC PATTERN **",?43
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "|",$S($L($P(B(I),U,3)):$P(B(I),U,3),1:" ")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "|",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,$E($P(LRNLOC,U),1,14),?15,LRMY,":"
  • Line Location: LD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LD+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LIN+0
Info |  Source |  Entry Points |  Interaction Calls