DGPFCNR ;ALB/SCK - PRF CAT II TO CAT I REPORTING;27 JAN 2012
Source file <DGPFCNR.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DGRSLT,DGXTMP) | ; Main entry point
|
|
| SETUP | ; Setup formatting variables for reports
|
|
| BLDPROC(DGXTMP) | ; Build report of processed cat II to Cat I entries
|
|
| BLDSUM(DGRSLT,DGXTMP) | ; Build summary report of cat II to cat I processing
|
|
| TOP | ;
|
|
| PRT1 | ;
|
|
| PRT2 | ;
|
|
| PRT3 | ;
|
|
| PRT4 | ;
|
|
| PRT5 | ;
|
|
| FIN | ;
|
|
| LAST4(DFN) | ; Get the SSN last four
|
|
| SENDMSG(DGBODY,DGSUBJ) | ; Send report to mail group
|
|
| SNDERR(DGERR,DGPFIEN,DGASGN) | ; Send error message notification
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | BLDPROC+6, BLDPROC+22, BLDPROC+34, TOP+3, PRT3+17 |
| $$GETICN^MPIF001 | PRT2+11 |
| $$HL7CMOR^MPIF001 | PRT3+11, PRT4+13 |
| PID^VADPT6 | LAST4+3 |
| $$FMTE^XLFDT | BLDPROC+5, TOP+2, SENDMSG+5, SNDERR+12 |
| $$NOW^XLFDT | BLDPROC+5, TOP+2, SENDMSG+5, SNDERR+12 |
| SENDMSG^XMXAPI | SENDMSG+10, SNDERR+15 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DGPF(26.13 - [#26.13] | GET1^DIQ |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | BLDPROC+1~, BLDPROC+17*, BLDPROC+20, BLDPROC+30*, BLDPROC+32, BLDSUM+1~, PRT1+7*, PRT1+8*, PRT1+9, LAST4~ |
| DFN1 | BLDSUM+1~, PRT2+8*, PRT2+9, PRT2+11, PRT3+10*, PRT3+11, PRT3+12, PRT4+10*, PRT4+11, PRT4+13 , PRT5+10*, PRT5+11 |
| DGASGN | SNDERR~ |
| DGASGN("DFN" | SNDERR+8 |
| DGBODY | SENDMSG~ |
| >> DGCMOR | PRT3+11*, PRT3+14 |
| DGCNT | BLDPROC+1~, BLDPROC+15*, BLDPROC+22, BLDPROC+24*, BLDPROC+27*, BLDPROC+34, BLDPROC+35*, BLDPROC+38*, PRT1+1*, PRT1+2 , PRT1+3, PRT1+4, PRT1+5*, PRT1+9, PRT1+10*, PRT1+11*, PRT2+1, PRT2+2, PRT2+3, PRT2+4 , PRT2+6*, PRT2+11, PRT2+12*, PRT3+2, PRT3+3, PRT3+4, PRT3+5, PRT3+6, PRT3+8*, PRT3+14 , PRT3+15, PRT3+17, PRT3+19*, PRT3+20*, PRT4+2, PRT4+3, PRT4+4, PRT4+5, PRT4+6, PRT4+8* , PRT4+13, PRT4+14, PRT4+15*, PRT4+16*, PRT5+2, PRT5+3, PRT5+4, PRT5+5, PRT5+6, PRT5+8* , PRT5+13, PRT5+14*, PRT5+15* |
| DGDBL | EN+1~, SETUP+5*, TOP+13 |
| DGERR | SNDERR~, SNDERR+6 |
| DGFOUND | BLDPROC+1~, BLDPROC+9!, BLDPROC+24*, BLDPROC+26, BLDPROC+35*, BLDPROC+37, PRT1+10*, PRT1+11, PRT3+1!, PRT3+19* , PRT3+20, PRT4+1!, PRT4+15*, PRT4+16, PRT5+1!, PRT5+14*, PRT5+15 |
| DGIEN | BLDSUM+1~, PRT3+16*, PRT3+17 |
| DGLINE | EN+1~, SETUP+3*, BLDPROC+12, TOP+4, PRT1+3, PRT2+3, PRT3+5, PRT4+5, PRT5+5 |
| DGMSG | BLDPROC+1~, BLDPROC+3!, BLDPROC+41, BLDSUM+1~, FIN+2, SNDERR+1~ |
| DGMSG( | BLDPROC+22*, BLDPROC+34*, BLDPROC+38*, TOP+5*, PRT1+2*, PRT1+3*, PRT1+4*, PRT1+9*, PRT1+11*, PRT2+1* , PRT2+2*, PRT2+3*, PRT2+4*, PRT2+11*, PRT3+2*, PRT3+3*, PRT3+4*, PRT3+5*, PRT3+6*, PRT3+14* , PRT3+15, PRT3+17*, PRT3+20*, PRT4+2*, PRT4+3*, PRT4+4*, PRT4+5*, PRT4+6*, PRT4+13*, PRT4+14* , PRT4+16*, PRT5+2*, PRT5+3*, PRT5+4*, PRT5+5*, PRT5+6*, PRT5+13*, PRT5+15* |
| DGMSG(10 | BLDPROC+4*, TOP+1*, SNDERR+3* |
| DGMSG(12 | BLDPROC+5*, TOP+2*, SNDERR+4* |
| DGMSG(14 | BLDPROC+6*, TOP+3*, SNDERR+5* |
| DGMSG(16 | TOP+4*, SNDERR+6* |
| DGMSG(17 | BLDPROC+7* |
| DGMSG(18 | TOP+6*, SNDERR+7* |
| DGMSG(19 | BLDPROC+10* |
| DGMSG(20 | SNDERR+8* |
| DGMSG(21 | BLDPROC+11* |
| DGMSG(22 | TOP+7*, SNDERR+9* |
| DGMSG(24 | TOP+8* |
| DGMSG(25 | BLDPROC+12* |
| DGMSG(26 | TOP+9* |
| DGMSG(28 | TOP+10* |
| DGMSG(30 | TOP+11* |
| DGMSG(32 | TOP+12* |
| DGMSG(34 | TOP+13* |
| DGMSG(38 | TOP+14* |
| DGMSG(40 | TOP+15* |
| DGMSG(41 | TOP+16* |
| DGNAME | BLDPROC+1~, BLDPROC+15*, BLDPROC+16*, BLDPROC+17, BLDPROC+18, BLDPROC+19, BLDPROC+20, BLDPROC+27*, BLDPROC+28*, BLDPROC+30 , BLDPROC+31, BLDPROC+32, BLDSUM+1~, PRT1+1*, PRT2+6*, PRT2+7*, PRT2+8, PRT2+9*, PRT2+10, PRT2+11 , PRT3+8*, PRT3+9*, PRT3+10, PRT3+12, PRT3+16, PRT4+8*, PRT4+9*, PRT4+10, PRT4+11, PRT4+14 , PRT5+8*, PRT5+9*, PRT5+10, PRT5+11, PRT5+13 |
| DGPFASG | BLDPROC+1~, BLDPROC+18*, BLDPROC+22 |
| DGPFASGH | BLDPROC+1~, BLDPROC+19* |
| DGPFIEN | SNDERR~, SNDERR+9 |
| DGPFX | BLDPROC+29~, BLDPROC+31*, BLDPROC+34 |
| DGPRE | BLDPROC+1~, BLDPROC+35* |
| DGRSLT | EN~, EN+4, BLDSUM~ |
| DGRSLT("DONE" | TOP+11 |
| DGRSLT("ERR" | TOP+9 |
| DGRSLT("MANUAL" | TOP+10 |
| DGRSLT("NEW" | TOP+8 |
| DGRSLT("TOTAL" | TOP+7 |
| >> DGRUN | BLDPROC+4, BLDPROC+10, BLDPROC+40, TOP+1, FIN+1 |
| DGSPACE | EN+1~, SETUP+4*, BLDPROC+11, BLDPROC+22, BLDPROC+34, PRT2+2, PRT2+11, PRT3+4, PRT3+14, PRT3+17 , PRT4+4, PRT4+13, PRT5+4, PRT5+13 |
| DGSUBJ | BLDPROC+1~, BLDPROC+40*, BLDPROC+41, BLDSUM+1~, FIN+1*, FIN+2, SENDMSG~, SENDMSG+3 |
| DGTAB | BLDPROC+21*, BLDPROC+22, BLDPROC+33*, BLDPROC+34, BLDSUM+1~, PRT2+10*, PRT2+11, PRT3+13*, PRT3+14, PRT3+15* , PRT3+17, PRT4+12*, PRT4+13, PRT5+12*, PRT5+13 |
| DGTEXT | BLDPROC+1~, BLDPROC+20*, BLDPROC+21, BLDPROC+22, BLDPROC+32*, BLDPROC+33, BLDPROC+34, BLDSUM+1~, PRT3+12*, PRT3+13 , PRT3+14, PRT4+11*, PRT4+12, PRT4+13, PRT5+11*, PRT5+12, PRT5+13 |
| DGXTMP | EN~, EN+4, EN+5, SETUP+2*, BLDPROC~, BLDPROC+16, BLDPROC+17, BLDPROC+18, BLDPROC+19, BLDPROC+28 , BLDPROC+30, BLDPROC+31, BLDSUM~, PRT1+8, PRT1+9, PRT2+7, PRT2+8, PRT3+9, PRT3+10, PRT3+16 , PRT4+9, PRT4+10, PRT4+14, PRT5+9, PRT5+10, PRT5+13 |
| DUZ | BLDPROC+6, TOP+3, SENDMSG+7, SNDERR+14 |
| U | BLDPROC+17, BLDPROC+18, BLDPROC+19, BLDPROC+30, BLDPROC+31, PRT2+8, PRT3+10, PRT3+14, PRT3+16, PRT4+10 , PRT4+13, PRT4+14, PRT5+10, PRT5+13, SNDERR+6, SNDERR+8 |
| VA | BLDSUM+1~, LAST4+1~ |
| VA("BID" | LAST4+4 |
| XMBODY | SENDMSG+1~, SENDMSG+6*, SENDMSG+10, SNDERR+1~, SNDERR+13*, SNDERR+15 |
| XMDUZ | SENDMSG+1~, SENDMSG+7*, SENDMSG+10, SNDERR+1~, SNDERR+14*, SNDERR+15 |
| XMINSTR | SENDMSG+1~, SENDMSG+10 |
| XMINSTR("FLAGS" | SENDMSG+8* |
| XMINSTR("FROM" | SENDMSG+9* |
| XMSUBJ | SENDMSG+1~, SENDMSG+3*, SENDMSG+5*, SENDMSG+10, SNDERR+1~, SNDERR+12*, SNDERR+15 |
| XMTO | SENDMSG+1~, SENDMSG+10, SNDERR+1~, SNDERR+15 |
| XMTO("G.DGPF | CLINICAL HR FLAG REVIEW" , SENDMSG+4*, SNDERR+11* |