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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGWBGIN

Package: Auto Replenishment Ward Stock

Routine: PSGWBGIN


Information

PSGWBGIN ;BHAM ISC/CML-AR/WS Item Inactivation ; 06 Aug 93 / 2:19 PM

Source Information

Source file <PSGWBGIN.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  YN^DICN  ^DIE  
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW INACTIVATE AOU STOCK ITEM  

Entry Points

Name Comments DBIA/ICR reference
QUIT
INACT2 ; Inactivate an Item for a single AOU
INACT1 ; Inactivate an Item for ALL AOUs
START ;
QUE
ASK ;
MAIL ;
ASKR1
ASKR2

External References

Name Field # of Occurrence
NOW^%DTC START+1
HOME^%ZIS QUE+2
^%ZTLOAD QUE+2
^DIC PSGWBGIN+3, ASK+1
YN^DICN QUE
^DIE INACT1+1, INACT2+1
^XMD MAIL+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You may inactivate a Stock Item for a single AOU,",!,"or enter ""^ALL"" to inactivate the Item in ALL AOUs.",!
  • Line Location: PSGWBGIN+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Enter the ITEM you wish to inactivate in all AOUs.",!
  • Condition for execution: X?1."?"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Select INACTIVATION REASON:",!?5,"(N) - NOT USED",!?5,"(DF) - DELETED FROM FORMULARY",!?5,"(O) - OTHER"
  • Line Location: ASK+2
Function Call: READ
  • Prompt: "=> "
  • Formatting: ?34
  • Timeout: DTIME
  • Variable: REA1
  • Line Location: ASKR1+0
Function Call: WRITE
  • Prompt: *7,!?37,"Enter 'N', 'DF', or 'O'",!
  • Line Location: ASKR1+0
Function Call: READ
  • Prompt: "Enter INACTIVATION REASON (OTHER): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: REA2
  • Line Location: ASKR2+0
Function Call: WRITE
  • Prompt: *7,!?5,"ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
  • Line Location: ASKR2+0
Function Call: WRITE
  • Prompt: !!,"Do you want to queue this job"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"To queue this job to run at a later time and free up your terminal now, accept",!,"the default, otherwise enter 'N' to run it immediately or '^' to Exit"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"You will be notified by MailMan when the job is completed.",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: *7,!!,$P(^PSDRUG(ITEM,0),"^")," has been inactivated in ",AOUCNT," AOU(s).",!
  • Line Location: START+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+2
Routine Call
  • DIE
  • Line Location:
    • INACT1+1
    • INACT2+1
Routine Call
  • DIC
  • Line Location:
    • PSGWBGIN+3
    • ASK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PSI(58.1 - [#58.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MAIL+1
^PSDRUG - [#50] START+2, MAIL+2
^PSI(58.1 - [#58.1] START+1, INACT1+1
^TMP("PSGWMSG" QUIT!, MAIL+1*, MAIL+2*

Label References

Name Line Occurrences
ASK PSGWBGIN+3, ASK+1
ASKR1 ASKR1
ASKR2 ASKR1, ASKR2
INACT1 START+1
INACT2 PSGWBGIN+3
QUE ASKR1+1
QUIT MAIL+3

Naked Globals

Name Field # of Occurrence
^(0 START+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT!, QUE*, QUE+1, QUE+2
ALL PSGWBGIN+3*, QUIT!, INACT2+1*
AOU QUIT!, START+1*, INACT1+1
AOUCNT QUIT!, START+1*, START+2, MAIL+2
DA QUIT!, INACT1+1!*, INACT2+1!*
DA(1 INACT1+1*
DIC PSGWBGIN+3*!, ASK+1*!
DIC(0 PSGWBGIN+3*, ASK+1*
DIE INACT1+1*!, INACT2+1!*
DR QUIT!, INACT1+1*, INACT2+1*
DTIME ASK+1, ASKR1, ASKR2
DUZ MAIL+3
I QUIT!
INDT QUIT!, START+1*, MAIL+1, INACT1+1
ITEM QUIT!, ASK+1*, START+1, START+2, MAIL+2
ITEMNUM QUIT!, START+1*, INACT1+1
J QUIT!
K QUIT!
QFLG PSGWBGIN+3!, QUIT!, ASK+1*, ASKR1*, ASKR2*, INACT2+1*
QQ PSGWBGIN+3*, QUIT!, QUE*
QUE QUIT!, QUE+1*, START+2
RDT QUIT!, MAIL+1*, MAIL+2
REA1 QUIT!, ASKR1*, INACT1+1
REA2 QUIT!, ASK+1*, ASKR2*, INACT1+1
X PSGWBGIN+3, QUIT!, ASK+1*, START+1
XMDUZ QUIT!, MAIL+3*
XMKK QUIT!
XMLOCK QUIT!
XMR QUIT!
XMSUB QUIT!, MAIL+3*
XMT QUIT!
XMTEXT QUIT!, MAIL+3*
XMY MAIL+1!, MAIL+3!
XMY( MAIL+3*
XMZ QUIT!
Y PSGWBGIN+3, QUIT!, ASK+1, MAIL+1*, INACT2+1
>> ZTDESC QUE+2*
>> ZTIO QUE+2*
>> ZTQUEUED QUIT+1
>> ZTREQ QUIT+1*
>> ZTRTN QUE+2*
>> ZTSAVE("ITEM" QUE+2*
>> ZTSAVE("QUE" QUE+2*
>> ZTSAVE("REA1" QUE+2*
>> ZTSAVE("REA2" QUE+2*
ZTSK QUIT!, QUE+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All