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

Package: Controlled Substances

Routine: PSDPAT


Information

PSDPAT ;B'ham ISC/BJW - Prt Data from TRAKKER (Patient/Drug) ; 11 Feb 98

Source Information

Source file <PSDPAT.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  D^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Controlled Substances 2 START^PSDPAT1  ^PSDSET  
Registration 1 KVAR^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD NURSE DISP REPORT  

Entry Points

Name Comments DBIA/ICR reference
SAVE ;sets variables for queueing
END ;
SUM ;ask detail or summary
DEV ;sel device
DATE
DRUG ;ask drug
CHKD
ASKN ;select NAOU for report

External References

Name Field # of Occurrence
^%DT DATE, DATE+1
^%ZIS DEV+1
^%ZISC END+5
^%ZTLOAD DEV+2
^DIC ASKN+4, DRUG+3
D^DIQ DATE+1, DATE+3
^DIR SUM+4
START^PSDPAT1 DEV+3
^PSDSET PSDPAT+3
KVAR^VADPT END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Contact your Nursing ADP Coordinator for access to display the Dispensing Report.",!!
  • Line Location: PSDPAT+5
Function Call: WRITE
  • Prompt: !!,"This NAOU does not maintain a perpetual inventory balance to list",!,"Dispensing data.",!!
  • Line Location: ASKN+5
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for the NAOU you selected.",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+2
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: DATE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"NO DEVICE SELECTED OR REPORT PRINTED!!",!
  • Line Location: DEV+1
Routine Call
  • DIC
  • Line Location:
    • ASKN+4
    • DRUG+3
Routine Call
  • DIR
  • Line Location:
    • SUM+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] ASKN+5, CHKD
^TMP("PSDPAT" END+4!
^TMP("PSDPATL" END+4!
^XUSEC("PSD NURSE" PSDPAT+4
^XUSEC("PSJ RNURSE" PSDPAT+4

Label References

Name Line Occurrences
ASKN ASKN+5, CHKD
DATE DATE+2
END SUM+4, ASKN+4, DRUG+5, DATE, DATE+1, DEV+1, DEV+2
SAVE DEV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+2!
%DT DATE!*, END+2!
%DT("A" DATE*, DATE+1*
%H END+2!
%I END+2!
%ZIS DEV+1!*, END+2!
ALL DRUG+6*, END+2!, SAVE+2
CNT END+2!
DA SUM+1!, ASKN+1!, DRUG+2!, END+2!
DA(1 DRUG+3*
DATE END+2!
DIC ASKN+1!, ASKN+2*, ASKN+4!, DRUG+2!, DRUG+3*!, END+2!
DIC("A" ASKN+2*
DIC("B" ASKN+2*
DIC("S" ASKN+3*
DIC("W" DRUG+3*
DIC(0 ASKN+2*, DRUG+3*
DIR SUM+1!, SUM+4!, END+2!
DIR("?" SUM+3*
DIR("A" SUM+2*
DIR(0 SUM+1*
DIROUT END+2!
DIRUT SUM+1!, SUM+4, END+2!
DTOUT END+2!
DUOUT END+2!
DUZ PSDPAT+4
IO DEV+3
IO("Q" DEV+1!, DEV+2!
IOP DEV+1!
LN END+2!
LOOP END+2!
NAOU ASKN+4*, ASKN+5!, CHKD, DRUG+3, END+2!
NAOUN ASKN+2, ASKN+4*, ASKN+5!, END+2!
NODE END+2!
NODE9 END+2!
NUR1 END+2!
NUR2 END+2!
>> OK PSDPAT+4*
PAT END+3!
PG END+3!
POP DEV+1!, END+3!
PSD END+3!
PSD1 END+3!
PSDA END+3!
PSDATE DATE+1*, DATE+3*, END+3!
PSDED DATE+3*, END+3!
PSDOUT END+3!
PSDPN END+3!
PSDR END+3!
PSDRG DRUG+5, END+3!, SAVE+2
PSDRG( DRUG+4*
PSDRGN END+3!
PSDSD DATE+1*, DATE+2, DATE+3*, END+3!
>> PSDSITE PSDPAT+3
QTY END+3!
SUM SUM+4*, END+3!
TYP END+3!
VA END+1!
X DRUG+5, DRUG+6, END+3!
Y SUM+4, ASKN+4, DRUG+3, DRUG+4, DATE, DATE+1, DATE+2, DATE+3, END+3!
Y(0 DRUG+4
ZTDESC DEV+2*, END+4!
ZTDTH DEV+2!, END+4!
ZTIO DEV+2!, END+4!
>> ZTQUEUED END+5
>> ZTREQ END+5*
ZTRTN DEV+2*, END+4!
ZTSAVE DEV+2!, END+4!
ZTSAVE("ALL" SAVE+2*
ZTSAVE("NAOU" SAVE+1*
ZTSAVE("NAOUN" SAVE+1*
ZTSAVE("PSDATE" SAVE+1*
ZTSAVE("PSDED" SAVE+1*
ZTSAVE("PSDIO" SAVE+1*
ZTSAVE("PSDRG(" SAVE+2*
ZTSAVE("PSDSD" SAVE+1*
ZTSAVE("SUM" SAVE+1*
ZTSK DEV+2!, END+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All