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

Package: Lab Service

Routine: LRAPF


Information

LRAPF ;DALOI/STAFF - CY/EM/SP RPT ;11/14/11 13:04

Source Information

Source file <LRAPF.m>

Entry Points

Name Comments DBIA/ICR reference
F ; from LRSPRPT,LRSPRPT1, LRSPRPT2, LRSPRPTM
P ;
; Handle printing footer after printing prior cases on end of report and LRI now null.
W ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPF+8
Function Call: WRITE
  • Prompt: !,A(A)
  • Line Location: LRAPF+19
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPF+26
Function Call: WRITE
  • Prompt: !,B(B)
  • Line Location: LRAPF+27
Function Call: WRITE
  • Prompt: !?5,"MEDICAL RECORD |",?40,LRAA(1),?73,"Pg ",LRQ
  • Line Location: LRAPF+30
Function Call: WRITE
  • Prompt: !
  • Line Location: F+2
Function Call: WRITE
  • Prompt: ?57,"(",$S($D(LRO):"End of report",1:"See next page"),")"
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !,$G(LRPMD),?52,LRW(9),?55,"| Date ",$G(LRRC)
  • Line Location: F+5
Function Call: WRITE
  • Prompt: !,"ID:",SSN,?16,"SEX:",SEX," DOB:",DOB
  • Line Location: F+8
Function Call: WRITE
  • Prompt: " LOC:",$E(LRLLOC,1,20)
  • Line Location: F+10
Function Call: WRITE
  • Prompt: ?46,"PCP: "
  • Line Location: F+13
Function Call: WRITE
  • Prompt: !?30,"PATHOLOGY REPORT",!
  • Line Location: P+10
Function Call: WRITE
  • Prompt: "Laboratory: ",LRQ(1)
  • Line Location: P+12
Function Call: WRITE
  • Prompt: ?(IOM-LENG2-1),ADESC
  • Line Location: P+13
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: W+1
Info |  Source |  Entry Points |  Interaction Calls