DGRPU ;ALB/MRL,TMK,BAJ,DJE,JAM,JAM,ARF - REGISTRATION UTILITY ROUTINE ;12/20/2005 5:37PM
Source file <DGRPU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
H | ;Screen Header
|
|
LISTHDR(DGFIRST) | ;sets patient data for banners of list manager screens - DG*5.3*1014
|
|
AL(DGLEN) | ;DGLEN= Available length of line
|
|
A | ;Format address(es)
; DG*5.3*688 BAJ 12/20/2005 modified for foreign address |
|
US(DGAD,TMP,DGA1,DGA2) | ;process US addresses and format in DGA array
; DG*5.3*688 BAJ this is the code for all addresses prior to the addition of Foreign address logic. ; Modifications for Foreign address are in Tag FOREIGN |
|
FOREIGN(DGAD,TMP,DGA1,DGA2) | ;process FOREIGN addresses and format in DGA array
|
|
W | ||
FNPCS | ; Foreign data pieces. Structure-->Description;;Main Node;Data Node;City;Province;Postal code.
|
|
H1 | ;
|
|
INCOME(DFN,DGDT) | ; compute income for veteran...if not in 408.21, pass back file 2 data
; (called by PTF) |
|
MTCOMP(DFN,DGDT) | ; is current means test OR COPAY complete?
|
|
HLP1010 | ;* This is called by the Executable Help for Patient field #1010.159
; (APPOINTMENT REQUEST ON 1010EZ) |
|
HLPCS | ; * This is called by the Executable Help for Income Relation field #.1
|
|
HLP1823 | ;*This is called by the Executable Help for Patient Relation field #.18
|
|
HLPMLDS | ;* This is called by the Executable Help for Patient field #.362
; (DISABILITY RET. FROM MILITARY?) |
|
HLP3602 | ;help text for field .3602, Rec'ing Disability in Lieu of VA Comp
|
|
HLP3603 | ;help text for field .3603, Discharge Due to LOD Disability
|
|
SSNNM(DFN) | ; SSN, EDIPI and name on first line of screen
|
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: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DG(391 - [#391] | GET1^DIQ |