Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCRCXMS

Package: Accounts Receivable

Routine: RCRCXMS


Information

RCRCXMS ;ALB/CMS - RC TRANSMISSION MESSAGE HANDLER ; 16-JUN-00

Source Information

Source file <RCRCXMS.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**63,159,327**;Mar 20, 1995;Build 7
ENT(RCDA,RCSUB,RCWHO,RCCOM) ;RC Transmission information
ENTE
ENTQ
PURG ;Get Purge Date
PURGQ
SITE ;RC Site Parameter Edit
DR61
SITEQ
DIK ;If the RC address is the same as the primary,the entry will be deleted.
MAILADD ;MAIL ADDRESS FOR REGIONAL COUNSEL
DEATHADD ;DEATH ADDRESSES FOR REGIONAL COUNSEL
ADDR ;
EN(RCTAG) ;
ENQ
COM ;Append Comments to File 349.3
COMQ
DEL ;Delete entries in File 349.3
DELQ
VEW ;View/Forward XM Message
VEWQ
VEWD ;Display message
VEWDQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter Division(s) of care if domain is different then primary RC Mail Address.",!
  • Line Location: DR61+0
Function Call: WRITE
  • Prompt: !!,"<< DELETING ENTRY. Domain same as Primary RC Remote Domain.>>",!!
  • Line Location: DIK+1
Function Call: WRITE
  • Prompt: !!,"Please enter an Regional Counsel mail address that adheres to the"
  • Line Location: MAILADD+1
Function Call: WRITE
  • Prompt: !,"following format:"
  • Line Location: MAILADD+2
Function Call: WRITE
  • Prompt: !!," The first three characters must be 'OGC'"
  • Line Location: MAILADD+3
Function Call: WRITE
  • Prompt: !," Characters 7 through 20 should be 'RI@MAIL.DOMAIN.EXT'"
  • Line Location: MAILADD+4
Function Call: WRITE
  • Prompt: !!,"Choose one of the following RC addresses:",!
  • Line Location: MAILADD+5
Function Call: READ
  • Formatting: !
  • Prompt: """^"" TO QUIT: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: MAILADD+8
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: MAILADD+8
Function Call: WRITE
  • Prompt: !!,"Please enter the Death Notification mail address adhering to"
  • Line Location: DEATHADD+1
Function Call: WRITE
  • Prompt: !,"the following format:"
  • Line Location: DEATHADD+2
Function Call: WRITE
  • Prompt: !!," The first nine characters must be 'OGCRegion'"
  • Line Location: DEATHADD+3
Function Call: WRITE
  • Prompt: !," followed by a number from 1-23"
  • Line Location: DEATHADD+4
Function Call: WRITE
  • Prompt: !," followed by 'DeathNotification@mail.domain.ext'"
  • Line Location: DEATHADD+5
Function Call: WRITE
  • Prompt: !!," Choose from one of the following:",!
  • Line Location: DEATHADD+6
Function Call: READ
  • Formatting: !
  • Prompt: """^"" TO QUIT: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEATHADD+9
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: DEATHADD+9
Function Call: WRITE
  • Prompt: !!," ** TRANSMISSION LOG EMPTY **"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!," ** NO ITEMS SELECTED FROM LIST **"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Item ",RCX,". Transmission Entry no longer exists.",!!
  • Line Location: COM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+8
Function Call: WRITE
  • Prompt: !!,"REMEMBER: Resequence List to see Appended Comments.",!
  • Line Location: COM+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !,"Selected Items ..."
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !!!,?8,"ALL ITEMS SELECTED WILL BE DELETED FROM"
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !,?5,"TRANSMISSION LOG FILE WITHOUT FURTHER WARNING!",!!
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !,"Okay nothing deleted."
  • Line Location: DEL+10
Function Call: WRITE
  • Prompt: !!,"Deleting ..."
  • Line Location: DEL+11
Function Call: WRITE
  • Prompt: !!,"REMEMBER: Resequence List to remove Deleted Items from list.",!
  • Line Location: DEL+18
Function Call: WRITE
  • Prompt: !!,"Item ",RCX,".",?5," Transmission Entry no longer exists.",!!
  • Line Location: VEW+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VEWD+1
Function Call: WRITE
  • Prompt: !!,RCX,".",?5," Mail Message #["_XMZ_"] no longer exists on this system.",!
  • Line Location: VEWD+4
Function Call: WRITE
  • Prompt: !,RCX,"."
  • Line Location: VEWD+5
Function Call: WRITE
  • Prompt: !,"Subj: "_$P(RCY,U,6)_" [#"_XMZ_"] "_$P(RCY,U,1)
  • Line Location: VEWD+6
Function Call: WRITE
  • Prompt: !,"From: "_$P(RCY,U,3)
  • Line Location: VEWD+7
Function Call: WRITE
  • Prompt: !,"Message ID: "_$P(RCY,U,4)
  • Line Location: VEWD+8
Function Call: WRITE
  • Prompt: !,"Recipient: "_$P(RCI,U,4)
  • Line Location: VEWD+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: VEWD+10
Function Call: WRITE
  • Prompt: "="
  • Line Location: VEWD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: VEWD+11
Function Call: WRITE
  • Prompt: !,$$READ^XMGAPI1()
  • Line Location: VEWD+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: VEWD+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCT(349.1 - [#349.1] Classic Fileman Calls
^RCT(349.3 - [#349.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call