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

Package: Pharmacy Data Management

Routine: PSSHRHAI


Information

PSSHRHAI ;BIRMINGHAM/GN-Orderable Items High Risk/High Alert Report ;9/25/15 10:03am

Source Information

Source file <PSSHRHAI.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
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 HIGH RISK/ALERT-NO WITNESS REQUIRED IN BCMA"
  • Line Location: Q23+5
Function Call: WRITE
  • Prompt: !," 2 RECOMMEND WITNESS IN BCMA-HIGH RISK/ALERT"
  • Line Location: Q23+6
Function Call: WRITE
  • Prompt: !," 3 WITNESS REQUIRED IN BCMA-HIGH RISK/ALERT",!
  • 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: !,?42,"High Risk/High Alert for Orderable Items Report",?125,"Page ",PAGNO
  • Line Location: PRNHDR+5
Function Call: WRITE
  • Prompt: !,?5,"ORDERABLE ITEM OI INACTIVE HRHA 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(PSSHRAP_PSSSPCE,1,4)_" "_$E(PSSDDRG_PSSSPCE,1,30)_" "_$E(PSSDSGI_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