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

Package: Controlled Substances

Routine: PSDNTR


Information

PSDNTR ;BIR/BJW-CS Transfer Between NAOUs Report ; 11 Feb 98

Source Information

Source file <PSDNTR.m>

Entry Points

Name Comments DBIA/ICR reference
DATE ;ask date range
ASKN ;ask NAOU(s)
DEV ;dev & queue info
START ;compile data
PRINT ;print transfer between naous by date
DONE
END ;
HDR ;header for log
SAVE
SET ;set data for printing

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to print",!,?12,"CS reports. PSJ RPHARM or PSD TECH ADV security key required.",!
  • Line Location: PSDNTR+4
Function Call: WRITE
  • Prompt: !!,"CS Transfer Green Sheets Between NAOUs Report",!!
  • Line Location: PSDNTR+5
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: !!,?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+2
Function Call: WRITE
  • Prompt: !!,?45,"**** NO TRANSFER BETWEEN NAOUs DATA FOR THIS REPORT ****"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,NUM,?12,$P(NODE,"^"),?38,$E($P(NODE,"^",4),1,30),?60,$J($P(NODE,"^",3),6),?80,$P(NODE,"^",2),?100,$E($P(NODE,"^",5),1,30)
  • Line Location: PRINT+7
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: !,?35,"CS TRANSFER GREEN SHEETS BETWEEN NAOUs REPORT",?120,"Page: ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?35,"FOR PERIOD ",$P(PSDATE,"^")," TO ",$P(PSDATE,"^",2)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?40,"PRINTED ",RPDT,!!,?5,"=> DRUG",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?16,"DATE",?36,"NAOU",?86,"DATE",?104,"NAOU",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "DISP #",?11,"TRANSFERRED FROM",?32,"TRANSFERRED FROM",?62,"QUANTITY",?82,"TRANSFERRED IN",?100,"TRANSFERRED IN",!,LN,!
  • Line Location: HDR+6
Info |  Source |  Entry Points |  Interaction Calls