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

Package: Lab Service

Routine: LRACSUM4


Information

LRACSUM4 ;SLC/DCM - PRINT INDIVIDUAL PATIENT SUMMARY ; 2/11/88 12:06 ;

Source Information

Source file <LRACSUM4.m>

Entry Points

Name Comments DBIA/ICR reference
BS ;from LRACSUM3
Y2K ;
YEAR ;
BS1
BS2
BS4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BS+7
Function Call: WRITE
  • Prompt: !,"Locale "
  • Line Location: BS+8
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,"L"),10)
  • Line Location: BS+8
Function Call: WRITE
  • Prompt: !,$E(LRTOPP,1,7),?6
  • Line Location: Y2K+1
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,0),10)
  • Line Location: Y2K+1
Function Call: WRITE
  • Prompt: !?5
  • Line Location: YEAR+1
Function Call: WRITE
  • Prompt: $J(^TMP($J,"Y2K",I),10)
  • Line Location: YEAR+1
Function Call: WRITE
  • Prompt: !?6
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,"T"),10)
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,0),6)," "
  • Line Location: YEAR+3
Function Call: WRITE
  • Prompt: ^TMP($J,"TY",I,0)_" "
  • Line Location: YEAR+4
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,"T"),10)
  • Line Location: YEAR+6
Function Call: WRITE
  • Prompt: ^TMP($J,"TY",I,"T")_" "
  • Line Location: YEAR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: YEAR+9
Function Call: WRITE
  • Prompt: !,"Comments: "
  • Line Location: YEAR+10
Function Call: WRITE
  • Prompt: ?(10*LRTX-6),$C(96+I)
  • Line Location: YEAR+10
Function Call: WRITE
  • Prompt: !,$C(96+I),". "
  • Line Location: YEAR+11
Function Call: WRITE
  • Prompt: ^TMP($J,"TY",J,I)
  • Condition for execution: J=0
  • Line Location: BS4+0
Function Call: WRITE
  • Prompt: ?LRCL
  • Line Location: BS4+0
Function Call: WRITE
  • Prompt: @$P(LRG,U,4),X1
  • Condition for execution: $L($P(LRG,U,4))&(J<LRTT)
  • Line Location: BS4+0
Function Call: WRITE
  • Prompt: $J(X,LRCW)
  • Condition for execution: '$L($P(LRG,U,4))!(J'<LRTT)
  • Line Location: BS4+0
Info |  Source |  Entry Points |  Interaction Calls