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

Package: Controlled Substances

Routine: PSDCRP


Information

PSDCRP ;BIR/JPW-Green Sheet Discrepancy Report ; 29 Aug 94

Source Information

Source file <PSDCRP.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask dispensing location
ASKN ;ask NAOU(s)
DEV ;ask device and queue info
START ;compile data
PRINT ;print comp stat discrep report
DONE
END ;
HDR ;header for log

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"review this narcotics report.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDCRP+4
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!!
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 132 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: !!,?40,"**** NO PENDING GREEN SHEET DISCREPANCIES ****",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSD,!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSD,!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,NUM,?15,$P(NODE,"^"),?58,$P(NODE,"^",5),?80,$P(NODE,"^",2)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?25,"**Reason Referred: ",$P(NODE,"^",6),!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?45,"Green Sheet Discrepancies Report",?115,"Page: ",PG,!,?48,"Date Printed: ",RPDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?2,"=> NAOU",!,"DISP #",?15,"DRUG",?58,"DATE POSTED",?80,"COMPLETION STATUS"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls