DGBTCE1 ;ALB/LM - BENEFICIARY TRAVEL CLAIM RE-ENTER/EDIT CONT.; 9/13/89@8:00 ;4/23/91 09:42
Source file <DGBTCE1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CONT | ; ENTRY POINTS FROM DGBTEE,DGBTCE
|
|
DIE5 | ;S DGBTINFL=$S(DGBTDE=DGBTDCV:$P(DGBTVAR("R"),DGBTFLX)_$P(DGBTVAR("R"),DGBTFLX,2)_" ",DGBTDE'=DGBTDCV&(DGBTVAR("R")'[DGBTFLX):$E(DGBTVAR("R")_DGBTINFL_DGBTFLX,1,79),1:DGBTVAR("R"))
|
|
DIE6 | ||
QUIT | ;KILL VARIABLES
|
|
PAYABLE() | ;
|
|
COMCARN() | ;CC not required
|
|
COMCARY() | ; CC required
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DGBT(392 - [#392] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |