RMPOBILU ;EDS/MDB,RVD - HOME OXYGEN BILLING TRANSACTIONS ;8/7/98 10:58
Source file <RMPOBILU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
VDRSCRN | ; SCREEN
|
|
XFRM1 | ; INPUT XFORM FOR BILLING MONTH, FILE 665.72
|
|
2319 | ; -- Display 2319
|
|
ACCEPT | ; ACCEPT TRX
|
|
UNACCEPT | ; UNACCEPT TRX
|
|
SAME | ;
|
|
FCP(FCP) | ;
|
|
FCP4 | ; LOOK FOR EXISTING PAYMENT TYPE
|
|
FCP2 | ; 1358
|
|
FCPSET | ; SET ENTRY IN RMPO
|
|
FCPCHK(DATA) | ;CHECK IF FCP ALREADY EXIST IN FILE 665.72
|
|
FCP3 | ; PURCHASE CARD
|
|
FCP1 | ; PAYMENT TYPE
|
|
GETFCP(DFCP) | ; Return FCP from file 420 (External value only)
; Pass - DFCP = Default FCP [optional] |
|
QUIT() | ||
EQUIT() | ||
LJ(S,W,C) | ; Left justify S in a field W wide padding with char F
|
|
ENC(X,X1,X2) | ;Encrypt
|
|
DEC(X,X1,X2) | ;Decrypt
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|