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

Package: Controlled Substances

Routine: PSDPND1


Information

PSDPND1 ;BIR/JPW-Pharm Dispensing Report (cont'd) ; 2 Aug 94

Source Information

Source file <PSDPND1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;print pharmacy disp log by date
DONE
HDR ;header for log
SUMPRT ;prt sum
PRTSUM ;prints summary data
SUMHDR ;sum header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?45,"**** NO DISPENSING DATA FOR THIS DISPENSING LOCATION ****"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,NUM,?15,$P(NODE,"^"),?58,$J($P(NODE,"^",3),6),?68,$P(NODE,"^",4),?86,$P(NODE,"^",2),?112,$P(NODE,"^",5)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"Press <RET> to return to display the summary totals"
  • Line Location: PRINT+6
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: !,?45,"Pharmacy Dispensing Report",?115,"Page: ",PG,!,?45,"Dispensing Vault: "_PSDSN,!,?45,$P(PSDATE,"^")_" to "_$P(PSDATE,"^",2)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?58,"QUANTITY",?71,"DATE"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"DISP #",?15,"DRUG",?58,"DISPENSED",?71,"DISP",?86,"DISPENSED TO",?112,"DISPENSED BY"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,?45,"**** NO DISPENSING DATA FOR THIS DISPENSING LOCATION ****"
  • Line Location: SUMPRT+2
Function Call: WRITE
  • Prompt: !,?2,DRUG,?60,$J(+^TMP("PSDNDT",$J,DRUG),6),!
  • Line Location: PRTSUM+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: SUMHDR+2
Function Call: WRITE
  • Prompt: !,?25,"Pharmacy Dispensing Report",?70,"Page "_PG,!,?25,$P(PSDATE,"^")_" to "_$P(PSDATE,"^",2),!,?31,"** SUMMARY **",!!,"Dispensing Vault: ",PSDSN,!!
  • Line Location: SUMHDR+2
Function Call: WRITE
  • Prompt: ?5,"DRUG",?57,"TOTAL DISPENSED",!,LN,!
  • Line Location: SUMHDR+3
Info |  Source |  Entry Points |  Interaction Calls