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

Package: Controlled Substances

Routine: PSDNBT


Information

PSDNBT ;BIR/JPW-GS Trans Between NAOUs Not Rec Report ; 2 Aug 94

Source Information

Source file <PSDNBT.m>

Entry Points

Name Comments DBIA/ICR reference
DEV ;ask device and queue info
START ;compile data
PRINT ;print
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.",!
  • Line Location: PSDNBT+3
Function Call: WRITE
  • Prompt: !!,"Green Sheets Transferred Between NAOUs Pending Receipt",!!
  • Line Location: PSDNBT+4
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: !!,?30,"**** NO GREEN SHEETS TRANSFERRED BETWEEN NAOUs PENDING RECEIPT ****",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,?5,"= > ",DRUG,!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,?5,"=> ",DRUG,!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,NUM,?12,$P(NODE,"^",4),?38,$E($P(NODE,"^",2),1,25),?60,$J($P(NODE,"^",3),6),?80,$P(NODE,"^",5),?100,$E($P(NODE,"^"),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: !,?25,"GREEN SHEETS TRANSFERRED BETWEEN NAOUs PENDING RECEIPT",?115,"Page: ",PG,!,?40,RPDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?5,"=> DRUG",!,?16,"DATE",?38,"NAOU",?82,"NURSE",?104,"NAOU"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"DISP #",?11,"TRANSFERRED FROM",?32,"TRANSFERRED FROM",?62,"QUANTITY",?80,"TRANSFERRING",?100,"TRANSFERRED TO",!,LN
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls