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 |  Local Variables |  All
Print Page as PDF
Routine: APSPDUED

Package: IHS Changes To Pharmacy

Routine: APSPDUED


Information

APSPDUED ; IHS/DSD/ENM - DELETE DUE CRITERIA NAME FROM DRUG FILE ; [ 09/03/97 1:30 PM ]

Source Information

Source file <APSPDUED.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIK  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Pharmacy 2 APSPDUE  APSPLDEL  

Entry Points

Name Comments DBIA/ICR reference
END
EOJ ; Clean up variables
DUE ; Do lookup of DUE Criteria name
START ;
DELETEX ; Exit point from Delete subroutine
DUEX ; Exit point from DUE subroutine
ASK ;
DELETE ;EP - Delete from Drug File DUR multiple

External References

Name Field # of Occurrence
^DIC DUE+3
YN^DICN ASK+3
^DIK DELETE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DUE+6
Function Call: WRITE
  • Prompt: !!,"This will remove all entries in your Drug file for the"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"above DUE criteria name, do you want me to continue : "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"This will unmark the drugs in your drug file as being",!,"part of a DUE study for the particular DUE you have chosen."
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: "Done"
  • Line Location: DELETE+8
Routine Call
  • DIC
  • Line Location:
    • DUE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^APSPDUE(32.1 - [#9009032.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG("APSPCN" DELETE+1, DELETE+3

Label References

Name Line Occurrences
ASK START+3, ASK+4
DELETE START+4
DELETEX DELETE+1
DUE START+2, DUE+4
DUEX DUE+4
EOJ END

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+3*, ASK+4, ASK+5, EOJ+2!
>> APSP("LOG DEL FLG" , DELETE+7
>> APSPDUE("NAME" START+1
APSPDUED EOJ+2!
APSPDUED("DEL" START+4, ASK+5*
APSPDUED("DRUG" DELETE+2*, DELETE+3*, DELETE+4, DELETE+9!, EOJ+1
APSPDUED("NAME" START+1*, START+2, START+3, DUE+5*, DUEX+1!, DELETE+1, DELETE+3, DELETE+5
DA DUEX+1!, DELETE+5*, DELETE+6!, EOJ+2!
DA(1 DELETE+4*
DIC DUE+1*, DUEX+1!, DELETE+6!, EOJ+2!
DIC("A" DUE+2*
DIC(0 DUE+1*
DIK DELETE+5*, DELETE+6!, EOJ+2!
I DELETE+3*, EOJ+2!
X DUE+4, DUEX+1!, EOJ+2!
Y DUE+4, DUE+5, DUEX+1!, EOJ+2!
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 |  Local Variables |  All