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

Package: Order Entry Results Reporting

Routine: ORPRS04


Information

ORPRS04 ;slc/dcm - Print Order summaries (SHRIVELED) ;09/30/15 11:55

Source Information

Source file <ORPRS04.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Print orders
PRT ;Print order line
STS ;
PGCHK(CNT) ;
PTHDR ;
KIDS(ORIFN,LENGTH) ;Print child orders
MTIM(X) ;Format time from Fileman date in X
SET(FILE,FIELD,RESULT) ;Interpret set of codes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TASKED Report stopped by WHILE RUNNING."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!?3,"No orders.",!,ORLINE
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter '^' to stop listing for current patient"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!!!!?(IOM-44)\2,"***** E N D O F R E P O R T ****",!
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!
  • Line Location: STS+7
Function Call: WRITE
  • Prompt: ?8,ORSTS,?12,$S(ORDAD:"+",1:" ")
  • Line Location: STS+11
Function Call: WRITE
  • Prompt: ?54,ORREQ
  • Line Location: STS+13
Function Call: WRITE
  • Prompt: ?65,$E(ORSTRT,4,5)_"/"_$E(ORSTRT,6,7)_"/"_$E(ORSTRT,2,3)
  • Condition for execution: $L(ORSTRT)
  • Line Location: STS+13
Function Call: WRITE
  • Prompt: !?3,$$MTIM(ORODT),?13
  • Line Location: STS+15
Function Call: WRITE
  • Prompt: ?54,$E(ORREQ("TIT"),1,10),?68,$$MTIM(ORSTRT),?75,$$MTIM(ORSTOP)
  • Line Location: STS+18
Function Call: WRITE
  • Prompt: !?13,ORTX(X)
  • Line Location: STS+19
Function Call: WRITE
  • Prompt: !
  • Line Location: STS+21
Function Call: WRITE
  • Prompt: ?1,$P($G(^VA(200,ORUSER,0)),"^",2)
  • Line Location: STS+22
Function Call: WRITE
  • Prompt: !?13,^(J,0)
  • Line Location: STS+34
Function Call: WRITE
  • Prompt: !?66,"*UNRELEASED*"
  • Line Location: STS+40
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGCHK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PGCHK+5
Function Call: WRITE
  • Prompt: !?(IOM-44)\2,"***** E N D O F R E P O R T ****",!
  • Line Location: PGCHK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PGCHK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PGCHK+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGCHK+23
Function Call: WRITE
  • Prompt: !,ORPNM_" "_$G(ORSSN)_" "_$S($G(ORCONT):"(cont.)",1:"")_" "
  • Line Location: PTHDR+1
Function Call: WRITE
  • Prompt: ?(80-$L(X))\2,X
  • Line Location: PTHDR+3
Info |  Source |  Entry Points |  Interaction Calls