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

Package: Registration

Routine: DGREGARP


Information

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

Source Information

Source file <DGREGARP.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 4 CNTRY^DGADDUT2  $$FOR^DGADDUTL  EOP^DGREGAED  LNPLUS^DGREGARP  
VA FileMan 4 (C,NOW)^%DTC  ($$FIND1,LIST)^DIC  FIELD^DID  GETS^DIQ  
Kernel 3 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  
MailMan 2 ^XMD  $$GOTLOCAL^XMXAPIG  
Pharmacy Data Management 1 $$EN^PSSRXACT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG ALL ADDRESS CHANGE REPORT  DG ALL ADDRESS CHANGE WITH RX  DGREGARP  

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.

External References

Name Field # of Occurrence
C^%DTC RANGE+6
NOW^%DTC RANGE+4, HEADER+12, EMAIL+4
HOME^%ZIS QUE+8
^%ZISC QUE+8
^%ZTLOAD QUE+7
CNTRY^DGADDUT2 OLD+12, NEW+16
$$FOR^DGADDUTL OLD+11, NEW+15
EOP^DGREGAED EN+7, EN+15
LNPLUS^DGREGARP CHKPAR+7, HEADER+21, HEADER+23
$$FIND1^DIC MEMBER+3
LIST^DIC MEMBER+4
FIELD^DID CHKPAR+4
GETS^DIQ GEN+2, NEW+2, BUILD+4, BUILD+12
$$EN^PSSRXACT PRSCPT+1, BUILD+3
^XMD EMAIL+12
$$GOTLOCAL^XMXAPIG MEMBER+5

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
Routine Call
  • DIC
  • Line Location:
    • MEMBER+3
Routine Call
  • DIC
  • Line Location:
    • MEMBER+4
Routine Call
  • %ZIS
  • Line Location:
    • QUE+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HEADER+12, EMAIL+4
