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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APSEWMSG

Package: IHS Changes To Pharmacy

Routine: APSEWMSG


Information

APSEWMSG ;IHS/DSD/LWJ - Patient Drug Education Database expiration message [ 11/13/2003 11:04 AM ]

Source Information

Source file <APSEWMSG.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 (C,NOW)^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
WARNMSG ; This subroutine will generate the message that is sent
; one and two weeks prior to the First DataBank Patient Education
; Database expiring, and daily once the database has expired.
; APSEMTP will indicate which message type should be sent (two
; weeks prior, one week prior, or daily message).
CONVDAT(VADATE,NUMDAYS)
MSGHED ; this is the header portion of all messages
MSGEND(APSETIM,APSEDATE) ; this is the final portion of the messages
MSGMID2 ; this is the middle portion of the message displayed 2 weeks out
MSGMID1 ; this is the middle portion of the message displayed 1 week out
TEST ; this routine is used to test the messages
MSGMIDD ; this is the middle portion of the daily message
EP ;EP -this subroutine will decipher if a warning message needs to be
; sent and if one does need to be sent, which message should display.

External References

Name Field # of Occurrence
C^%DTC CONVDAT+6
NOW^%DTC EP+15
^DIR MSGEND+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: MSGHED+2
Function Call: WRITE
  • Prompt: "*******************************************************************************",!
  • Line Location: MSGHED+3
Function Call: WRITE
  • Prompt: "* WARNING WARNING ******** WARNING ******** WARNING WARNING *",!
  • Line Location: MSGHED+4
Function Call: WRITE
  • Prompt: "* *",!
  • Line Location: MSGHED+5
Function Call: WRITE
  • Prompt: "* The First DataBank data used to print the Drug Medication Sheets has *",!
  • Line Location: MSGMIDD+2
Function Call: WRITE
  • Prompt: "* expired. This information is used in the following options found on the *",!
  • Line Location: MSGMIDD+3
Function Call: WRITE
  • Prompt: "* main RX menu: *",!
  • Line Location: MSGMIDD+4
Function Call: WRITE
  • Prompt: "* The First DataBank data used to print the Drug Medication Sheets will *",!
  • Line Location: MSGMID2+2
Function Call: WRITE
  • Prompt: "* expire in two weeks. This information is used in the following options *",!
  • Line Location: MSGMID2+3
Function Call: WRITE
  • Prompt: "* found on the main RX menu: *",!
  • Line Location: MSGMID2+4
Function Call: WRITE
  • Prompt: "* The First DataBank data used to print the Drug Medication Sheets will *",!
  • Line Location: MSGMID1+2
Function Call: WRITE
  • Prompt: "* expire in one week. This information is used in the following options *",!
  • Line Location: MSGMID1+3
Function Call: WRITE
  • Prompt: "* found on the main RX menu: *",!
  • Line Location: MSGMID1+4
Function Call: WRITE
  • Prompt: "* DPMI PRINT DRUG MEDICATION SHEETS *",!
  • Line Location: MSGEND+6
Function Call: WRITE
  • Prompt: "* PMI PRINT PATIENT MEDICATION SHEETS *",!
  • Line Location: MSGEND+7
Function Call: WRITE
  • Prompt: "* NERX New Prescription Entry *",!
  • Line Location: MSGEND+8
Function Call: WRITE
  • Prompt: "* (Printing of the Med Sheet) *",!
  • Line Location: MSGEND+9
Function Call: WRITE
  • Prompt: "* *",!
  • Line Location: MSGEND+10
Function Call: WRITE
  • Prompt: "* Records indicate that your site is using this information to provide *",!
  • Line Location: MSGEND+11
Function Call: WRITE
  • Prompt: "* patients with drug monographs. It is extremely important that your system *",!
  • Line Location: MSGEND+12
Function Call: WRITE
  • Prompt: "* be updated with the most current version of the First DataBank Patient Drug *",!
  • Line Location: MSGEND+13
Function Call: WRITE
  • Prompt: "* Education Database (PDED) as soon as possible. Failure to update your *",!
  • Line Location: MSGEND+14
Function Call: WRITE
  • Prompt: "* system could result in incorrect or out dated informaton being distributed. *",!
  • Line Location: MSGEND+15
Function Call: WRITE
  • Prompt: "* New versions of the First DataBank PDED are obtainable monthly and should *",!
  • Line Location: MSGEND+16
Function Call: WRITE
  • Prompt: "* be loaded on your system as they are available. Please contact your site *",!
  • Line Location: MSGEND+17
Function Call: WRITE
  • Prompt: "* manager to schedule an update of the First DataBank PDED as soon as *",!
  • Line Location: MSGEND+18
Function Call: WRITE
  • Prompt: "* possible. (**** This message will display at frequent intervals until *",!
  • Line Location: MSGEND+19
Function Call: WRITE
  • Prompt: "* a system update has been performed. ****) *",!
  • Line Location: MSGEND+20
Function Call: WRITE
  • Prompt: "*******************************************************************************",!
  • Line Location: MSGEND+21
Routine Call
  • DIR
  • Line Location:
    • MSGEND+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSAPPI("EXPWARN" EP+10, MSGEND+27, MSGEND+29*

Label References

Name Line Occurrences
$$CONVDAT EP+17, EP+19, EP+20
$$MSGEND WARNMSG+10
EP TEST+4
MSGHED WARNMSG+6
MSGMID1 WARNMSG+8
MSGMID2 WARNMSG+7
MSGMIDD WARNMSG+9
WARNMSG EP+25, EP+28, EP+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APSECDT EP+5~
APSEDATE MSGEND~, MSGEND+28
APSEDT15 EP+6~, EP+19*, EP+22, EP+24
APSEDT7 EP+6~, EP+20*, EP+24, EP+27, EP+28
APSEEDT EP+4~, EP+12*, EP+19, EP+20, EP+27, EP+31
APSEMTP EP+7~, EP+25*, EP+28*, EP+31*, WARNMSG+7, WARNMSG+8, WARNMSG+9
APSEREC MSGEND+1~, MSGEND+27*, MSGEND+28*, MSGEND+29
APSETDY EP+6~, EP+15*, EP+17*, EP+22, EP+24, EP+27, EP+31, WARNMSG+10
APSETIM MSGEND~, MSGEND+22
APSEWEX EP+5~, EP+9*, WARNMSG+10*
APSEWREC EP+4~, EP+10*, EP+11, EP+12, EP+13
APSEWST EP+4~, EP+13*, EP+25, EP+28, EP+31
>> COUNT TEST+4*, EP+17
DIR MSGEND+1~
DIR("T" MSGEND+22*
DIR(0 MSGEND+22*
DUOUT MSGEND+1~, MSGEND+2*, MSGEND+24*, MSGEND+31
I TEST+1~, TEST+4*
NUMDAYS CONVDAT~, CONVDAT+5
TEST TEST+2~, TEST+3*, EP+17
VADATE CONVDAT~, CONVDAT+5
X EP+7~, EP+15, CONVDAT+4~, CONVDAT+8
X1 CONVDAT+4~, CONVDAT+5*
X2 CONVDAT+4~, CONVDAT+5*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All