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

Package: Order Entry Results Reporting

Routine: ORINDRP


Information

ORINDRP ;BIR/MA - Indication Usage Report ;Mar 30, 2022@08:09:34

Source Information

Source file <ORINDRP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
QEN ;
YR ;
MEN ;
SDT ;
EDT
FEN ;
SPR
EPR
SOI ;Allow selection of all/single/multiple Orderable item
DQ ;build and print
RPT ;
END ;
CHECK ;If order matches requirements then save
GIND ;
PRINT ;
SETAR ;
NUIND ;
PL ;
HDR ;
LEAP(%) ;Check if a Leap year

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: QEN+3
Function Call: WRITE
  • Prompt: !,"Select Calendar Year: ",X,"// "
  • Line Location: YR+2
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a four digit calendar year (e.g. "_SYR_")",!
  • Line Location: YR+5
Function Call: WRITE
  • Prompt: $C(7),!!," No Data exist prior to "_$E(IDT,4,5)_"/"_IYR,!
  • Line Location: YR+6
Function Call: WRITE
  • Prompt: $C(7),!!," Year cannot be in the future",!
  • Line Location: YR+7
Function Call: WRITE
  • Prompt: $C(7),!!," No Data exist prior to Quarter "_IQRT_" of "_IYR,!
  • Line Location: YR+8
Function Call: WRITE
  • Prompt: $C(7),!!," Quarter cannot be in the future",!
  • Line Location: YR+9
Function Call: WRITE
  • Prompt: !!!,"**** Date Range Selection ****"
  • Line Location: MEN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SDT+1
Function Call: WRITE
  • Prompt: $C(7),!!," No Data exist prior to "_$E(IDT,4,5)_"/"_IYR,!
  • Line Location: SDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: $C(7),!!," End of month cannot be in the future"
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SPR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EPR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: !!,"There is no data for the criteria you selected.",!
  • Line Location: RPT+10
Function Call: WRITE
  • Prompt: !,I_"("_POI_")"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !," These Indications were not used: "
  • Line Location: NUIND+2
Function Call: WRITE
  • Prompt: !,?5,$S(ZI="MCI":"Most Common",1:"Other Indic")
  • Line Location: NUIND+5
Function Call: WRITE
  • Prompt: ?18," - "_ZJ
  • Line Location: NUIND+7
Function Call: WRITE
  • Prompt: !,?18," - "_ZJ
  • Line Location: NUIND+8
Function Call: WRITE
  • Prompt: !,TXT,?68,CT
  • Line Location: PL+2
Function Call: WRITE
  • Prompt: !,?5,$S(M="A1":"Most Common",M="A2":"Other Indic",1:"Free Text")_": "
  • Line Location: PL+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: O>1
  • Line Location: PL+5
Function Call: WRITE
  • Prompt: ?18,N,?68,$G(ARR(M,N))
  • Line Location: PL+5
Function Call: WRITE
  • Prompt: !,"Selected Date Range: ",$$FMTE^XLFDT(SDT)," to ",$$FMTE^XLFDT(EDT)_$S($G(SQRT):" (Quarter "_SQRT_")",1:"")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Orderable Item Most Common Other Free Text Total"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," Indications Indications Indications"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------"
  • Line Location: HDR+7
Info |  Source |  Entry Points |  Interaction Calls