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

Package: Controlled Substances

Routine: PSDPND1


Information

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

Source Information

Source file <PSDPND1.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDPND  

Entry Points

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

External References

Name Field # of Occurrence
^DIR DONE+1, HDR+1, SUMHDR+1

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
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1
    • SUMHDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PSDND" PRINT+3, PRINT+4, PRINT+5
^TMP("PSDNDT" SUMPRT+2, PRTSUM+2

Label References

Name Line Occurrences
DONE PRINT+1, PRINT+3
HDR PRINT+3, PRINT+4, PRINT+5
SUMHDR SUMPRT+2, PRTSUM+1, PRTSUM+2
SUMPRT PRINT+1, PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA HDR+1!, SUMHDR+1!
DIR DONE+1!, HDR+1!, SUMHDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*, SUMHDR+1*
DIRUT DONE+1!
>> DRUG PRTSUM+2*
DTIME PRINT+6
IOF DONE, HDR+2, SUMHDR+2
IOSL PRINT+4, PRINT+5, PRTSUM+2
IOST PRINT+6, DONE, DONE+1, HDR+1, SUMHDR+1
LN PRINT+3!*, HDR+5, SUMPRT+1!*, SUMHDR+3
>> NODE PRINT+5*
>> NUM PRINT+4*, PRINT+5
>> PG PRINT+1*, PRINT+2*, HDR+1, HDR+2*, SUMPRT+1*, SUMHDR+1, SUMHDR+2*
>> PSD PRINT+5*
>> PSDATE HDR+2, SUMHDR+2
>> PSDOUT PRINT+2*, PRINT+4, PRINT+5, PRINT+6, PRINT+7, DONE+1, HDR+1*, SUMPRT+1*, PRTSUM+1, PRTSUM+2
, SUMHDR+1*
>> PSDSN HDR+2, SUMHDR+2
>> SUM PRINT+1
>> X PRINT+6*
>> Y HDR+1, SUMHDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All