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

Package: IHS Changes To Pharmacy

Routine: APSPERRY


Information

APSPERRY ;IHS/DSD/PR - Copy drug file for each selected division; [ 09/09/97 8:45 AM ]

Source Information

Source file <APSPERRY.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 %XY^%RCR  ^DIC  (FILE,YN)^DICN  ^DIE  IX1^DIK  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
Q ;EP
AUTO ;Auto duplicate drug data with new division.
EN2 ;EP Tman entry
K ;
EN(PSOMAKE) ;EP

External References

Name Field # of Occurrence
%XY^%RCR AUTO+17
^%ZIS Q+2
^%ZISC Q+3, EN2+6
^%ZTLOAD Q+3
^DIC EN+11
FILE^DICN AUTO+14
YN^DICN EN+18
^DIE AUTO+18
IX1^DIK AUTO+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(^PS(59,PSODA,0),U)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,"OK to continue"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: " Answer Yes or No"
  • Condition for execution: %=0
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"JOB QUEUED."
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: @IOF,"Drug file copy in progress."
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !!!!,"Copying new drug file for site: ",$P(^(0),U)
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !!,"FINISHED."
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !,"Unable to continue, no base to operate from."
  • Line Location: AUTO+3
Function Call: WRITE
  • Prompt: !,"Site ",$P(^PS(59,PSOSITE,0),U)," has already been assigned the drug file. "
  • Line Location: AUTO+7
Routine Call
  • DIE
  • Line Location:
    • AUTO+18
Routine Call
  • DIC
  • Line Location:
    • EN+11
Routine Call
  • %ZIS
  • Line Location:
    • Q+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] EN+15, EN2+5, AUTO+3, AUTO+7
^PSDRUG - [#50] AUTO+10, AUTO+11
^PSDRUG("ZDIV" AUTO+3, AUTO+7, AUTO+10

Label References

Name Line Occurrences
AUTO EN2+5
K EN+13, EN+18, Q+2, Q+3, EN2+7
Q EN+7

Naked Globals

Name Field # of Occurrence
^(0 EN2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+18*
>> %X AUTO+15*
>> %Y AUTO+16*
%ZIS Q+1!, Q+2*
>> DA AUTO+18*, AUTO+19*
>> DIC EN+11*, AUTO+12*
>> DIC("A" EN+11*
>> DIC(0 EN+11*, AUTO+13*
>> DIE AUTO+18*
>> DIK AUTO+19*
>> DR AUTO+18*
IO EN2+4, EN2+6
IO("Q" Q+1!, Q+3
IO(0 EN2+6
IOF EN2+4, EN2+6
ION Q+3
IOP Q+1!
>> POP Q+2
>> PSOBASE AUTO+3*, AUTO+10
>> PSODA EN+15*, AUTO+10*, AUTO+11, AUTO+15
PSOMAKE EN~, EN+5, EN+6, EN+10!
PSOMAKE( EN+6*, EN+11*, EN+15, EN2+5
PSOMAKE(0 EN+6, EN+12
>> PSONEW AUTO+14*, AUTO+16, AUTO+18, AUTO+19
PSOQUIT EN+10!, EN+12*, EN+13
>> PSOSITE EN2+5*, AUTO+7
U EN+15, EN2+5, AUTO+7, AUTO+11
>> X AUTO+11*
>> Y EN+11, AUTO+14
ZTDTH Q+1!, Q+3*
>> ZTIO Q+3*
ZTQUEUED Q+1!
>> ZTRTN Q+3*
ZTSAVE Q+1!
ZTSAVE("DUZ(" Q+3*
ZTSAVE("PSO*" Q+3*
ZTSK Q+1!
Info |  Source |  Call 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