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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^APSQFA

Package: IHS Changes To Pharmacy

Global: ^APSQFA

Information

FileMan FileNo	FileMan Filename	Package
9009035.3	DRUG PICK	IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 1

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	QUICK PICK	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `NOV 05, 1998` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: THE QUICK PICK NAME FOR A DRUG CROSS-REFERENCE: `9009035.3^B` 1)= S ^APSQFA("B",$E(X,1,30),DA)="" 2)= K ^APSQFA("B",$E(X,1,30),DA)
1	SYNONYM	1;0	Multiple #9009035.31	9009035.31
1.5	SEQUENCE	3;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X),$D(PSOSITE) K:$D(^APSQFA("SD",PSOSITE,X)) X` LAST EDITED: `JAN 12, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: USED TO SEQUENCE THE ENTRY IN THE LISTER NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009035.3^S` 1)= S ^APSQFA("S",$E(X,1,30),DA)="" 2)= K ^APSQFA("S",$E(X,1,30),DA) 3)= DONT DELETE PLEASE CROSS-REFERENCE: `9009035.3^SD^MUMPS` 1)= I $P(^APSQFA(DA,0),U,10)]"" S ^APSQFA("SD",$P(^(0),U,10),$E(X,1,30),DA)="" 2)= I $P(^APSQFA(DA,0),U,10)]"" K ^APSQFA("SD",$P(^(0),U,10),$E(X,1,30),DA) 3)= DO NOT DELETE USED FOR LISTER APSQDIS
2	DRUG	0;2	POINTER TO DRUG FILE (#50)	DRUG(#50) INPUT TRANSFORM: `D TEST^APSQFUTI` LAST EDITED: `NOV 09, 1998` HELP-PROMPT: `ENTER A DRUG FROM THE DRUG FILE-ONLY ACTIVE DRUGS ARE SELECTABLE` SCREEN: `I $S('$D(^PSDRUG(Y,"I")):1,'^("I"):1,DT'>^("I"):1,1:0),$S('$D(^PSDRUG(Y,2)):1,$P(^(2),"^",3)'["O":0,1:1)` EXPLANATION: `SCREEN OUT INACTIVE DRUGS ETC` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	SIG	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>100!(+X=X)!($L(X)<1)!(X'?.ANP) X D:$D(X) SIG^PSOHELP W:$D(X) " "_"("_$E(SIG,2,9999999)_")"` LAST EDITED: `NOV 05, 1998` HELP-PROMPT: `ENTER MEDICATION INSTRUCTIONS FOR DRUG FROM 1 TO 100 CHARACTERS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	QTY	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X'?1N.ANP!("^"[X)!(+X<0)!(+X>9999)!($L(X)>10) X D:$D(X) QTY^PSOHELP` LAST EDITED: `NOV 05, 1998` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	COPIES	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 05, 1998` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
6	DAYS SUPPLY	0;6	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>180)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 05, 1998` HELP-PROMPT: `Type a Number between 1 and 180, 0 Decimal Digits`
7	# OF REFILLS	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D:$D(APSQFDAY)&($D(APSQFDRU)) REFILL^APSQFUTI` LAST EDITED: `NOV 05, 1998` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	CHRONIC MED	0;8	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `NOV 05, 1998`
9	REMARKS	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `NOV 05, 1998` HELP-PROMPT: `Answer must be 1-50 characters in length.`
10	DIVISION	0;10	POINTER TO OUTPATIENT SITE FILE (#59)	OUTPATIENT SITE(#59) LAST EDITED: `MAY 13, 2001` HELP-PROMPT: `ENTER THE DIVISION FROM THE OUTPATIENT SITE FILE` CROSS-REFERENCE: `9009035.3^SDTOO^MUMPS` 1)= I $P($G(^APSQFA(DA,3)),U,1)]"" S ^APSQFA("SD",$E(X,1,30),$P(^(3),U,1),DA)="" 2)= I $P($G(^APSQFA(DA,3)),U,1)]"" K ^APSQFA("SD",$E(X,1,30),$P(^(3),U,1),DA) 3)= DO NOT DELETE USED IN LISTER APSQDIS
20	EXPLODE	2;0	POINTER Multiple #9009035.32	9009035.32

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All