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

Package: Registration

Routine: DGREGARP


Information

DGREGARP ;ALB/DW,ERC - Address audit reports ; 8/1/08 1:21pm

Source Information

Source file <DGREGARP.m>

Entry Points

Name Comments DBIA/ICR reference
EN(TYPE) ;Entry point
MEMBER() ;Return 0 if mail group has no local or remote member
QUE ;Que the task if user invokes option
PRESORT ;Sort for the report
PRINT ;Create the email message.
REPORT ;Create the address change report body
GEN(DGNAME,DGSSN,DGDFN) ;General information for each patient
OLD(DGNAME,DGSSN,DGDFN) ;Get address as of 24 hours ago, assuming audits are on for all
DISP(DGA) ;
NEW(DGNAME,DGSSN,DGDFN) ;Get current address
PRSCPT(DGDFN) ;Display if the patient has active prescription
EXIT
CHKPAR ;Check if audit is on for the fields
RANGE(RESULT) ;Get the range of the reports
SORT(RANGE,TYPE) ;Build the temp global to display
SCRN(TYPE,DGIEN) ;Screen Audit file to find address changes.
BUILD(TYPE,DGIEN) ;Build temp global
LNPLUS ;Increase line number for the email text
HEADER ;Report header
TOTAL ;Get the total of the patients
EMAIL(TYPE) ;Email the report to mailgroup.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DG DAILY ADDRESS CHANGE does not have a member. Report not sent."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"The report will be sent to mail group DG DAILY ADDRESS CHANGE."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED AS TASK#"_ZTSK,1:"REQUEST CANCELLED!")
  • Line Location: QUE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIELD^DID,  GETS^DIQ
^XMB(3.8 - [#3.8] FIND1^DIC
3.812 LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call