^DIA(2 RANGE+8, RANGE+9, RANGE+12, RANGE+13, SORT+4, SCRN+2, BUILD+2, BUILD+8, BUILD+16
^TMP($J EN+2!, EN+3!, REPORT+6, REPORT+8, REPORT+10, GEN+9*, GEN+11*, GEN+13*, GEN+15*, OLD+1
, OLD+2, OLD+3, OLD+4, OLD+5, OLD+6, OLD+7, OLD+8, OLD+9, OLD+10, DISP+2*
, DISP+5*, DISP+8*, DISP+12*, DISP+15*, DISP+20*, DISP+23*, DISP+26*, DISP+29*, PRSCPT+4*, EXIT+1!
, EXIT+2!, CHKPAR+8*, BUILD+9, BUILD+14*, BUILD+16*, HEADER+4*, HEADER+6*, HEADER+9*, HEADER+11*, HEADER+16*
, HEADER+18*, HEADER+20*, HEADER+22*, HEADER+24*, TOTAL+6*, TOTAL+8*, EMAIL+10*

Label References

Name Line Occurrences
$$MEMBER EN+6
$$SCRN SORT+4
BUILD SORT+5
CHKPAR PRINT+3
DISP OLD+14, NEW+18
EMAIL PRINT+8
GEN REPORT+11
HEADER PRINT+4
LNPLUS GEN+8, GEN+10, GEN+12, GEN+14, DISP+1, DISP+4, DISP+7, DISP+11, DISP+14, DISP+18
, DISP+22, DISP+25, DISP+28, PRSCPT+3, HEADER+3, HEADER+5, HEADER+8, HEADER+10, HEADER+15, HEADER+17
, HEADER+19, TOTAL+5, TOTAL+7, EMAIL+9
NEW REPORT+13
OLD REPORT+12
PRESORT PRINT+5
PRINT EN+10
PRSCPT REPORT+14
QUE EN+14
RANGE PRESORT+2
REPORT PRINT+6
SORT PRESORT+4
TOTAL PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RANGE+5, RANGE+6, HEADER+12, EMAIL+2~, EMAIL+4
DFN PRINT+1~, PRINT+2*
DG12 REPORT+2~, GEN+6*, GEN+15
DGA REPORT+3~, DISP~
DGA("ADD1" DISP+2
DGA("ADD2" DISP+3, DISP+5
DGA("ADD3" DISP+6, DISP+8
DGA("CITY" DISP+10, DISP+12, DISP+17, DISP+20
DGA("CNTRY" DISP+21, DISP+23
DGA("CNTY" DISP+13, DISP+15
DGA("HPHN" DISP+24, DISP+26
DGA("OPHN" DISP+27, DISP+29
DGA("PCODE" DISP+20
DGA("PROV" DISP+17, DISP+20
DGA("ST" DISP+10, DISP+12
DGA("TAG" DISP+2
DGA("ZIP" DISP+12
DGAGO RANGE+2~, RANGE+7*, RANGE+9*, RANGE+10, RANGE+13
DGBEGIN RANGE+2~, RANGE+11*, RANGE+12*, RANGE+14, RANGE+15*, RANGE+16, SORT+1~
DGCNT TOTAL+1~, TOTAL+3*, TOTAL+4, TOTAL+8
DGCURR NEW+1!, BUILD+1~, BUILD+11!
DGCURR(2 NEW+3, NEW+4, NEW+5, NEW+6, NEW+7, NEW+8, NEW+9, NEW+10, NEW+11, NEW+12
, NEW+13, NEW+14, BUILD+5, BUILD+6, BUILD+14
DGDATE REPORT+2~, GEN+4*, GEN+13
DGDFN REPORT+1~, REPORT+5*, REPORT+9*, REPORT+10*, REPORT+11, REPORT+12, REPORT+13, REPORT+14, GEN~, GEN+2
, GEN+3, GEN+4, GEN+5, GEN+6, OLD~, OLD+1, OLD+2, OLD+3, OLD+4, OLD+5
, OLD+6, OLD+7, OLD+8, OLD+9, OLD+10, NEW~, NEW+2, NEW+3, NEW+4, NEW+5
, NEW+6, NEW+7, NEW+8, NEW+9, NEW+10, NEW+11, NEW+12, NEW+13, NEW+14, PRSCPT~
, PRSCPT+1, SORT+1~, BUILD+1~, BUILD+2*, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+9
, BUILD+12, BUILD+14, BUILD+16
DGEND RANGE+2~, RANGE+11*, RANGE+13*, RANGE+14, RANGE+16, SORT+1~, SORT+3*, SORT+4
DGFLD CHKPAR+1~, SORT+1~, SCRN+1~, SCRN+2*, SCRN+3, SCRN+4, BUILD+1~, BUILD+8*, BUILD+16
DGFOR REPORT+3~, OLD+11*, OLD+15*, DISP+9, DISP+16, NEW+15*
DGIEN MEMBER+1~, MEMBER+3*, MEMBER+4, SORT+1~, SORT+2*, SORT+4*, SORT+5, SCRN~, SCRN+2, BUILD~
, BUILD+2, BUILD+8, BUILD+16
DGLINE PRINT+1~, PRINT+2*, GEN+9, GEN+11, GEN+13, GEN+15, DISP+2, DISP+5, DISP+8, DISP+12
, DISP+15, DISP+20, DISP+23, DISP+26, DISP+29, PRSCPT+4, CHKPAR+8, LNPLUS+1*, HEADER+4, HEADER+6
, HEADER+9, HEADER+11, HEADER+16, HEADER+18, HEADER+20, HEADER+22, HEADER+24, TOTAL+6, TOTAL+8, EMAIL+10
DGN REPORT+3~, NEW+16, NEW+18, CHKPAR+1~, CHKPAR+2*, CHKPAR+4, BUILD+1~, BUILD+11!, BUILD+13*, BUILD+14
DGN("ADD1" NEW+3*
DGN("ADD2" NEW+4*
DGN("ADD3" NEW+5*
DGN("CITY" NEW+6*
DGN("CNTRY" NEW+14*, NEW+15, NEW+16
DGN("CNTY" NEW+9*
DGN("HPHN" NEW+11*
DGN("OPHN" NEW+10*
DGN("PCODE" NEW+13*
DGN("PROV" NEW+12*
DGN("ST" NEW+7*
DGN("TAG" NEW+17*
DGN("ZIP" NEW+8*
DGNAME REPORT+1~, REPORT+5*, REPORT+6*, REPORT+8, REPORT+10, REPORT+11, REPORT+12, REPORT+13, GEN~, GEN+11
, OLD~, OLD+1, OLD+2, OLD+3, OLD+4, OLD+5, OLD+6, OLD+7, OLD+8, OLD+9
, OLD+10, NEW~, BUILD+1~, BUILD+5*, BUILD+7, BUILD+9, BUILD+14, BUILD+16
DGNOW RANGE+2~, RANGE+5*, RANGE+8*, RANGE+10, RANGE+12
DGO REPORT+3~, OLD+12, OLD+14
DGO("ADD1" OLD+1*
DGO("ADD2" OLD+2*
DGO("ADD3" OLD+3*
DGO("CITY" OLD+4*
DGO("CNTRY" OLD+10*, OLD+11, OLD+12
DGO("CNTY" OLD+7*
DGO("PCODE" OLD+9*
DGO("PROV" OLD+8*
DGO("ST" OLD+5*
DGO("TAG" OLD+13*
DGO("ZIP" OLD+6*
DGPRSCRP REPORT+4~, PRSCPT+1*, PRSCPT+2
DGR REPORT+2~, GEN+1!, CHKPAR+1~, CHKPAR+3!
DGR("AUDIT" CHKPAR+6
DGR("DIERR" CHKPAR+5
DGR("LABEL" CHKPAR+8
DGR(2 GEN+3, GEN+4, GEN+5, GEN+6
DGRMT MEMBER+1~
DGRMT("DILIST" MEMBER+5
DGRNG EN+1~, PRESORT+1~, PRESORT+2, PRESORT+3, PRESORT+4
DGSRC REPORT+2~, GEN+5*, GEN+15
DGSRT EN+1~
DGSSN REPORT+1~, REPORT+5*, REPORT+7*, REPORT+8*, REPORT+10, REPORT+11, REPORT+12, REPORT+13, GEN~, GEN+11
, OLD~, OLD+1, OLD+2, OLD+3, OLD+4, OLD+5, OLD+6, OLD+7, OLD+8, OLD+9
, OLD+10, NEW~, BUILD+1~, BUILD+6*, BUILD+7, BUILD+9, BUILD+14, BUILD+16
DGTOTAL EN+1~, BUILD+15*, TOTAL+3, EMAIL+8
DGUSER REPORT+2~, GEN+3*, GEN+13
DIFROM EMAIL+2~
ERR QUE+1~
IEN PRINT+1~, PRINT+2*
IOP QUE+1~
POP QUE+1~
RANGE SORT~, SORT+2, SORT+3
RDT HEADER+1~, HEADER+13*, HEADER+22, EMAIL+3~, EMAIL+5*, EMAIL+6
RESULT MEMBER+1~, MEMBER+2*, MEMBER+5*, MEMBER+6, RANGE~, RANGE+1!, RANGE+10*, RANGE+14*, RANGE+16*
SSN PRINT+1~, PRINT+2*
TYPE EN~, EN+4, QUE+6, PRESORT+4, PRINT+8, SORT~, SORT+4, SORT+5, SCRN~, BUILD~
, BUILD+3, HEADER+2, HEADER+7, EMAIL~, EMAIL+6
U MEMBER+5, RANGE+16, SORT+2, SORT+3, SCRN+2, BUILD+2, BUILD+8, BUILD+16
X QUE+1~, RANGE+3~, RANGE+7
X1 RANGE+3~, RANGE+6*
X2 RANGE+3~, RANGE+6*
XMDUZ EN+1~
XMSUB EN+1~, EMAIL+6*
XMTEXT EN+1~, EMAIL+11*
XMY EN+1~
XMY("G.DG DAI LY ADDRESS CHANGE" , EMAIL+7*
Y HEADER+1~, HEADER+12*, HEADER+13, EMAIL+4*, EMAIL+5
ZTDESC QUE+1~, QUE+6*
ZTIO QUE+1~, QUE+3*
>> ZTQUEUED EN+7, EN+9, EN+12, EXIT, EMAIL+2
>> ZTREQ EXIT*
ZTRTN QUE+1~, QUE+5*
ZTSAVE QUE+1~
ZTSAVE("TYPE" QUE+4*
ZTSK QUE+1~, QUE+9
ZUSR QUE+1~
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