DGREGCP2 ;ALB/CLT,JAM - 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(DGLINE1,DGST,DGCNTRY) | ;Check for PO Box/General Delivery in Permanent Mailing Address
; DGLINE1 - Line 1 of the Mailing address ; DGST - State code ; DGCNTRY - Country ; Returns 1 if Perm address contains PO Box or General delivery (allowing for exceptions) ; allow certain exceptions for countries/states that allow PO Box |
|
| 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 |
|---|---|
| $$ISPO | POBOXRES+11, POBOXPM+8 |
| $$OKPO | POBOXRES+8, POBOXPM+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNTRY | POBOXRES~, POBOXRES+8, OKPO~, OKPO+7, OKPO+12 |
| DGADDL1 | POBOXRES~, POBOXRES+11, ISPO~, ISPO+5*, ISPO+7*, ISPO+8 |
| DGCCHK | POBOXRES+6~, POBOXRES+9*, POBOXRES+11*, POBOXRES+12, ISPO+2~, ISPO+3*, ISPO+8*, ISPO+9 |
| DGCNTRY | POBOXPM~, POBOXPM+6 |
| DGLINE1 | POBOXPM~, POBOXPM+8 |
| DGST | POBOXPM~, POBOXPM+6 |
| DGSTATES | OKPO+8~, OKPO+9*, OKPO+12 |
| STATE | POBOXRES~, POBOXRES+8, OKPO~, OKPO+10*, OKPO+12 |
