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

Package: Auto Replenishment Ward Stock

Routine: PSGWRA


Information

PSGWRA ;BHAM ISC/PTD,CML-Recalculate AMIS Data ; 02/13/90 15:50

Source Information

Source file <PSGWRA.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
Auto Replenishment Ward Stock 1 CALC^PSGWCAD  
MailMan 1 ^XMD  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW RECALCULATE AMIS  

Entry Points

Name Comments DBIA/ICR reference
DTDA
START ;LOOP THRU "B" XREF
UPAMIS ;UPDATE THE AMIS SUBFILE
END
ENQ ;BUILD SITE ARRAY
DTLP
UPDATE
BDT
MSG
QUE
EDT
ERROR
ASK
DRGLP
AMIS

External References

Name Field # of Occurrence
^%DT BDT, EDT
HOME^%ZIS QUE+2
^%ZTLOAD QUE+2
CALC^PSGWCAD UPDATE+1
^XMD MSG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option should be used ONLY if you have discovered and CHANGED",!,"cost data, AMIS category, or AMIS conversion number in the Drug file.",!,"Recalculation will use the new data to calculate AMIS stats.",!!!
  • Line Location: PSGWRA+4
Function Call: WRITE
  • Prompt: !!,"There is NO data in the AMIS Stats file."
  • 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 before RECALCULATION!"
  • Line Location: EDT+2
Function Call: WRITE
  • Prompt: !!,"I will now DELETE ALL AMIS DATA from ",Y," to "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: Y," and RECALCULATE.",!!,"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 delete AMIS data",!,"for the date range and recalculate.",!,"Answer ""no"" or <return> if you do not.",!!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"This job will automatically be queued to run in the background.",!,"You will be notified by MailMan when the recalculation is completed.",!
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !,"RECALCULATE AMIS DATA queued!"
  • Line Location: QUE+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ASK, MSG
^PS(59.4 - [#59.4] ENQ+1
^PSDRUG - [#50] DRGLP+2, DRGLP+4, ERROR
^PSI(58.5 - [#58.5] EDT+1, EDT+2, ENQ+1, DTLP, DTDA, DTDA+1!, DRGLP, UPAMIS+1
^TMP("PSGWMSG" PSGWRA+3!, MSG*, END!, ERROR*

Label References

Name Line Occurrences
@( AMIS
ASK ASK+1
DRGLP DRGLP+8
DTDA DRGLP
DTLP DTDA
END BDT, EDT, EDT+1, EDT+2, ASK+1, QUE+2
ERROR DRGLP+3, DRGLP+5, DRGLP+6, DRGLP+7
MSG ENQ+2
START ENQ+3
UPAMIS DRGLP+8
UPDATE UPAMIS+1

Naked Globals

Name Field # of Occurrence
^("PSG" DRGLP+4
^(0 ENQ+1, UPAMIS+1
^(660 DRGLP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDT*!, EDT*!
%DT("A" BDT*, EDT*
%DT(0 EDT*
BDT BDT*, EDT, EDT+1, EDT+2, ASK, ENQ+1, MSG, END!, START+1
CAT END!, UPAMIS+1*
COST END!, AMIS+1!
DA END!
DATDA END!, START+1*, DTDA*, DTDA+1, DRGLP, UPAMIS+1
DOSE END!, AMIS+1!
DR END!
DRGDA END!, DTDA+1*, DRGLP*, UPAMIS+1
DTDA END!
DTIME ASK
DUZ PSGWRA+3
EDT EDT*, EDT+2, ASK, ENQ+1, MSG, END!, DTLP
FLD END!, AMIS+1!
FLDA END!
G QUE+1*, END!
INC ENQ+2*, MSG, END!, START+1*, DRGLP+2*, DRGLP+3*, DRGLP+4*, DRGLP+5*, DRGLP+6*, DRGLP+7*
, DRGLP+8, ERROR
J END!, DRGLP+6*, DRGLP+7*
LOC1 END!, DRGLP+2*, DRGLP+6
LOC2 END!, DRGLP+4*, DRGLP+7
LOC3 END!, UPDATE*, AMIS+1!
LPDT END!, START+1*, DTLP*, DTDA
PSGWADT END!, DTLP*
PSGWAOU END!
PSGWCAT UPAMIS+1*, UPDATE, AMIS, AMIS+1!
PSGWDN END!, DRGLP*, DRGLP+2, DRGLP+4, ERROR
PSGWDUZ PSGWRA+3*, MSG+1, END!
PSGWQD UPAMIS+1*, AMIS+1!
RPDT ENQ+1*, END!
SITE ENQ+1*, ENQ+3*, END!, DTDA+1, DRGLP, UPAMIS+1
SITE( ENQ+1*, ENQ+3
SITE(0 ENQ+2
X ASK*, ASK+1, END!
XMDUZ MSG+1*, END!
XMSUB MSG+1*, END!
XMTEXT MSG+1*, END!
>> XMY( MSG+1*, END!
Y BDT, EDT, ASK*, MSG*, END!
>> ZTDESC QUE+1*
>> ZTDTH QUE+1*
ZTIO QUE+1*, END!
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN QUE+1*
>> ZTSAVE( QUE+1*
ZTSK QUE+2!, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All