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

Package: Auto Replenishment Ward Stock

Routine: PSGWOLD


Information

PSGWOLD ;BHAM ISC/PTD,CML-Purge Old Inventory Data (Auto Replenish, On-Demands, Returns & Backorder Data) ; 21 Jul 93 / 3:16 PM

Source Information

Source file <PSGWOLD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  (,NOW)^%DTC  ^DIE  ^DIK  
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
Auto Replenishment Ward Stock 1 ^PSGWOLD1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW PURGE FILES  

Entry Points

Name Comments DBIA/ICR reference
BODRGLP
DRGLP
BO ;DELETE DATA IN FILE 58.3 - BACKORDER FILE
BODTLP
DONE
ODLP
INVK ;DELETE DATA IN FILE 58.19 - PHARMACY AOU INVENTORY FILE
BOINVLP
ASK
BODEL ;IF ALL BACKORDER DATES DELETED FOR BO AOU, THEN DELETE AOU FROM SUBFILE. IF ALL AOUS DELETED FOR DRUG, THEN DELETE DRUG FROM FILE.
END
AOULP
ENQ ;ENTRY POINT WHEN QUEUED
RETURNS ;DELETE DATA IN THE RETURNS SUBFILE 58.15
AR ;DELETE DATA IN THE INVENTORY SUBFILE 58.12
DTLP
DTDA
BDT
BXREF
OD ;DELETE DATA IN THE ON-DEMAND REQUEST SUBFILE 58.28
EDT
RETLP
BOAOULP

External References

Name Field # of Occurrence
^%DT EDT
^%DTC EDT+1
NOW^%DTC EDT+1
HOME^%ZIS ASK+4
^%ZTLOAD ASK+4
^DIE AR+1, RETLP+1, ODLP+1, BXREF, BOINVLP+1, BODEL+1, BODEL+2
^DIK INVK+1
^PSGWOLD1 DONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will purge data from files PSI(58.1), PSI(58.3), and PSI(58.19).",!,"You should retain the data for at least 1 quarter.",!,"Therefore, the option will NOT ALLOW DELETION of data newer than ""T-100"".",!!
  • Line Location: PSGWOLD+2
Function Call: WRITE
  • Prompt: ?34,"**WARNING**",!?22,"Since this option is CPU intensive,",!?17,"it should be QUEUED to run in the ""off"" hours!",!!
  • Line Location: PSGWOLD+3
Function Call: WRITE
  • Prompt: !,"There is NO data in the Pharmacy AOU Inventory file.",!!
  • Line Location: BDT+0
Function Call: WRITE
  • Prompt: !!,"Data less than 100 days old may NOT BE DELETED!",!!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!,"No INVENTORY data to purge in selected date range.",!!
  • Line Location: EDT+2
Function Call: WRITE
  • Prompt: !!,"I will now delete INVENTORY data that is older than (and including) ",Y,!,"Are you SURE that is what you want to do? NO// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Answer ""yes"" if you wish to purge INVENTORY data.",!,"Answer ""no"" or <return> if you do not.",!!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"INVENTORY purge queued!"
  • Line Location: ASK+4
Routine Call
  • %ZIS
  • Line Location:
    • ASK+4
Routine Call
  • DIE
  • Line Location:
    • AR+1
    • RETLP+1
    • ODLP+1
    • BXREF
    • BOINVLP+1
    • BODEL+1
    • BODEL+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ASK
^PSI(58.1 - [#58.1] AOULP, DRGLP, AR+1, RETLP, ODLP
^PSI(58.19 - [#58.19] BDT, BDT+1, DTLP, DTDA
^PSI(58.3 - [#58.3] BXREF, BODTLP, BODRGLP, BOAOULP, BOINVLP, BOINVLP+1, BODEL+1, BODEL+2

Label References

Name Line Occurrences
AOULP DTDA, DRGLP
ASK ASK+2
BO DTLP
BOAOULP BOINVLP
BODEL BOINVLP+1
BODRGLP BOAOULP
BODTLP BODRGLP
BOINVLP BOINVLP+1, BOINVLP+2
DONE BODTLP
DRGLP ODLP
DTDA AOULP
DTLP DTDA
EDT EDT+1
END EDT, EDT+2, ASK+1, ASK+5
INVK DTDA, BODRGLP
OD RETLP
ODLP ODLP+1, ODLP+2
RETLP RETLP+1, RETLP+2
RETURNS AR+2

Naked Globals

Name Field # of Occurrence
^(0 BOINVLP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDT+1, END!
%DT EDT*!
%DT("A" EDT*
%DT("B" EDT*
%H END!
%I END!
AOUDA DTDA*, AOULP*, DRGLP, AR+1, RETLP, RETLP+1, ODLP, ODLP+1, END!
BDT BDT*!, BDT+1*, EDT+2, ENQ+1, END!
BOAOU BODRGLP*, BOAOULP*, BOINVLP, BOINVLP+1, BODEL+1, END!
BODRG BODTLP*, BODRGLP*, BOAOULP, BOINVLP, BOINVLP+1, BODEL+1, BODEL+2, END!
BODTDA BO+1*, BODTLP*, BODRGLP, BOAOULP, BOINVLP, INVK+1, END!
BOINV BOAOULP*, BOINVLP*, BOINVLP+1, END!
DA AR+1*, RETLP+1*, ODLP+1*, BXREF*, BOINVLP+1*, INVK+1*, BODEL+1*, BODEL+2*, END!
DA(1 AR+1*, RETLP+1*, ODLP+1*, BOINVLP+1*, BODEL+1*
DA(2 AR+1*, RETLP+1*, ODLP+1*, BOINVLP+1*
DATDA ENQ+1*, DTDA*, AR+1, INVK+1, END!
DELFL DTDA*, BODTLP*, BOINVLP+2*, INVK+1, END!
DIE AR+1*!, RETLP+1*!, ODLP+1*!, BXREF*!, BOINVLP+1*!, BODEL+1*!, BODEL+2*!
DIK INVK+1*!
DR AR+1*, RETLP+1*, ODLP+1*, BXREF*, BOINVLP+1*, BODEL+1*, BODEL+2*, END!
DRG BO+1*, BXREF*, END!
DRGDA AOULP*, DRGLP*, AR+1, RETLP, RETLP+1, ODLP, ODLP+1, END!
DTIME ASK
EDT EDT*, EDT+2, ASK, DTLP, RETLP+1, ODLP+1, BOINVLP+1, END!
G ASK+3*, END!
INVDA END!
JJ BXREF*, END!
LPDT ENQ+1*, DTLP*, DTDA, END!
ODA OD+1*, ODLP*, ODLP+1, END!
ODT ODLP*, ODLP+1, END!
RETDT RETURNS+1*, RETLP*, RETLP+1, END!
X EDT+1, ASK*, ASK+1, ASK+2, END!
>> X1 EDT+1*
>> X2 EDT*
Y EDT, ASK*, END!
>> ZTDESC ASK+3*
ZTIO ASK+3*, END!
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN ASK+3*
>> ZTSAVE( ASK+3*
ZTSK ASK+4!, END!
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