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

Package: Pharmacy Data Management

Routine: PSSMRRI


Information

PSSMRRI ;ALB/DRP PRINT MRR ITEMS ;06/18/15

Source Information

Source file <PSSMRRI.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;
MAIN ;
ASKUSR ; Prompt user for inout values
HELP ;
Q23 ;
GET50P7 ;
PRNHDR ; Heading
PRNLN ;Write line on report
PAUSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ASKUSR+4
Function Call: WRITE
  • Prompt: $C(7),!!?3,"This report is designed for 132 column output!",!
  • Line Location: ASKUSR+12
Function Call: WRITE
  • Prompt: !,"Enter 'A' to run report for all Orderable Items. Enter '1, 2 or 3'"
  • Line Location: Q23+1
Function Call: WRITE
  • Prompt: !,"to show only the selected values."
  • Line Location: Q23+2
Function Call: WRITE
  • Prompt: !," Select one of the following:"
  • Line Location: Q23+3
Function Call: WRITE
  • Prompt: !," A ALL"
  • Line Location: Q23+4
Function Call: WRITE
  • Prompt: !," 1 Removal at Next Administration"
  • Line Location: Q23+5
Function Call: WRITE
  • Prompt: !," 2 Removal Period Optional Prior to Next Administration"
  • Line Location: Q23+6
Function Call: WRITE
  • Prompt: !," 3 Removal Period Required Prior to Next Administration",!
  • Line Location: Q23+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRNHDR+3
Function Call: WRITE
  • Prompt: !,?57,$E($$FMTE^XLFDT($$NOW^XLFDT),1,18)
  • Line Location: PRNHDR+4
Function Call: WRITE
  • Prompt: !,?19,"Orderable Items Report on Medications Requiring Removal (MRR) Prompt for Removal in BCMA Value",?125,"Page ",PAGNO
  • Line Location: PRNHDR+5
Function Call: WRITE
  • Prompt: !,?5,"ORDERABLE ITEM OI INACTIVE MRR DISPENSE DRUG (DD) DD INACTIVE"
  • Line Location: PRNHDR+6
Function Call: WRITE
  • Prompt: !,?5,"NAME - DOSAGE FORM DATE VAL NAME DATE "
  • Line Location: PRNHDR+7
Function Call: WRITE
  • Prompt: !,?5,"------------------------------ ------------ --- ------------------------------ -----------"
  • Line Location: PRNHDR+8
Function Call: WRITE
  • Prompt: !,?5,$E(PSSDRGP_PSSSPCE,1,30)_" "_$E($$FMTE^XLFDT(PSSINACTP,5)_PSSSPCE,1,12)_" "_$E(PSSMRRP_PSSSPCE,1,3)_" "_$E(PSSDDRG_PSSSPCE,1,30)_" "_$E($$FMTE^XLFDT(PSSDSGI,5)_PSSSPCE,1,12)
  • Line Location: PRNLN+4
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, '^' to exit"
  • Line Location: PAUSE+2
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME)
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls