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

Package: Auto Replenishment Ward Stock

Routine: PSGWCL


Information

PSGWCL ;BHAM ISC/PTD,CML-Clear AMIS Exceptions ; 29 Dec 93 / 2:29 PM

Source Information

Source file <PSGWCL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^%DT  YN^DICN  ^DIE  
Auto Replenishment Ward Stock 2 CALC^PSGWCAD  ^PSGWCLP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW CLEAR AMIS EXCEPTIONS  

Entry Points

Name Comments DBIA/ICR reference
UPAMIS ;UPDATE THE AMIS SUBFILE AND REMOVE INCOMPLETE FLAG & X-REF
DRGLP
CHK ;VERIFY THAT USER HAS ENTERED ALL NECESSARY DATA
UPDATE
KILL
ASK ;ASK FOR MISSING DRUG DATA
BDT
MSG
END
STLP
EDT
DTLP
CONT
AMIS

External References

Name Field # of Occurrence
^%DT BDT, EDT
YN^DICN CONT
^DIE ASK+4
CALC^PSGWCAD UPDATE+1
^PSGWCLP EDT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will show AR/WS drugs for which information is missing.",!,"The information MUST be supplied before the AMIS report can be printed.",!!
  • Line Location: PSGWCL+2
Function Call: WRITE
  • Prompt: !!,"No AMIS exceptions for selected dates."
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!,"Do you wish to edit incomplete data now"
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !?5,"Enter ""YES"" or ""NO"""
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !!,"The name for drug ",PSGWDN," is missing from the drug file.",!,"Notify your package coordinator!"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"==> Information incomplete for: ",DRGNAM,!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: *7,!!,"DATA IS STILL MISSING! YOU WILL NOT BE ABLE",!,"TO PRINT AMIS UNTIL INFORMATION IS COMPLETE!!"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,"DATA COMPLETE!!"
  • Line Location: MSG+1
Routine Call
  • DIE
  • Line Location:
    • ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] ASK+1, CHK+1, CHK+3
^PSI(58.5 - [#58.5] EDT+1, DTLP, STLP, DRGLP, ASK+1, UPAMIS+1, UPAMIS+2, KILL*, KILL+1!

Label References

Name Line Occurrences
@( AMIS
CHK ASK+2, ASK+4
CONT CONT+1
DRGLP ASK+1, ASK+2, ASK+4
DTLP STLP
END BDT, EDT, EDT+1, EDT+2, CONT
KILL UPAMIS+1
MSG DTLP, ASK+4
STLP DRGLP
UPAMIS CHK+7
UPDATE UPAMIS+2

Naked Globals

Name Field # of Occurrence
^("PSG" CHK+3
^(0 ASK+1, UPAMIS+2
^(660 CHK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CONT*, CONT+1, END!
%DT BDT*!, EDT*!
%DT("A" BDT*, EDT*
%DT(0 EDT*
BDT BDT*, EDT, EDT+1, CONT+3, END!
CAT END!, UPAMIS+2*
COST END!, KILL+2!
D0 END!
DA ASK+4*, END!
DATDA CONT+3*, DTLP*, STLP, DRGLP, ASK+1, END!, UPAMIS+1, UPAMIS+2, KILL, KILL+1
DI END!
DIE ASK+4*!
DIG END!
DIH END!
DIU END!
DIV END!
DOSE END!, KILL+2!
DQ END!
DR ASK+4*, END!
DRGDA CONT+3*, DRGLP*, ASK+1, END!, UPAMIS+1, UPAMIS+2, KILL, KILL+1
DRGNAM ASK+1*, ASK+3, END!
DTDA END!
EDT EDT*, DTLP, END!
FLD END!, KILL+2!
FLDA END!
G END!
INC CONT+3*, ASK+4*, CHK+1*, CHK+2*, CHK+3*, CHK+4*, CHK+5*, CHK+6*, CHK+7, MSG
, END!
J CHK+5*, CHK+6*, END!
LOC END!
LOC( ASK+2, ASK+4*
LOC1 CHK+1*, CHK+5, END!
LOC2 CHK+3*, CHK+6, END!
LOC3 END!, UPDATE*, KILL+2!
MSG CONT+3*, CHK+2*, CHK+4*, CHK+5*, CHK+6*, MSG, END!
PSGWADT DTLP*, END!
PSGWAOU END!
PSGWCAT END!, UPAMIS+2*, UPDATE, AMIS, KILL+2!
PSGWDN ASK+1*, ASK+2, ASK+4, CHK+1, CHK+3, END!
PSGWQD END!, UPAMIS+2*, KILL+2!
QUEFLG EDT+2*, END!
SITE CONT+3*, STLP*, DRGLP, ASK+1, END!, UPAMIS+1, UPAMIS+2, KILL, KILL+1
X END!
Y BDT, EDT, 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