Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RMPOBILU

Package: Prosthetics

Routine: RMPOBILU


Information

RMPOBILU ;EDS/MDB,RVD - HOME OXYGEN BILLING TRANSACTIONS ;8/7/98 10:58

Source Information

Source file <RMPOBILU.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7)_"RMPOXITE NOT DEFINED!"
  • Line Location: VDRSCRN+3
Function Call: WRITE
  • Prompt: !,"SITE NOT DEFINED!"
  • Line Location: FCP+20
Function Call: WRITE
  • Prompt: !,"SITE NOT FOUND!"
  • Line Location: FCP+21
Function Call: WRITE
  • Prompt: !,"BILLING MONTH NOT DEFINED!"
  • Line Location: FCP+23
Function Call: WRITE
  • Prompt: !,"BILLING MONTH NOT DEFINED!"
  • Line Location: FCP+26
Function Call: WRITE
  • Prompt: !!,"You are not an authorized Purchase Card User, CONTACT FISCAL!"
  • Line Location: FCP3+3
Function Call: WRITE
  • Prompt: wide
  • Line Location: LJ+0
Info |  Source |  Entry Points |  Interaction Calls