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

Package: Order Entry Results Reporting

Routine: ORPRPM1


Information

ORPRPM1 ;DAN/SLC Performance Measure Print; ;10/4/01 10:45

Source Information

Source file <ORPRPM1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Print out report
SUBTOT ;Print individual sub totals
HDR(TYPE) ;Print appropriate header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There is no data for the criteria you selected."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",ORI,!!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?20,$S(ORPAT["DPT":$E($P(^DPT(+ORPAT,0),"^"),1)_$E($P(^(0),"^",9),6,9),1:"Refrl")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"There is no data for the criteria you selected."
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?1,$S(ORP="I":" Inpt",1:"Outpt")," Tot"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?19,$J(+$P(^(ORP),"^",10)_"/"_+$P(^(ORP),"^",9)_"/"_+$P(^(ORP),"^",8),15)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: ?58,+$P(^(ORP),"^",4),"/",+$P(^(ORP),"^",5),"/",+$P(^(ORP),"^",6),"/",+$P(^(ORP),"^",7)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",78)
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: ?1," Sub-tot",?12,$J($G(ORSTOT(1)),6),?34,$J($G(ORSTOT(2)),8),?44,$J($G(ORSTOT(3)),8)
  • Line Location: SUBTOT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"CPRS Performance Monitor ",$S(TYPE="D":"- Detailed",ORFS:"- Summary Totals",1:"- Summary")," Report",?52,REPDT,?72,"PAGE ",$G(PG),!,"Selected Date Range: ",$$FMTE^XLFDT(ORSD+.1,2)," to ",$$FMTE^XLFDT(ORED\1,2),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "Sort criteria: ",$S(ORPT="I":"IN",ORPT="O":"OUT",1:"ALL "),"PATIENTS/",$S(ORTYPE="P":"PHARMACY",1:"ALL")," ORDERS"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?72,"ENTERED",!,"ORDER",?41,"ORD",?47,"PATIENT",?73,"BY HAS",!,"DATE",?11,"ORDER #",?19,"PAT ID",?27,"1st ORD ITEM",?41,"TYPE",?47,"LOCATION",?61,"PACKAGE",?74,"ORES?",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?10,"UNIVERSE",?23,"DEA/STU/POL",?36,"ORDERS",?45,"ENTERED",?56,"%",?58,"WR/VE/TE/EL",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",IOM),!
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls