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

Package: Auto Replenishment Ward Stock

Routine: PSGWAR


Information

PSGWAR ;BHAM ISC/PTD,CML-Print AMIS Report ; 14 Feb 1989 1:36 PM

Source Information

Source file <PSGWAR.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA Fileman 2 ^%DT  ^%DTC  
Auto Replenishment Ward Stock 1 (DONE,END,ENQ)^PSGWAR1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW PRINT AMIS REPORT  

Entry Points

Name Comments DBIA/ICR reference
BDT
DEV
EDT
ERRCHK ;

External References

Name Field # of Occurrence
^%DT BDT, EDT
^%DTC PSGWAR+4
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZTLOAD DEV+2
DONE^PSGWAR1 DEV+2
END^PSGWAR1 BDT, EDT, EDT+1, EDT+2, EDT+3, DEV
ENQ^PSGWAR1 DEV+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Earliest date for which you have AMIS data is: ",Y,!!
  • Line Location: PSGWAR+2
Function Call: WRITE
  • Prompt: $P(Y,"@")," at ",$P(Y,"@",2)," is the last date that AMIS Statistics",!,"were updated by the nightly TaskMan routine.",!!
  • Line Location: PSGWAR+3
Function Call: WRITE
  • Prompt: *7,*7,!?24,"** WARNING **",!,"Please contact ADP and request that Taskmanager option",!,"""PSGW UPDATE AMIS STATS"" be RESCHEDULED to run nightly.",!!
  • Line Location: PSGWAR+4
Function Call: WRITE
  • Prompt: !!,"There is NO data in the AMIS Stats file for selected dates."
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!,"There are AMIS exceptions for the dates you selected.",!,"You MUST use the Incomplete AMIS Data option",!,"to supply missing data before AMIS will run!",!!
  • Line Location: EDT+2
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 132.",!,"You may queue the report to print at a later time.",!!
  • Line Location: EDT+4
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !?5,$P(^PSI(58.1,AOU,0),"^")
  • Line Location: ERRCHK+3
Function Call: WRITE
  • Prompt: !!,"The AMIS Report cannot be printed until the INPATIENT SITE field is edited",!,"for the listed AOU(s) and the TASKMAN job to update the AMIS Stats file,",!,"""PSGW UPDATE AMIS STATS"" is run."
  • Line Location: ERRCHK+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSGWAR+2, PSGWAR+3
^PS(59.7 - [#59.7] PSGWAR+3
^PSI(58.1 - [#58.1] ERRCHK+3
^PSI(58.5 - [#58.5] PSGWAR+2, EDT+1, EDT+2, EDT+3, ERRCHK+1

Label References

Name Line Occurrences
ERRCHK EDT+3

Naked Globals

Name Field # of Occurrence
^(0 PSGWAR+2
^(50 PSGWAR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDT*!, EDT*!
%DT("A" BDT*, EDT*
%DT(0 EDT*
%ZIS DEV!*
%ZIS("B" DEV*
ADT ERRCHK+1*, ERRCHK+2!
AOU ERRCHK+1*, ERRCHK+2!, ERRCHK+3*
AOU( ERRCHK+1*, ERRCHK+3
AOU(0 EDT+3, ERRCHK+2
>> BDT BDT*, EDT, EDT+1, EDT+2, ERRCHK+1
CURDT ERRCHK+1*, ERRCHK+2!
DT PSGWAR+4
>> EDT EDT*, EDT+2, ERRCHK+1
>> G DEV+1*
IO DEV+3
IO("Q" DEV+1!
IOP DEV!
LL ERRCHK+1*, ERRCHK+2!
>> POP DEV
>> UPDT PSGWAR+3*, PSGWAR+4
>> X PSGWAR+4
>> X1 PSGWAR+4*
>> X2 PSGWAR+4*
>> Y PSGWAR+2*, PSGWAR+3*, BDT, EDT
>> ZTDESC DEV+1*
>> ZTRTN DEV+1*
>> ZTSAVE( DEV+1*
ZTSK DEV+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All