Global: ^APSQNF

FileMan FileNo	FileMan Filename	Package
9009035.1	NON FORMULARY REQUESTS	IHS Changes To Pharmacy

Package	Total	Routines
IHS Changes To Pharmacy	2	APSQCK APSQCK1
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
IHS Changes To Pharmacy	3	APSQCK APSQCK1 APSQNF

Package	Total	FileMan Files
IHS Changes To Pharmacy	2	APSP MANUFACTURER(#9009031.3)[3.1] NON FORMULARY DRUG(#9009035.2)[3]
Pharmacy Data Management	2	DOSAGE FORM(#50.606)[3.2] DRUG(#50)[3]
IHS Patient	1	PATIENT(#9000001)[2]
Kernel	1	NEW PERSON(#200)[4, 5, 6, 7]
National Drug File	1	VA DRUG CLASS(#50.605)[3.4]
Outpatient Pharmacy	1	PRESCRIPTION(#52)[14]
Scheduling	1	CLINIC STOP(#40.7)[9]
Utility Tables	1	LOCATION(#9999999.06)[8]

Fields, Total: 32

Field #	Name	Loc	Type	Details
.01	CONTROL NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1)!'(X?1.11N) X I $D(X) S DINUM=X,X=$P(^AUTTLOC(DUZ(2),0),U,7)_X` LAST EDITED: `AUG 31, 1998` HELP-PROMPT: `Answer must be 1-11 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009035.1^B` 1)= S ^APSQNF("B",$E(X,1,30),DA)="" 2)= K ^APSQNF("B",$E(X,1,30),DA)
1	DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X Q:'$D(X) Q:$P(^APSQNF(DA,0),U,3)="" Q:$P(^(0),U,4)="" K:$D(^APSQNF("M",$P(^APSQNF(DA,0),U,3),$P(^(0),U,4),X)) X` LAST EDITED: `SEP 11, 1998` HELP-PROMPT: `CANT HAVE SAME DRUG FOR SAME PATIENT FOR SAME DAY` WRITE AUTHORITY: ^ UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the REQUESTING PROVIDER/SIG field of the NON FORMULARY REQUESTS File CROSS-REFERENCE: `9009035.1^M^MUMPS` 1)= I $P(^APSQNF(DA,0),U,3),$P(^(0),U,4) S ^APSQNF("M",$P(^(0),U,3),$P(^(0),U,4),X)=DA 2)= I $P(^APSQNF(DA,0),U,3),$P(^(0),U,4) K ^APSQNF("M",$P(^(0),U,3),$P(^(0),U,4),X) CROSS-REFERENCE: `9009035.1^DT` 1)= S ^APSQNF("DT",$E(X,1,30),DA)="" 2)= K ^APSQNF("DT",$E(X,1,30),DA)
2	PATIENT	0;3	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) INPUT TRANSFORM: `Q:'$D(X) Q:$P(^APSQNF(DA,0),U,2)="" Q:$P(^(0),U,4)="" K:$D(^APSQNF("M",X,$P(^APSQNF(DA,0),U,4),$P(^(0),U,2))) X` LAST EDITED: `SEP 11, 1998` HELP-PROMPT: `CANT HAVE THE SAME DRUG FOR THE SAME PERSON ON THE SAME DAY` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009035.1^MTOO^MUMPS` 1)= I $P(^APSQNF(DA,0),U,2),$P(^(0),U,4) S ^APSQNF("M",X,$P(^(0),U,4),$P(^(0),U,2))=DA 2)= I $P(^APSQNF(DA,0),U,2),$P(^(0),U,4) K ^APSQNF("M",X,$P(^(0),U,4),$P(^(0),U,2)) CROSS-REFERENCE: `9009035.1^C` 1)= S ^APSQNF("C",$E(X,1,30),DA)="" 2)= K ^APSQNF("C",$E(X,1,30),DA)
3	DRUG	0;4	VARIABLE POINTER	**********************REQUIRED FIELD********************** DRUG(#50) NON FORMULARY DRUG(#9009035.2) INPUT TRANSFORM: `Q:'$D(X) Q:$P(^APSQNF(DA,0),U,3)="" Q:$P(^(0),U,2)="" K:$D(^APSQNF("M",$P(^APSQNF(DA,0),U,3),X,$P(^(0),U,2))) X` LAST EDITED: `OCT 11, 2000` HELP-PROMPT: `MUST NOT BE SAME DRUG FOR PATIENT ON THIS DATE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009035.1^MTOOO^MUMPS` 1)= I $P(^APSQNF(DA,0),U,2),$P(^(0),U,3) S ^APSQNF("M",$P(^(0),U,3),X,$P(^(0),U,2))=DA 2)= I $P(^APSQNF(DA,0),U,2),$P(^(0),U,3) K ^APSQNF("M",$P(^(0),U,3),X,$P(^(0),U,2)) CROSS-REFERENCE: `9009035.1^DR` 1)= S ^APSQNF("DR",$E(X,1,30),DA)="" 2)= K ^APSQNF("DR",$E(X,1,30),DA)
3.1	MANUFACTURER	0;5	POINTER TO APSP MANUFACTURER FILE (#9009031.3)	APSP MANUFACTURER(#9009031.3) LAST EDITED: `AUG 27, 1998`
3.2	DOSAGE FORM	0;6	POINTER TO DOSAGE FORM FILE (#50.606)	DOSAGE FORM(#50.606) LAST EDITED: `AUG 27, 1998`
3.3	ESTIMATED USAGE/MONTH	0;7	SET	'1' FOR ROUTINE; '2' FOR EMERGENCY; '3' FOR CLINICAL EVALUATION; '4' FOR CLINICAL INVESTIGATION; LAST EDITED: `AUG 27, 1998`
3.4	THERAPEUTIC CLASS	0;8	POINTER TO VA DRUG CLASS FILE (#50.605)	VA DRUG CLASS(#50.605) LAST EDITED: `AUG 28, 1998`
3.5	SIMILAR DRUG STOCKED	0;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 27, 1998`
3.7	ADVANTAGE OF DRUG	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<3) X` LAST EDITED: `AUG 27, 1998` HELP-PROMPT: `Answer must be 3-100 characters in length.`
4	REQUESTING PROVIDER/SIG	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="S XX=$G(^(""PS"")) I +XX,$S('$P(XX,U,4):1,1:$P(XX,U,4)'` `LAST EDITED: AUG 30, 1998` `SCREEN: S DIC("S")="S XX=$G(^(""PS"")) I +XX,$S('$P(XX,U,4):1,1:$P(XX,U,4)'` `EXPLANATION: PROVIDER MUST BE AUTHORIZED TO WRITE ORDERS` `UNEDITABLE` `CROSS-REFERENCE: ^^TRIGGER^9009035.1^4.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9009035.1,4,1,1,1.1) X ^DD(9009035.1,4,1,1,1.4)` `1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%` `1.4)= S DIH=$S($D(^APSQNF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=9009035.1,DIG=4.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(9009035.1,4,1,1,2.4)` `2.4)= S DIH=$S($D(^APSQNF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=9009035.1,DIG=4.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= NOW` `DELETE VALUE)= @` `FIELD)= REQUESTING PROVIDER DATE` `CROSS-REFERENCE: ^^TRIGGER^9009035.1^1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9009035.1,4,1,2,1.4)` `1.4)= S DIH=$S($D(^APSQNF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9009035.1,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$S($D(^APSQNF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9009035.1,DIG=1 D ^DICR:$O(^DD(DIH,DIG` `,1,0))>0` `CREATE VALUE)= TODAY` `DELETE VALUE)= @` `FIELD)= DATE`
4.1	REQUESTING PROVIDER DATE	1;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 30, 1998` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the REQUESTING PROVIDER/SIG field of the NON FORMULARY REQUESTS File`
5	APPROVAL PROVIDER/SIG	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="S XX=$G(^(""PS"")) I +XX,$S('$P(XX,U,4):1,1:$P(XX,U,4)'` `LAST EDITED: AUG 27, 1998` `SCREEN: S DIC("S")="S XX=$G(^(""PS"")) I +XX,$S('$P(XX,U,4):1,1:$P(XX,U,4)'` `EXPLANATION: PROVIDER MUST BE AUTHORIZED TO WRITE SCRIPTS` `CROSS-REFERENCE: ^^TRIGGER^9009035.1^5.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9009035.1,5,1,1,1.1) X ^DD(9009035.1,5,1,1,1.4)` `1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%` `1.4)= S DIH=$S($D(^APSQNF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=9009035.1,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9009035.1,5,1,1,2.4)` `2.4)= S DIH=$S($D(^APSQNF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=9009035.1,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= NOW` `DELETE VALUE)= @` `FIELD)= APPROVAL PROVIDER DATE`
5.1	APPROVAL PROVIDER DATE	1;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 27, 1998` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the APPROVAL PROVIDER/SIG field of the NON FORMULARY REQUESTS File`
6	PHARMACY/SIG	1;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PSORPH"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 11, 1998` SCREEN: `S DIC("S")="I $D(^XUSEC(""PSORPH"",+Y))"` EXPLANATION: `ONLY PROVIDERS WITH PSORPH KEY CAN BE SELECTED` CROSS-REFERENCE: `^^TRIGGER^9009035.1^6.1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9009035.1,6,1,1,1.1) X ^DD(9009035.1,6,1,1,1.4) 1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=% 1.4)= S DIH=$S($D(^APSQNF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,5)=DIV,DIH=9009035.1,DIG=6.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9009035.1,6,1,1,2.4) 2.4)= S DIH=$S($D(^APSQNF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,5)=DIV,DIH=9009035.1,DIG=6.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= NOW DELETE VALUE)= @ FIELD)= PHARMACY DATE
6.1	PHARMACY DATE	1;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 28, 1998` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the PHARMACY/SIG field of the NON FORMULARY REQUESTS File`
7	PT COMMITTEE/SIG	1;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PSORPH"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 28, 1998` SCREEN: `S DIC("S")="I $D(^XUSEC(""PSORPH"",+Y))"` EXPLANATION: `ONLY PROVIDERS WITH THE PSORPH KEY CAN BE SELECTED` CROSS-REFERENCE: `^^TRIGGER^9009035.1^7.1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9009035.1,7,1,1,1.1) X ^DD(9009035.1,7,1,1,1.4) 1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=% 1.4)= S DIH=$S($D(^APSQNF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,7)=DIV,DIH=9009035.1,DIG=7.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSQNF(D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(9009035.1,7,1,1,2.4) 2.4)= S DIH=$S($D(^APSQNF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,7)=DIV,DIH=9009035.1,DIG=7.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= NOW DELETE VALUE)= @ FIELD)= PT COMMITTEE DATE
7.1	PT COMMITTEE DATE	1;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 28, 1998` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the PT COMMITTEE/SIG field of the NON FORMULARY REQUESTS File`
7.5	PT APPROVED	1;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 28, 1998`
8	FACILITY	1;9	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `AUG 28, 1998`
9	CLINIC	1;10	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `AUG 28, 1998`
10	AVAILABILITY OF MED	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `AUG 28, 1998` HELP-PROMPT: `Answer must be 3-80 characters in length.`
11	RECOGNIZED BY USP,NF,ETC	1;12	SET	'1' FOR USP; '2' FOR NF; '3' FOR ND; '4' FOR ADR; '5' FOR OTHER; LAST EDITED: `AUG 28, 1998`
12	DRUG COST	1;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `AUG 28, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
13	COST OF SMILIAR DRUG	1;14	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `AUG 28, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
14	PRESCRIPTION REFERENCE	1;15	POINTER TO PRESCRIPTION FILE (#52)	PRESCRIPTION(#52) LAST EDITED: `SEP 28, 1998` CROSS-REFERENCE: `9009035.1^RX` 1)= S ^APSQNF("RX",$E(X,1,30),DA)="" 2)= K ^APSQNF("RX",$E(X,1,30),DA) 3)= USED WITH LOOKUP FOR KILLING THIS FIELD BY DELETE OPTION IN PHARMACY
30	THERAPEUTIC ACTS/INDICATES	3;0	WORD-PROCESSING #9009035.13
40	SIDE EFFECTS,TOX,PRECAUTIONS	4;0	WORD-PROCESSING #9009035.14
50	DOSAGES	5;0	WORD-PROCESSING #9009035.15
60	REFERENCES	6;0	WORD-PROCESSING #9009035.16
70	RPH REMARKS	7;0	WORD-PROCESSING #9009035.17
80	P/T COMMENTS	8;0	WORD-PROCESSING #9009035.18

Customize PDF page

Package: IHS Changes To Pharmacy

Global: ^APSQNF

Information

Description

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 10

Fields, Total: 32