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: PRPFU2

Package: Integrated Patient Fund

Routine: PRPFU2


Information

PRPFU2 ;VAMC ALTOONA/CTB - MISC UTILITY ROUTINES ;11/22/96 4:48 PM

Source Information

Source file <PRPFU2.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
EXT(DIC,DA,DR,X,DIQ)
EN1
LZF(STRING,LENGTH) ;LEFT ZERO FILL STRING IN A FIELD LENGTH OF LENGTH
RZF(STRING,LENGTH) ;RIGHT ZERO FILL STRING IN A FIELD LENGTH OF LENGTH
LBF(STRING,LENGTH) ;LEFT BLANK FILL STRING IN A FIELD LENGTH OF LENGTH
RBF(STRING,LENGTH) ;RIGHT BLANK FILL STRING IN A FIELD LENGTH OF LENGTH
DIR() ;SET VARIABLE STRING RETURNING FROM DIR
FULLDAT(Y) ;CONVERTS FILEMAN INTERNAL DATE TO EXTERNAL FORMAT
EXTSSN(X) ;RETURNS EXTERNAL VALUE OF SSN
LOWER(X) ;RETURNS STRING X IN LOWER CASE
UPPER(X) ;RETURNS STRING X IN UPPER CASE
AGE(X2,X1) ;extrinsic function returns current age based on date X
SETOFCDS ;display set of codes
VPHONE(X) ;extrinsic function, for validating telephone numbers
PHONEOUT(X) ;extrinsic function to print phone number

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select From:",!
  • Line Location: SETOFCDS+3
Function Call: WRITE
  • Prompt: !?5,$P(Y,":"),?15,$P(Y,":",2)
  • Line Location: SETOFCDS+5
Info |  Source |  Entry Points |  Interaction Calls