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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRMIPSZ3

Package: Lab Service

Routine: LRMIPSZ3


Information

LRMIPSZ3 ;DALOI/STAFF - MICRO PATIENT REPORT - STERILITY, PARASITES, VIRUS ;Jul 15, 2021@13:13

Source Information

Source file <LRMIPSZ3.m>

Entry Points

Name Comments DBIA/ICR reference
STER ;
; from LRMIPSZ1
; also called from RPT^LROR4
PARA ;
; from LRMIPSZ1
; also called from RPT^LROR4
STG ;
SET ;
; File DD/999
LIST1 ;
VIR ;
; from LRMIPSZ1
; also called from RPT^LROR4
NP ;
; Convenience method

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"STERILITY CONTROL: ",LRX(0)
  • Line Location: STER+15
Function Call: WRITE
  • Prompt: !
  • Line Location: STER+18
Function Call: WRITE
  • Prompt: !,"NUMBER: ",I,?20,"STERILITY RESULTS: ",LRX(0)
  • Line Location: STER+25
Function Call: WRITE
  • Prompt: !
  • Line Location: STER+26
Function Call: WRITE
  • Prompt: !
  • Line Location: PARA+23
Function Call: WRITE
  • Prompt: !,"* PARASITOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => ",Y," TECH CODE: ",DZ
  • Line Location: PARA+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PARA+29
Function Call: WRITE
  • Prompt: !,"PARASITOLOGY SMEAR/PREP:"
  • Line Location: PARA+30
Function Call: WRITE
  • Prompt: !?5,^(LRMYC,0)
  • Line Location: PARA+33
Function Call: WRITE
  • Prompt: !,"Parasite: ",$E($P(^LAB(61.2,^TMP("LRMI",$J,LRDFN,"MI",LRIDT,6,LRPAR,0),0),U),1,25),?30," "
  • Line Location: PARA+36
Function Call: WRITE
  • Prompt: !,"Parasitology Remark(s):"
  • Line Location: PARA+40
Function Call: WRITE
  • Prompt: !,?3,^(LRPAR,0)
  • Line Location: PARA+43
Function Call: WRITE
  • Prompt: !," Stage: "
  • Line Location: STG+7
Function Call: WRITE
  • Prompt: !," Quantity: ",Y1
  • Condition for execution: $L(Y1)
  • Line Location: STG+7
Function Call: WRITE
  • Prompt: !," Comment: "
  • Line Location: LIST1+3
Function Call: WRITE
  • Prompt: ?13,^(C,0),!
  • Line Location: LIST1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: VIR+23
Function Call: WRITE
  • Prompt: !,"* VIROLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => ",Y," TECH CODE: ",DZ
  • Line Location: VIR+24
Function Call: WRITE
  • Prompt: !
  • Line Location: VIR+30
Function Call: WRITE
  • Prompt: !,"Virus: ",$P(^LAB(61.2,$P(^(LRPAR,0),U),0),U)
  • Line Location: VIR+32
Function Call: WRITE
  • Prompt: !,"Virology Remark(s):"
  • Line Location: VIR+38
Function Call: WRITE
  • Prompt: !,?3,^(LRPAR,0)
  • Line Location: VIR+41

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.05 EXTERNAL^DILFD
63.292 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call