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

Package: Controlled Substances

Routine: PSDNBAL


Information

PSDNBAL ;EPIP/RTW - Ask CS Remaining Balance ;29 Aug 94

Source Information

Source file <PSDNBAL.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 NOW^%DTC  ^DIR  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDOPT  

Entry Points

Name Comments DBIA/ICR reference
ENTER ;
HLPMSG ;
EXIT ;
PSDATMPT
MESS1
MESS2
MESG ;Ask comment and send message

External References

Name Field # of Occurrence
NOW^%DTC MESG+20
^DIR ENTER+11, MESG+7
^XMD MESG+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*** NOTICE: You have 3 valid attempts to enter the correct remaining balance"
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !," before a message is sent to the CS BALANCE DISCREPANCY mail group.",!
  • Line Location: ENTER+5
Function Call: WRITE
  • Prompt: !!,"Enter the remaining balance on hand. The system will compare"
  • Line Location: HLPMSG+1
Function Call: WRITE
  • Prompt: !,"against the database. You will have a total of 3 valid attempts"
  • Line Location: HLPMSG+2
Function Call: WRITE
  • Prompt: !,"before a message is sent to the CS BALANCE DISCREPANCY mail"
  • Line Location: HLPMSG+3
Function Call: WRITE
  • Prompt: !,"group."
  • Line Location: HLPMSG+4
Function Call: WRITE
  • Prompt: !,""
  • Line Location: HLPMSG+5
Function Call: WRITE
  • Prompt: !,"Input must be a numeric amount with no more than two decimal"
  • Line Location: HLPMSG+6
Function Call: WRITE
  • Prompt: !,"digits. Invalid attempts will not count against your total"
  • Line Location: HLPMSG+7
Function Call: WRITE
  • Prompt: !,"attempts."
  • Line Location: HLPMSG+8
Function Call: WRITE
  • Prompt: !!,"Sorry the remaining balance you entered does not match the balance",!,"on record in the CS package.",!!,"Please check to ensure you have dispensed the right drug and",!," dispensed the correct quantity.",!
  • Line Location: MESS1+0
Function Call: WRITE
  • Prompt: !!,"This will be the last entry in the remaining balance check.",!!,"If the entry still does not match a message will be sent to the",!,"appropriate person for review."
  • Line Location: MESS2+0
Function Call: WRITE
  • Prompt: " You may proceed if you have dispensed the",!,"correct drug in the correct quantity. Thank you.",!
  • Line Location: MESS2+1
Routine Call
  • DIR
  • Line Location:
    • ENTER+11
    • MESG+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MESG+20
^TMP($J EXIT+2!, MESG+12*, MESG+13*, MESG+14*, MESG+15*, MESG+16*, MESG+17*, MESG+18*, MESG+21*, MESG+24*
, MESG+25*, MESG+26*, MESG+27*
^VA(200 - [#200] MESG+23

Label References

Name Line Occurrences
@( ENTER+15
ENTER PSDATMPT, PSDATMPT+1
EXIT ENTER+11, MESG+7, MESG+31
MESG PSDATMPT+2
MESS1 PSDATMPT
MESS2 PSDATMPT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MESG+20
>> BAL ENTER+12
DIFROM MESG+19~
DIR ENTER+11!, MESG+7!
DIR("?" MESG+4*, MESG+5*, MESG+6*
DIR("??" ENTER+10*
DIR("A" ENTER+8*, MESG+2*
DIR("T" ENTER+9*, MESG+3*
DIR(0 ENTER+7*, MESG+1*
DIRUT ENTER+1~, ENTER+11, MESG+7
DTIME ENTER+9, MESG+3
DUZ MESG+10, MESG+23
PSDANS ENTER+11*, ENTER+13, ENTER+14, EXIT+1!, MESG+17, MESG+30
PSDNOT PSDNBAL+8~*, ENTER+3, ENTER+6*
>> PSDOUT ENTER+2*, ENTER+11*
PSDPHN EXIT+1!, MESG+23*, MESG+24
PSDQCHO ENTER+14*, ENTER+15, EXIT+1!
PSDQDB ENTER+12*, ENTER+13, ENTER+14, EXIT+1!, MESG+18
PSDRN EXIT+1!, MESG+14
PSDTRY PSDNBAL+9*, EXIT+1!, PSDATMPT*, PSDATMPT+1*, PSDATMPT+2
PSDWANS EXIT+1!, MESG+7*, MESG+25
>> QTY ENTER+12, MESG+16
>> RXNUM MESG+15
XMDUZ EXIT+1!, MESG+22*
XMSUB EXIT+1!, MESG+9*
XMTEXT MESG+8!, MESG+28*
XMY EXIT+1!
XMY( MESG+10*
XMY("G.CS BAL ANCE DISCREPANCY" , MESG+11*
XMZ EXIT+1!, MESG+30
Y ENTER+11, MESG+7, MESG+19~, MESG+20*, MESG+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All