Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 (CLOSE,OPEN)^%ZISUTL  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSS HR/HA ORDERABLE ITEMS RPT  

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

External References

Name Field # of Occurrence
CLOSE^%ZISUTL MAIN+8
OPEN^%ZISUTL MAIN+3
^DIR ASKUSR+4, ASKUSR+10
$$FMTE^XLFDT PRNHDR+4, PRNLN+4
$$NOW^XLFDT PRNHDR+4

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
Routine Call
  • DIR
  • Line Location:
    • ASKUSR+4
    • ASKUSR+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] GET50P7+9
^PS(50.7 - [#50.7] GET50P7+2, GET50P7+4, GET50P7+6, GET50P7+7, GET50P7+8, GET50P7+10
^PSDRUG - [#50] GET50P7+11

Label References

Name Line Occurrences
ASKUSR MAIN+1, ASKUSR+10
GET50P7 MAIN+6
MAIN INIT+4
PAUSE PRNLN+5
PRNHDR MAIN+6, PRNLN+5
PRNLN GET50P7+12
Q23 HELP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR ASKUSR+1!, ASKUSR+4!, ASKUSR+10!
DIR("?" ASKUSR+3*
DIR("??" ASKUSR+3*
DIR("A" ASKUSR+2*, ASKUSR+10*
DIR("B" ASKUSR+2*, ASKUSR+10*
DIR("L" HELP+3*
DIR(0 ASKUSR+2*, ASKUSR+10*
DTIME PAUSE+3
DTOUT INIT+5!, ASKUSR+4
DUOUT INIT+5!, ASKUSR+4
IO MAIN+5, PAUSE+4
IO(0 PAUSE+2
IOF PRNHDR+3
IOSL PRNLN+5
IOST MAIN+4
PAGNO INIT+1~, INIT+3*, PRNHDR+2*, PRNHDR+5
POP INIT+5!, MAIN+3
PSSDDIEN INIT+1~, GET50P7+9*, GET50P7+10*, GET50P7+11
PSSDDRG INIT+1~, GET50P7+11*, PRNLN+4
PSSDRG INIT+1~, GET50P7+1*, GET50P7+2*, GET50P7+3, GET50P7+4, GET50P7+6, GET50P7+9*, PRNLN+2, PRNLN+3
PSSDRGP GET50P7+3*, PRNLN+1~, PRNLN+2*, PRNLN+3*, PRNLN+4
PSSDRGS INIT+2~, GET50P7+1*, PRNLN+2, PRNLN+3*
PSSDSG INIT+1~, GET50P7+3*, GET50P7+4*, GET50P7+6, GET50P7+9
PSSDSGF INIT+1~, GET50P7+9*
PSSDSGI INIT+2~, GET50P7+9*, GET50P7+11*, PRNLN+4
PSSHRA INIT+2~, GET50P7+7*, GET50P7+8, PRNLN+3
PSSHRAP PRNLN+1~, PRNLN+2*, PRNLN+3*, PRNLN+4
PSSINACT INIT+1~, GET50P7+8*, PRNLN+3
PSSINACTP PRNLN+1~, PRNLN+2*, PRNLN+3*, PRNLN+4
PSSINACTS INIT+2~, PRNLN+3*
PSSLN INIT+1~
PSSMRR INIT+1~
PSSOIEN INIT+1~, GET50P7+5*, GET50P7+6*, GET50P7+7, GET50P7+8, GET50P7+10
PSSQ INIT+2~, INIT+3*, MAIN+1, GET50P7+2, GET50P7+4, GET50P7+6, GET50P7+10, ASKUSR+4*, PRNHDR+1, PAUSE+3*
PSSSPCE INIT+1~, INIT+3*, PRNLN+4
PSSVAL INIT+2~, GET50P7+8, ASKUSR+5*, ASKUSR+6, ASKUSR+7, ASKUSR+8, ASKUSR+9, ASKUSR+11*
TERM INIT+1~, MAIN+4*, PRNLN+5, PAUSE
U GET50P7+7, GET50P7+8, GET50P7+9
X ASKUSR+5, HELP+1, HELP+3*, PAUSE+1~, PAUSE+3*
Y INIT+5!, ASKUSR+4, ASKUSR+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All