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 |  Used in RPC
Print Page as PDF
Routine: ORWRPP1

Package: Order Entry Results Reporting

Routine: ORWRPP1


Information

ORWRPP1 ; SLC/DCM - Background Report Prints (cont.) ;Dec 02, 2021@12:51:43

Source Information

Source file <ORWRPP1.m>

Entry Points

Name Comments DBIA/ICR reference
MEDB(ROOT,ORDFN,OREXAMID,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE)
HSB(ROOT,ORDFN,ORHSTYPE,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE)
HSTYPEB(ROOT,ORDFN,ORHSTYPE,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE)
LSB(ROOT,ORDFN,ORHSTYPE,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE)
BCMA2B(ROOT,ORDFN,OREXAMID,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE)
BCMA1B(ROOT,ORDFN,OREXAMID,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE)
PROBB(ROOT,ORDFN,OREXAMID,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE) ;Print Problem List (Problem Tab)
GETVTYPE
PRINTV(ORY,ORIO,ORDFN,ORHEAD,ORRPT) ;Print data for remote sites
; RPC: ORWRP PRINT V REPORT
HEAD(ORDFN,PAGE,TITLE,STATION) ;Print a patient header
LRHEAD(ORDFN,PAGE,TITLE,STATION) ; modified patient header to add facility address for lab rpts
HURL(Y,ORDFN,TITLE,FORMAT,STATION,READ) ;Write out the file
LRHURL(Y,ORDFN,TITLE,FORMAT,STATION,READ) ; modified patient header to add facility address for lab rpts

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PROBB+2
Function Call: WRITE
  • Prompt: !,TITLE,?(IOM-$L("Page "_PAGE)),"Page "_PAGE
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,ORPNM_" "_ORSSN,?39,$G(ORL(0))_$S($L($G(ORL(1))):"/"_ORL(1),1:""),?(79-$L(X)),X
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,ORHLINE
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !?27,"*** WORK COPY ONLY ***",?(IOM-($L(X))-1),X
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,TITLE,?(IOM-$L("Page "_PAGE)),"Page "_PAGE
  • Line Location: LRHEAD+6
Function Call: WRITE
  • Prompt: !,ORPNM_" "_ORSSN,?39,$G(ORL(0))_$S($L($G(ORL(1))):"/"_ORL(1),1:""),?(79-$L(X)),X
  • Line Location: LRHEAD+8
Function Call: WRITE
  • Prompt: !,ORHLINE
  • Line Location: LRHEAD+10
Function Call: WRITE
  • Prompt: !?27,"*** WORK COPY ONLY ***",?(IOM-($L(X))-1),X
  • Line Location: LRHEAD+12
Function Call: WRITE
  • Prompt: !?27,"*** WORK COPY ONLY *** (continued...)"
  • Line Location: HURL+7
Function Call: READ
  • Formatting: !
  • Prompt: "^ TO STOP: "
  • Variable: A
  • Timeout: DTIME
  • Line Location: HURL+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HURL+9
Function Call: WRITE
  • Prompt: !,"(...continued)"
  • Line Location: HURL+12
Function Call: WRITE
  • Prompt: !,@Y@(L)
  • Line Location: HURL+19
Function Call: WRITE
  • Prompt: !,@Y@(L,0)
  • Line Location: HURL+25
Function Call: WRITE
  • Prompt: !?27,"*** WORK COPY ONLY ***"
  • Line Location: HURL+26
Function Call: WRITE
  • Prompt: !?27,"*** WORK COPY ONLY *** (continued...)"
  • Line Location: LRHURL+7
Function Call: READ
  • Formatting: !
  • Prompt: "^ TO STOP: "
  • Variable: A
  • Timeout: DTIME
  • Line Location: LRHURL+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRHURL+9
Function Call: WRITE
  • Prompt: !,"(...continued)"
  • Line Location: LRHURL+12
Function Call: WRITE
  • Prompt: !,@Y@(L)
  • Line Location: LRHURL+19
Function Call: WRITE
  • Prompt: !,@Y@(L,0)
  • Line Location: LRHURL+25
Function Call: WRITE
  • Prompt: !?27,"*** WORK COPY ONLY ***"
  • Line Location: LRHURL+26

Used in RPC

RPC Name Call Tags
ORWRP PRINT V REPORT PRINTV
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC