RCDMCUT2 ;HEC/SBW - Utility Functions for Hold Debt to DMC Project ;30/AUG/2007
Source file <RCDMCUT2.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 |
|---|---|---|
| DEVICE(ROUTINE,DESC,STOPIT,RCSCR,BEGDT,EXCEL,RCTYPE,RCDMC) | ;
|
|
| STOPIT() | ; Checks if user requested task to stop
|
|
| EXCEL() | ; - Returns whether to capture data for Excel report.
|
|
| HEXC | ; - 'Do you want to capture data...' prompt
|
|
| EXMSG | ; - Displays the message about capturing to an Excel file format
|
|
| GETTYPE(STOPIT) | ; Choose a (S)ummary or (D)etail or (E)xcel Delimited Report
|
|
| GETTYPE2(STOPIT) | ; Choose a (S)ummary or (D)etail
|
|
| BILLPAYS() | ; Do you want to see only bills with payments?
|
|
| GETDMC(STOPIT) | ;Chose DMC Debt Valid field value to include Null, Pending,
; Yes, No and All vallues |
|
| EXTTYPE(TYPE) | ;Get Set of Code external format for Report type
|
|
| EXTDMC(VAL) | ;Get Set of Code external format for DMC Debt Valid field value
|
|
| DATE(PROMPT,PROMPT2,BEG,END,DTYPE) | ;Get beginning and Ending dates
|
|
| DATE2(PROMPT,PROMPT2,BEG,END,DTYPE) | ;Get beginning and Ending dates
|
|
| GETBEGDT(PROMPT1,PROMPT2,DTPROMPT) | ;Get beginning date
|
|
| ARSTAT(STOPIT) | ;Chose AR status
; Yes, No and All vallues |
|
| PAUSE | ;If sending report to screen display pause message at screen bottom
|
|
| PAUSE2 | ;If sending report to screen display pause message at screen bottom;
|
|
| ULINE(X,WIDTH) | ;Display line of a given character
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | DATE+20, DATE+30, DATE2+20, DATE2+30 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DATE+13~, DATE+17*, DATE+23!, DATE+27*, DATE+32!, DATE2+13~, DATE2+17*, DATE2+23!, DATE2+27*, DATE2+32! , GETBEGDT+9~, GETBEGDT+13*, GETBEGDT+19! |
| %DT("A" | DATE+18*, DATE+28*, DATE2+18*, DATE2+28*, GETBEGDT+14* |
| %DT("B" | DATE+19*, DATE+20*, DATE+29*, DATE+30*, DATE2+19*, DATE2+20*, DATE2+29*, DATE2+30*, GETBEGDT+15* |
| %DT(0 | GETBEGDT+16* |
| %ZIS | DEVICE+14~, DEVICE+17* |
| BEG | DATE~, DATE+19, DATE+20, DATE2~, DATE2+19, DATE2+20 |
| BEGDT | DEVICE~, DEVICE+16, DATE+13~, DATE+26*, DATE+36, DATE+39, DATE2+13~, DATE2+26*, DATE2+36, DATE2+39 , GETBEGDT+9~, GETBEGDT+22*, GETBEGDT+23 |
| BP | BILLPAYS+7~, BILLPAYS+9*, BILLPAYS+14*, BILLPAYS+15*, BILLPAYS+16 |
| DESC | DEVICE~, DEVICE+29 |
| DIR | EXCEL+7~, GETTYPE+7~, GETTYPE2+7~, BILLPAYS+7~, GETDMC+8~, ARSTAT+8~ |
| DIR("?" | EXCEL+12*, GETDMC+11*, GETDMC+12*, GETDMC+13*, GETDMC+14*, GETDMC+15*, GETDMC+16* |
| DIR("A" | EXCEL+11*, GETTYPE+9*, GETTYPE2+9*, BILLPAYS+11*, GETDMC+10*, ARSTAT+13* |
| DIR("B" | EXCEL+10*, GETTYPE2+10*, BILLPAYS+10*, ARSTAT+14* |
| DIR("T" | EXCEL+10*, BILLPAYS+10* |
| DIR(0 | EXCEL+10*, GETTYPE+8*, GETTYPE2+8*, BILLPAYS+10*, GETDMC+9*, ARSTAT+12* |
| DIROUT | EXCEL+7~, EXCEL+14, GETTYPE+7~, GETTYPE+12, GETTYPE2+7~, GETTYPE2+13, BILLPAYS+7~, BILLPAYS+14, GETDMC+8~, GETDMC+19 , DATE+13~, DATE2+13~, GETBEGDT+9~, ARSTAT+8~, ARSTAT+17 |
| DIRUT | EXCEL+7~, EXCEL+14, GETTYPE+7~, GETTYPE+12, GETTYPE2+7~, GETTYPE2+13, BILLPAYS+7~, BILLPAYS+14, GETDMC+8~, GETDMC+19 , DATE+13~, DATE2+13~, GETBEGDT+9~, ARSTAT+8~, ARSTAT+17 |
| DT | GETBEGDT+15, GETBEGDT+16 |
| DTIME | EXCEL+10, BILLPAYS+10, PAUSE+4, PAUSE2+4 |
| DTOUT | EXCEL+7~, EXCEL+14, GETTYPE+7~, GETTYPE+12, GETTYPE2+7~, GETTYPE2+13, BILLPAYS+7~, BILLPAYS+14, GETDMC+8~, GETDMC+19 , DATE+13~, DATE2+13~, GETBEGDT+9~, ARSTAT+8~, ARSTAT+17 |
| DTPROMPT | GETBEGDT~, GETBEGDT+14 |
| DTYPE | DATE~, DATE+18, DATE+28, DATE2~, DATE2+18, DATE2+28 |
| DUOUT | EXCEL+7~, EXCEL+14, GETTYPE+7~, GETTYPE+12, GETTYPE2+7~, GETTYPE2+13, BILLPAYS+7~, BILLPAYS+14, GETDMC+8~, GETDMC+19 , DATE+13~, DATE2+13~, GETBEGDT+9~, ARSTAT+8~, ARSTAT+17 |
| END | DATE~, DATE+29, DATE+30, DATE2~, DATE2+29, DATE2+30 |
| ENDDT | DATE+13~, DATE+35*, DATE+36, DATE+39, DATE2+13~, DATE2+35*, DATE2+36, DATE2+39 |
| EXCEL | DEVICE~, EXCEL+7~, EXCEL+9*, EXCEL+14*, EXCEL+15*, EXCEL+17 |
| I | ULINE+5~, ULINE+8* |
| IO | PAUSE+7, PAUSE2+7 |
| IO("Q" | DEVICE+22 |
| IO(0 | PAUSE+2, PAUSE2+2 |
| ION | DEVICE+24 |
| IOST | DEVICE+20 |
| OUT | DATE+13~, DATE+14*, DATE+25, DATE+34, DATE+36*, DATE+39*, DATE+40, DATE2+13~, DATE2+14*, DATE2+25 , DATE2+34, DATE2+36*, DATE2+39*, DATE2+40, GETBEGDT+9~, GETBEGDT+10*, GETBEGDT+21, GETBEGDT+23*, GETBEGDT+24 |
| POP | DEVICE+14~, DEVICE+19 |
| PROMPT | DATE~, DATE+15, DATE2~, DATE2+15 |
| PROMPT1 | GETBEGDT~, GETBEGDT+11 |
| PROMPT2 | DATE~, DATE+16, DATE2~, DATE2+16, GETBEGDT~, GETBEGDT+12 |
| RCDMC | DEVICE~ |
| RCSCR | DEVICE~, DEVICE+20* |
| RCTYPE | DEVICE~ |
| RCX | STOPIT+6~, STOPIT+8*, STOPIT+9 |
| ROUTINE | DEVICE~, DEVICE+15, DEVICE+23 |
| STOPIT | DEVICE~, DEVICE+15*, DEVICE+16*, DEVICE+19*, DEVICE+22*, STOPIT+6~, STOPIT+7*, STOPIT+10*, STOPIT+12, GETTYPE~ , GETTYPE+12*, GETTYPE2~, GETTYPE2+13*, GETDMC~, GETDMC+19*, ARSTAT~, ARSTAT+17*, PAUSE+6*, PAUSE2+6* |
| TYPE | EXTTYPE~, EXTTYPE+7*, EXTTYPE+8 |
| U | DATE+36, DATE+39, DATE2+36, DATE2+39, GETBEGDT+23 |
| VAL | EXTDMC~, EXTDMC+7*, EXTDMC+8 |
| WIDTH | ULINE~, ULINE+6*, ULINE+8 |
| X | EXCEL+7~, GETTYPE+7~, GETTYPE2+7~, BILLPAYS+7~, GETDMC+8~, DATE+13~, DATE2+13~, GETBEGDT+9~, ARSTAT+8~, PAUSE+1~ , PAUSE+4*, PAUSE+5*, PAUSE+6, PAUSE2+1~, PAUSE2+4*, PAUSE2+5*, PAUSE2+6, ULINE~, ULINE+8 |
| Y | EXCEL+7~, EXCEL+15, GETTYPE+7~, GETTYPE+12*, GETTYPE+13, GETTYPE2+7~, GETTYPE2+13*, GETTYPE2+14, BILLPAYS+7~, BILLPAYS+15 , GETDMC+8~, GETDMC+19*, GETDMC+20, DATE+13~, DATE+20*, DATE+25, DATE+26, DATE+30*, DATE+34, DATE+35 , DATE2+13~, DATE2+20*, DATE2+25, DATE2+26, DATE2+30*, DATE2+34, DATE2+35, GETBEGDT+9~, GETBEGDT+21, GETBEGDT+22 , ARSTAT+8~, ARSTAT+17*, ARSTAT+18 |
| ZTDESC | DEVICE+14~, DEVICE+29* |
| ZTIO | DEVICE+14~, DEVICE+24* |
| ZTRTN | DEVICE+14~, DEVICE+23* |
| ZTSAVE | DEVICE+14~ |
| ZTSAVE("BEGDT" | DEVICE+27* |
| ZTSAVE("EXCEL" | DEVICE+28* |
| ZTSAVE("RC*" | DEVICE+25* |
| ZTSAVE("STOPIT" | DEVICE+26* |
| ZTSK | DEVICE+14~, DEVICE+31, STOPIT+11 |
| >> ZTSTOP | STOPIT+11* |