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

Package: Order Entry Results Reporting

Routine: ORPRS01


Information

ORPRS01 ; slc/dcm - Hot'n Summary Report utilities ;6/10/97 15:37

Source Information

Source file <ORPRS01.m>

Entry Points

Name Comments DBIA/ICR reference
P ; Get Patient(s)
DAY(DAY) ; Get a date for 24 hr printing
D1 ;
RANGE(X1,X2) ; Get a date range for printing
R ;
E ; Get Ending Date/time
CUSTOM ; Selects order status and display group
HSTS(X) ;Help for status descriptions (ORRP STATUS MENU protocol)
HACT1 ;
EN(ORDG,ORSEL) ;Setup/Display groups
POP ;
PROC ;
DISP ;
BILD ;
STOP ; Call DIR at bottom of screen
TERM(IOST) ;Setup terminal display values

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Order Entry Date: "_$S(+ORSDFLT>0:$$DATE^ORU(ORSDFLT,"AMTH DD, CCYY"),1:"T")_"// "
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: $C(7),?40,"Invalid Date."
  • Line Location: D1+9
Function Call: WRITE
  • Prompt: !!,"Start Date [Time]: "_$S(ORSDFLT>0:$$DATE^ORU(ORSDFLT,"AMTH DD, CCYY"),1:ORSDFLT)_"// "
  • Line Location: R+2
Function Call: WRITE
  • Prompt: ?55,"Invalid Start Date/time."
  • Line Location: R+10
Function Call: WRITE
  • Prompt: !!,"Ending Date [Time] (inclusive): "_$S(+ORSDFLT>0:$$DATE^ORU(ORSDFLT,"AMTH DD, CCYY HR:MIN"),1:ORSDFLT)_"// "
  • Line Location: E+2
Function Call: WRITE
  • Prompt: ?57,"Invalid End Date/time."
  • Line Location: E+10
Function Call: WRITE
  • Prompt: !,"Valid selections are: "
  • Line Location: HSTS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HSTS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HSTS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HSTS+4
Function Call: WRITE
  • Prompt: " - "_^(0)
  • Line Location: HACT1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,?((ORSTK*2)),$P(W,"^")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+3
Info |  Source |  Entry Points |  Interaction Calls