DGREGARP ;ALB/DW,ERC - Address audit reports ; 8/1/08 1:21pm
Source file <DGREGARP.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Registration | 3 | DG ALL ADDRESS CHANGE REPORT DG ALL ADDRESS CHANGE WITH RX DGREGARP |
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
|
|
;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.
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | FIELD^DID, GETS^DIQ |
^XMB(3.8 - [#3.8] | FIND1^DIC |
3.812 | LIST^DIC |
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* |
Name | Line Occurrences |
---|---|
$$MEMBER | EN+6 |
$$SCRN | SORT+4 |
BUILD | SORT+5 |
CHKPAR | PRINT+3 |
DISP | OLD+14, NEW+18 |
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 |
EN+10 | |
PRSCPT | REPORT+14 |
QUE | EN+14 |
RANGE | PRESORT+2 |
REPORT | PRINT+6 |
SORT | PRESORT+4 |
TOTAL | PRINT+7 |
>> | 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~ |