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

Package: Auto Replenishment Ward Stock

Routine: PSGWEDIS


Information

PSGWEDIS ;BHAM/CML-Input AOU 'INPATIENT SITE' field ; 07/19/90 10:27

Source Information

Source file <PSGWEDIS.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW INPUT AOU INP SITE  

Entry Points

Name Comments DBIA/ICR reference
WARN ;
START ;
ED ;
QUIT

External References

Name Field # of Occurrence
^DIE ED+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will loop thru the PHARMACY AOU STOCK FILE (#58.1) and",!,"locate all ""ACTIVE"" AOUs that do not have an INPATIENT SITE defined."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: *7,!!,"ALL ACTIVE AOUs HAVE INPATIENT SITE DEFINED!!"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: *7,!!,"LOOP COMPLETED!"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"=> ",AOU
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: *7,!!,"LOOP INTERRUPTED!",!!," *** Please complete this editing soon, it is VERY IMPORTANT that ***",!," *** all your AOUs have the INPATIENT SITE field defined. ***"
  • Line Location: WARN+1
Routine Call
  • DIE
  • Line Location:
    • ED+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSI(58.1 - [#58.1] START+2, ED+1

Label References

Name Line Occurrences
ED START+2
QUIT START+2, START+3
WARN START+2

Naked Globals

Name Field # of Occurrence
^("I" START+2
^("SITE" START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AOU START+2*, QUIT!, ED+1
D QUIT!
D0 QUIT!
DA QUIT!, ED+1*
DI QUIT!
DIC QUIT!
DIE ED+1*!
DISYS QUIT!
DQ QUIT!
DR QUIT!, ED+1*
DT START+2
EDFLG START+1*, START+2, START+3, QUIT!, ED+1*
JJ START+2*, QUIT!
LL START+2*, QUIT!, ED+1
X QUIT!
Y QUIT!, ED+1
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