Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | All

Print Page as PDF

Global: ^PS(53

Package: Outpatient Pharmacy

Global: ^PS(53

Information

FileMan FileNo	FileMan Filename	Package
53	RX PATIENT STATUS	Outpatient Pharmacy

Description

This file holds a list of valid statuses that can be assigned to each Rx that represents the authorization for the Rx. This is independent of the eligibility code assigned to the patient by MAS. This file also holds the parameters that determine if an Rx for a certain status can be refilled, etc. Data is sent for this file, but can be altered by the center, with care. APPLICATION GROUP(S): PS

Accessed By FileMan Db Calls, Total: 9

Package	Total	Routines
Outpatient Pharmacy	8	PSOCPE PSOCPTRI PSOCSTX PSOERUT5 PSOPFSU1 PSORWRAP PSOTPPRE PSOUTIL
DSS Extracts	1	ECXUTL5

Pointed To By FileMan Files, Total: 4

Package	Total	FileMan Files
Outpatient Pharmacy	3	PSO AUDIT LOG(#52.87)[11] DRUG COST(#50.9)[#50.9005(.01)] PRESCRIPTION(#52)[3]
Pharmacy Data Management	1	PHARMACY PATIENT(#55)[3]

Fields, Total: 9

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `This field refers to the internal number within the file.`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>25!X!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `OCT 08, 1991` HELP-PROMPT: `Answer must be 1-25 characters in length.` DESCRIPTION: `This field contains the PATIENT STATUS category associated with this Rx.` `SOURCE OF DATA: VAF 10-2577` CROSS-REFERENCE: `53^B` `1)= S ^PS(53,"B",$E(X,1,30),DA)=""` `2)= K ^PS(53,"B",$E(X,1,30),DA)`
2	ABBR	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>11!($L(X)<1) X` LAST EDITED: `OCT 05, 1984` HELP-PROMPT: `ANSWER MUST BE 1-11 CHARACTERS IN LENGTH` DESCRIPTION: `Respond with an abbreviation for the patient's status.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `53^C` `1)= S ^PS(53,"C",$E(X,1,30),DA)=""` `2)= K ^PS(53,"C",$E(X,1,30),DA)`
3	DAYS SUPPLY	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 90` DESCRIPTION: `Respond with the maximum number of days a prescription can be written for.`
4	REFILLS	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>11)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `AUG 01, 1994` HELP-PROMPT: `Type a Number between 0 and 11, 0 Decimal Digits` DESCRIPTION: `Respond with the maximum number of refills allowed for a particular prescription.`
5	RENEWABLE	0;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 16, 1983` DESCRIPTION: `This field refers to whether or not a prescription is renewable. Answer "1" to indicate "Yes", or "0" to indicate "No".`
6	SC/A&A/OTHER/INPATIENT/NVA	0;6	SET	**********************REQUIRED FIELD********************** '1' FOR SERVICE CONNECTED; '2' FOR A&A; '3' FOR OTHER; '4' FOR INPATIENT; '5' FOR NON-VA; LAST EDITED: `JUL 27, 2003` HELP-PROMPT: `ENTER THE CATEGORY IN WHICH THIS STATUS SHOULD BE COUNTED UNDER AMIS.` DESCRIPTION: `Respond by entering the AMIS workload category for which this prescription will count.` TECHNICAL DESCR: `This field contains the AMIS workload category for which the prescription will count.`
15	EXEMPT FROM COPAYMENT	0;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 10, 1991` HELP-PROMPT: `Answer 'YES' if this Patient Status is exempt from any prescription copayment regardless of other factors. Answer 'NO' otherwise.` DESCRIPTION: `This field is meant to allow the site to screen RX copayments by RX Patient Status, (e.g., Inpatient). If this field is answered 'YES', any RX with this Status will not be charged a copayment.`
16	EXEMPT FROM CHAMPUS BILLING	0;8	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `AUG 21, 1996` HELP-PROMPT: `Answer YES if this Rx Patient status is to be exempt from Champus billing.` DESCRIPTION: `This field can be used to exempt an Rx Patient status from Champus billing.`

Found Entries, Total: 15

NAME: SC	NAME: HB/A&A/WW1	NAME: SC LESS THAN 50%	NAME: PENSION NSC	NAME: OPT NSC	NAME: OTHER FEDERAL	NAME: EMPLOYEE	NAME: NBC
NAME: PBC	NAME: CNH	NAME: OPC	NAME: DOM	NAME: FEE A&A	NAME: FEE-SC	NAME: NON-VA

ICR, Total: 4

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #985	Spinal Cord Dysfunction	NAME (.01). Access: Read w/Fileman
ICR #1975	CMOP Pharmacy Benefits Management	RENEWABLE (5). Access: Direct Global Read & w/Fileman NAME (.01). Access: Direct Global Read & w/Fileman ABBR (2). Access: Direct Global Read & w/Fileman DAYS SUPPLY (3). Access: Direct Global Read & w/Fileman REFILLS (4). Access: Direct Global Read & w/Fileman SC/A&A/OTHER/INPATIENT (6). Access: Direct Global Read & w/Fileman EXEMPT FROM COPAYMENT (15). Access: Direct Global Read & w/Fileman EXEMPT FROM CHAMPUS BILLING (16). Access: Direct Global Read & w/Fileman
ICR #2511	Pharmacy Benefits Management DSS - DECISION SUPPORT SYSTEM EXTRACTS	SC/A&A/OTHER/INPATIENT (6). Access: Read w/Fileman
ICR #6997	CMOP Pharmacy Benefits Management	NAME (.01). Access: Direct Global Read & w/Fileman ABBR (2). Access: Direct Global Read & w/Fileman DAYS SUPPLY (3). Access: Direct Global Read & w/Fileman REFILLS (4). Access: Direct Global Read & w/Fileman RENEWABLE (5). Access: Direct Global Read & w/Fileman SC/A&A/OTHER/INPATIENT/NVA (6). Access: Direct Global Read & w/Fileman EXEMPT FROM COPAYMENT (15). Access: Direct Global Read & w/Fileman EXEMPT FROM CHAMPUS BILLING (16). Access: Direct Global Read & w/Fileman

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | All