Print Page as PDF
DBIA 4858 ICR (4858)

DBIA 4858    ICR (4858)

Name Value
NUMBER 4858
IA # 4858
DATE CREATED 2006/05/15
CUSTODIAL PACKAGE OUTPATIENT PHARMACY
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSODI
NAME DBIA 4858
GENERAL DESCRIPTION 
This DBIA is provided by PSO (Outpatient Pharmacy) as
an API to do simulated VA FileMan calls. This API is to be used in the future
by all packages needing to use FileMan to look at the PRESCRIPTION file (#52)
and the OUTPATIENT SITE file (#59) as all the Pharmacy packages are being
re-engineered.
STATUS Active
DURATION Till Otherwise Agreed
ID PSODI
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
DIQ(PSOFILE,DIC,.DR,.DA,.DIQ) 
FORMAT: D DIQ^PSODI(PSOFILE,DIC,.DR,.DA,.DIQ)
VARIABLES TYPE VARIABLES DESCRIPTION
PSOFILE Input 
File number used for validation of access [REQUIRED]
DIC Input 
See VA FileMan Programmer Manual for EN^DIQ1 call for
DIC, DR, DA, and DIQ input definitions
PSODIY Output 
PSODIY will return null if the value for PSOFILE is
valid (it will return -1 if conditions were not met)

See VA FileMan Programmer Manual for EN^DIQ1 output definition
STATUS(PSOFILE,PSOFIELD,LIST) 
FORMAT: D STATUS^PSODI(PSOFILE,PSOFIELD,LIST)  NOTE:
Make sure LIST("POINTER") is not defined when making this call.
VARIABLES TYPE VARIABLES DESCRIPTION
PSOFILE Input 
File number used for validation of access [REQUIRED]
PSOFIELD Input 
Field number from the specified file associated with
the value in PSOFILE [REQUIRED]
LIST Input 
Array name defined by the calling application
[REQUIRED]
PSODIY Output 
PSODIY will return null if the value for PSOFILE is
valid (it will return -1 if conditions were not met)
DIC(PSOFILE,.DIC,.X) 
FORMAT: D DIC^PSODI(PSOFILE,.DIC,.X)
VARIABLES TYPE VARIABLES DESCRIPTION
PSOFILE Input 
File number used for validation of access [REQUIRED]
DIC Input 
See VA FileMan Programmer Manual for ^DIC call for
DIC and X input definitions
PSODIY Output 
PSODIY will return null if the value for PSOFILE is
valid (it will return -1 if conditions were not met)
GET1(PSOFILE,PSOIEN,PSOFIELD,PSOFLAGS,PSOWORD) 
FORMAT:
S X=$$GET1^PSODI(PSOFILE,PSOIEN,PSOFIELD,PSOFLAGS,PSOWORD)
VARIABLES TYPE VARIABLES DESCRIPTION
PSOFILE Input 
File or sub-file number [REQUIRED]
PSOIEN Input 
IEN for data return [REQUIRED]
PSOFIELD Input 
Field for data return [REQUIRED]
FLAGS Input 
Controls the processing of data returned [REQUIRED]
PSOWORD Input 
Return of word processing fields [REQUIRED only with
word processing fields]
$$GET1 Output 
Returned field will be in the format "1^(field)".
See VA FileMan Programmer Manual V 22.0 for $$GET1^DIQ output definition.
DATE ACTIVATED 2007/07/10