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

Package: Controlled Substances

Routine: PSDERP


Information

PSDERP ;BIR/BJW-CS Error Log Report ; 6 Feb 98

Source Information

Source file <PSDERP.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
DATE ;ask date range
DEV ;select device
START ;start looping
PRINT ;prints data
DONE
END ;
HDR ;prints header information
SAVE ;saves variables for queueing

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"the pending Controlled Substances error log.",!!,"PSDMGR or PSD ERROR security key required.",!
  • Line Location: PSDERP+5
Function Call: WRITE
  • Prompt: !!,"You may select a Dispensing Site at the prompt.",!
  • Line Location: ASKD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,?10,"*** NO CONTROLLED SUBSTANCES PENDING ERRORS/ADJUSTMENTS ***",!!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSDRN,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,PSDA,?10,$J($P(NODE,"^"),6),?20,$P(NODE,"^",4),?35,$P(NODE,"^",5),!,?5,$P(NODE,"^",2)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?45,$P(NODE,"^",3)
  • Condition for execution: $P(NODE,"^",3)]""
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?15,"CS PENDING ERROR/ADJ LOG REPORT",?70,"PAGE: ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?15,"NAOU: ",PSDSN,!,?15,"Period From: ",$P(PSDATE,"^")," to: ",$P(PSDATE,"^",2),!,?15,"Run Date: ",RPDT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"LOG #",?10,"QUANTITY",?22,"DATE",?35,"ERR/ADJ TYPE",!,?5,"LOGGED BY",?45,"WITNESSED BY",!,LN,!
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls