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

Package: Lab Service

Routine: LRACM2F


Information

LRACM2F ;MILW/JMC - LIST CUMULATIVE PATIENTS FOR SELECTED LOCATIONS ; 5/15/92

Source Information

Source file <LRACM2F.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Print list of cumulative patients for range of locations.
DQ ; Dequeue entry point.
END ; Clean up.
HDR ; Print header for report.
HDR1 ; Print header for display.
TASK ; Entry point for tasked option. Prints current report date for all locations.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Current Cumulative Report Date: ",Y,!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: ?X,$J(LRI,4),?X+6,$E(Y,1,20)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: "No patients for this day",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: ?X,$J(LRI,4),?X+6,"ALL Locations"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"Request ",$S($D(ZTSK):"",1:"NOT "),"Queued"
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !!," LOCATION: ",L,?43,"LRDFN",!
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !!," LOCATION: ",L," (Continued)",?43,"LRDFN",!
  • Line Location: DQ+14
Function Call: WRITE
  • Prompt: !,LRCTRR,?5,$E(PNM,1,20),?28,SSN,?42,$J(LRDFN,6),?50,$S(Y:"Processed",1:"")
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: ?61,"File: ",LRDPF,?72,$E(LRWRD,1,8)
  • Line Location: DQ+18
Function Call: WRITE
  • Prompt: !!,"Totals for ",$S(LRALL:"'ALL'",1:"Selected")," Locations"
  • Line Location: DQ+22
Function Call: WRITE
  • Prompt: !!,"Number of Patients: ",$J($FN(LRCTRR(0),","),5)
  • Line Location: DQ+23
Function Call: WRITE
  • Prompt: !," Number Processed: ",$J($FN(LRCTRR(1),","),5)
  • Line Location: DQ+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+25
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "List of Cumulative Patients for ",$S(LRALL:"'ALL'",1:"Selected")," Location",$S(LRCNT>1:"s",1:"")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+32>IOM
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?IOM-32," Printed: ",LRPDT
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Report Date: ",LRDT1,?IOM-28,"Page: ",LRPG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"For Location",$S(LRCNT>1:"s",1:""),": "
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "'ALL'"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?17
  • Condition for execution: $X+$L(X)+3>IOM
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: X,", "
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,LRLINE,!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: @IOF,"The following locations have patients for ",LRDT1,".",!!
  • Line Location: HDR1+1
Info |  Source |  Entry Points |  Interaction Calls