DGREGCP2 ;ALB/CLT - ADDRESS UTILITIES ;23 May 2017 1:33 PM
Source file <DGREGCP2.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 |
|---|---|---|
| POBOXRES(DGADDL1,STATE,CNTRY) | ;TEST FOR UNALLOWED PO BOX AND GENERAL DELIVERY FOR RESIDENTIAL ADDRESS
; DGADDL1 - The address [LINE 1] text ; STATE - Internal State Code ; CNTRY - Internal Country Code ; returns 1 if PO box/general delivery not allowed for this address ; called from DGREGRED for validation of residential address on screen 1.1 |
|
| POBOXPM(DFN) | ;Check for PO Box/General Delivery in Permanent Mailing Address
; Returns 1 if Perm address contains PO Box or General delivery (allowing for exceptions) |
|
| OKPO(STATE,CNTRY) | ;PO BOX CHECK FOR CERTAIN COUNTRIES AND STATES
; Returns 1 if the country/state allows for PO box/general delivery ; Pass in the state and country codes to check |
|
| ISPO(DGADDL1) | ; check address line for presence of PO Box or General Delivery
; Returns 1 if the address line DGADDL1 contains PO/General Delivery |
| FileNo | Call Tags |
|---|---|
| ^DIC(5 - [#5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | POBOXPM+2, POBOXPM+4 |
| Name | Line Occurrences |
|---|---|
| $$ISPO | POBOXRES+11, POBOXPM+10 |
| $$OKPO | POBOXRES+8, POBOXPM+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNTRY | POBOXRES~, POBOXRES+8, OKPO~, OKPO+7, OKPO+12 |
| DFN | POBOXPM~, POBOXPM+2, POBOXPM+4 |
| DGADDL1 | POBOXRES~, POBOXRES+11, POBOXPM+3~, POBOXPM+8*, POBOXPM+10, ISPO~, ISPO+5*, ISPO+7*, ISPO+8 |
| DGCCHK | POBOXRES+6~, POBOXRES+9*, POBOXRES+11*, POBOXRES+12, ISPO+2~, ISPO+3*, ISPO+8*, ISPO+9 |
| DGRESADD | POBOXPM+3~, POBOXPM+4*, POBOXPM+6, POBOXPM+8 |
| DGSTATES | OKPO+8~, OKPO+9*, OKPO+12 |
| STATE | POBOXRES~, POBOXRES+8, OKPO~, OKPO+10*, OKPO+12 |
| U | POBOXPM+6, POBOXPM+8 |
