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

Package: Auto Replenishment Ward Stock

Routine: PSGWCHG


Information

PSGWCHG ;BHAM ISC/CML-AR/WS Mass Ward Conversion ; 06 Aug 93 / 2:18 PM

Source Information

Source file <PSGWCHG.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  YN^DICN  ^DIE  ^DIK  
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
Auto Replenishment Ward Stock 1 SEL^PSGWUTL1  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW WARD CONVERSION  

Entry Points

Name Comments DBIA/ICR reference
QUIT
OLD
CHK ;
START ;
QUE
MAIL ;
ASK
NEW

External References

Name Field # of Occurrence
NOW^%DTC MAIL+1
HOME^%ZIS QUE+3
^%ZTLOAD QUE+3
^DIC PSGWCHG+5, OLD, NEW+1
YN^DICN QUE
^DIE CHK+2
^DIK CHK+1
SEL^PSGWUTL1 PSGWCHG+3
^XMD MAIL+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will allow you to do a mass conversion of all active items in",!,"an active AOU from an old Ward designation to a new Ward designation."
  • Line Location: PSGWCHG+2
Function Call: READ
  • Prompt: "Select OLD WARD: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: OLD+0
Function Call: READ
  • Prompt: "Select NEW WARD: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: NEW+0
Function Call: WRITE
  • Prompt: !!,"Do you want to queue this job"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"If you want to queue this job to run at a later time, 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,!!,"Total Stock Items converted: ",ITEMCNT,!,"Total AOU(s) converted: ",MEDRCNT,!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHK+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+3
Routine Call
  • DIE
  • Line Location:
    • CHK+2
Routine Call
  • DIC
  • Line Location:
    • PSGWCHG+5
    • OLD
    • NEW+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^PSI(58.1 - [#58.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MAIL+1
^DIC(42 - [#42] NEW, MAIL+2
^PSI(58.1 - [#58.1] PSGWCHG+3, PSGWCHG+7, START+2, CHK+2, CHK+3, CHK+4*
^TMP("PSGWMSG" MAIL+1*, MAIL+2*, MAIL+3*, QUIT!
^TMP("PSGWOLD" START+1!, START+2*, START+3, QUIT!

Label References

Name Line Occurrences
ASK PSGWCHG+4
CHK START+3
NEW NEW+1
OLD OLD
QUIT PSGWCHG+3, PSGWCHG+6, ASK, OLD, NEW, QUE+1, QUE+3, START+4

Naked Globals

Name Field # of Occurrence
^("I" PSGWCHG+3, PSGWCHG+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUE*, QUE+1, QUE+2, QUIT!
%H QUIT!
%I QUIT!
AOU PSGWCHG+7*, QUIT!
AOULP PSGWCHG+6, ASK, QUE+2, QUIT!
AOULP( PSGWCHG+3!, PSGWCHG+5*, PSGWCHG+7*, START+2
CNT QUIT!, CHK+3*, CHK+4
DA QUIT!, CHK+1!*, CHK+2!*
DA(1 CHK+1*, CHK+2*
DA(2 CHK+1*, CHK+2*
DIC PSGWCHG+5*!, OLD*!, NEW+1*!
DIC("S" PSGWCHG+5*, NEW+1*
DIC(0 PSGWCHG+5*, OLD*, NEW+1*
DIE CHK+2*!
DIK CHK+1*!
DR QUIT!, CHK+2*
DRUG START+2*, QUIT!
DT PSGWCHG+3, PSGWCHG+7
DTIME OLD, NEW
DUZ MAIL+4
G QUE+2*, QUIT!
I QUIT!, CHK+3*
IGDA QUIT!
ITEM START+2*, START+3*, QUIT!, CHK+1, CHK+2, CHK+3, CHK+4
ITEMCNT START+1*, START+3*, START+4, MAIL+3, QUIT!
J QUIT!
JJ PSGWCHG+3*, QUIT!
K QUIT!
MEDR START+2*, START+3*, QUIT!, CHK+1, CHK+2, CHK+3, CHK+4
MEDRCNT START+1*, START+3*, START+4, MAIL+2, QUIT!
NEW NEW+1*, MAIL+2, QUIT!, CHK+2, CHK+4
OLD OLD*, NEW, START+2, MAIL+2, QUIT!, CHK+1
QQ PSGWCHG+5*, QUE*, QUIT!
QUE QUE+1*, START+4, QUIT!, CHK+2
RDT MAIL+1*, QUIT!
SEL PSGWCHG+3, PSGWCHG+4, QUIT!
X PSGWCHG+6, PSGWCHG+7, OLD*, NEW*, MAIL+1, QUIT!
XCNP QUIT!
XMDUZ MAIL+4*, QUIT!
XMKK QUIT!
XMLOCK QUIT!
XMR QUIT!
XMSUB MAIL+4*, QUIT!
XMT QUIT!
XMTEXT MAIL+4*, QUIT!
XMY MAIL+1!, MAIL+4!
XMY( MAIL+4*
XMZ QUIT!
Y PSGWCHG+5, OLD, NEW+1, MAIL+1*, QUIT!
>> ZTDESC QUE+2*
>> ZTIO QUE+2*
>> ZTQUEUED QUIT+1
>> ZTREQ QUIT+1*
>> ZTRTN QUE+2*
>> ZTSAVE( QUE+2*
>> ZTSAVE("AOULP(" QUE+2*
ZTSK QUE+3!, QUIT!
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