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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDWCHG

Package: Controlled Substances

Routine: PSDWCHG


Information

PSDWCHG ;BIR/JPW-CS Mass Ward (for Drug) Transfer ; 6 July 94

Source Information

Source file <PSDWCHG.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  ^DIE  ^DIK  ^DIR  
Controlled Substances 1 ^PSDSET  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD WARD CONVERSION  

Entry Points

Name Comments DBIA/ICR reference
OLD ;asking for old (current) WARD (FOR DRUG)
CHG ;change wards
START ;loop to update ward conversion
QUE ;asks queueing information
MSG ;send mailman message with completed info
NEW ;asking new (replacement) WARD (FOR DRUG)
NAOU ;ask NAOU
END

External References

Name Field # of Occurrence
NOW^%DTC MSG+1
^%ZTLOAD QUE+5
^DIC NAOU+2
^DIE CHG+2
^DIK CHG+1
^DIR OLD+1, NEW+1, QUE+2
^PSDSET PSDWCHG+2
^XMD MSG+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will allow you to do a mass conversion of all drugs in an ",!,"active NAOU from an old Ward designation to a new Ward designation."
  • Line Location: PSDWCHG+4
Function Call: WRITE
  • Prompt: !!,"You may convert a single NAOU, several NAOUs, or enter ^ALL to convert",!,"all NAOUs.",!!
  • Line Location: PSDWCHG+5
Function Call: WRITE
  • Prompt: !,"No Action Taken",!
  • Line Location: NEW+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: $C(7),!!,"The WARD change you selected will not be updated.",!!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Converting WARD (for Drug) now..."
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"You will be notified by MailMan when the job is completed.",!!
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Total Stock Drugs converted: ",CNTD,!,"Total NAOU(s) converted: ",CNTN,!
  • Line Location: START+5
Routine Call
  • DIE
  • Line Location:
    • CHG+2
Routine Call
  • DIC
  • Line Location:
    • NAOU+2
Routine Call
  • DIR
  • Line Location:
    • OLD+1
    • NEW+1
    • QUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MSG+1
^PSD(58.8 - [#58.8] NAOU+4, START+2, CHG+2, CHG+3, CHG+4*
^TMP("PSDWCHG" START+1!, START+2*, START+3, START+4!, END+1!
^TMP("PSDWCMSG" MSG+1!*, MSG+2*, MSG+3*, MSG+4!

Label References

Name Line Occurrences
CHG START+3
END NAOU+3, NAOU+5, OLD+1, NEW+1, QUE+2, QUE+5
MSG START+4
START QUE+3

Naked Globals

Name Field # of Occurrence
^("I" NAOU+4
^(0 NAOU+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
CNTD START+1*, START+3*, START+5, END!, MSG+3
CNTN START+1*, START+3*, START+5, END!, MSG+2
DA NAOU+1!, OLD+1!, NEW+1!, QUE+1!, END!, CHG+1!*, CHG+2!*
DA(1 CHG+1*, CHG+2*
DA(2 CHG+1*, CHG+2*
DIC NAOU+1!, NAOU+2*!, END!
DIC("A" NAOU+2*
DIC("S" NAOU+2*
DIC(0 NAOU+2*
DIE END!, CHG+2*!
DIK CHG+1!*
DIR OLD+1!, NEW+1!, QUE+1!, QUE+2!, END!
DIR("?" OLD+1*, NEW+1*, QUE+1*, QUE+2*
DIR("A" OLD+1*, NEW+1*, QUE+1*
DIR("B" QUE+1*
DIR(0 OLD+1*, NEW+1*, QUE+1*
DIRUT OLD+1!, NEW+1!, QUE+1!, QUE+2, END!
DR END!, CHG+2*
DT NAOU+4
DTOUT END!
DUOUT END!
DUZ PSDWCHG+3
JJ END!, CHG+3*
LOC START+2*, START+3*, END!, CHG+1, CHG+2, CHG+3, CHG+4
NAOU NAOU+3, NAOU+5, QUE+5, END!
NAOU( NAOU+2*, NAOU+4*, START+2
NEW NEW+2*, END!, CHG+2, CHG+4
NEWN NEW+2*, END!, MSG+2
OLD OLD+2*, START+2, END!, CHG+1
OLDN OLD+2*, NEW+1, END!, MSG+2
PSD NAOU+4*, END+1!
PSDA END+1!
PSDOUT END+1!
PSDR END+1!
PSDRG START+2*, START+3*, END+1!, CHG+1, CHG+2, CHG+3, CHG+4
>> PSDSITE PSDWCHG+2, NAOU+4
PSDUZ PSDWCHG+3*, END+1!, MSG+4
QUE QUE+1*, QUE+4*, START+4, START+5, END+1!, CHG+2
RDT END+1!, MSG+1*
SUB END+1!, CHG+3*, CHG+4
X NAOU+3, NAOU+4, END+1!, MSG+1
XMDUZ END+1!, MSG+4*
XMSUB END+1!, MSG+4*
XMTEXT END+1!, MSG+4*
XMY END+1!, MSG+1!, MSG+4!
XMY( MSG+4*
Y NAOU+2, OLD+1, OLD+2, NEW+1, NEW+2, QUE+3, END+1!, MSG+1*
ZTDESC QUE+5*, END+1!
ZTIO QUE+5*, END+1!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN QUE+5*, END+1!
ZTSAVE END+1!
ZTSAVE("NAOU(" QUE+5*
ZTSAVE("NEW" QUE+5*
ZTSAVE("NEWN" QUE+5*
ZTSAVE("OLD" QUE+5*
ZTSAVE("OLDN" QUE+5*
ZTSAVE("PSDUZ" QUE+5*
ZTSAVE("QUE" QUE+5*
ZTSK QUE+5!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All