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: ^APSPP(31.1

Package: IHS Changes To Pharmacy

Global: ^APSPP(31.1

Information

FileMan FileNo	FileMan Filename	Package
9009031.1	APSP PREPACK LABELS	IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 1

Fields, Total: 4

Field #	Name	Loc	Type	Details
.01	DRUG	0;1	POINTER TO DRUG FILE (#50)	**********************REQUIRED FIELD********************** DRUG(#50) INPUT TRANSFORM: `S DIC("S")="I $S('$D(^PSDRUG(Y,""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 24, 1989` HELP-PROMPT: `Enter the generic name of the drug that you wish to produce a label for. ie. Ampicillin 250MG` DESCRIPTION: This field is a pointer to the Drug file. This is the generic name of the drug that you want to produce a prepack label for.^ DELETE TEST: `1,0)= I $D(^APSPP(31,"AC",DA))` CROSS-REFERENCE: `9009031.1^B` 1)= S ^APSPP(31.1,"B",$E(X,1,30),DA)="" 2)= K ^APSPP(31.1,"B",$E(X,1,30),DA)
.02	QTY PER CONTAINER	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X<.01!(+X>9999.99)!($L(X)>10)!'(X?1.4N!(X?.4N1"."1.2N)!(X?1.4N1" ".ANP)!(X?.4N1"."1.2N1" ".ANP)) X` LAST EDITED: `JUL 24, 1989` HELP-PROMPT: `Type a Number between 0 and 9999.99inclusive. An alpha suffix is allowed after a space, but total entry cannot exceed 10 characters.` DESCRIPTION: This is the total number of dispensing units in each prepack. This is just used as a default by the APSP PREPACK LOG file. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	SIG	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>300!(+X=X)!($L(X)<2)!(X'?.ANP) X X:$D(X) ^DD(9009031.1,.03,9.2) W:$D(X) " (",APSP("SIG"),")" K Z0,Z1` 9.2 = S APSPZW=$S($D(%APSITE):$P(%APSITE,U,4),$D(^AUSYS(1,"PS",1,0)):$P(^(0),U,4),1:31),APSPZW=APSPZW-5 X:$D(X) ^DD(9009031.1,.03,9.3) K APSPZW 9.3 = S APSP("SIG")="" F Z0=1:1 Q:$P(X," ",Z0,99)="" S Z1=$P(X," ",Z0) K:$L(Z1)>APSPZW X W:$L(Z1)>APSPZW !,?5,"MAX OF ",APSPZW," CHARACTERS ALLOWED BT SPACES." Q:$L(Z1)>APSPZW X:Z1]"" ^DD(9009031.1,.03,9.4) S APSP("SIG") =APSP("SIG")_$E(" ",Z0>1)_Z1 9.4 = S Y=$O(^PS(51,"B",Z1,0)) Q:'Y S Z1=$P(^PS(51,Y,0),U,2) Q:'$D(^(9)) S Y=$P(X," ",Z0-1),Y=$E(Y,$L(Y)) S:Y>1 Z1=^(9) LAST EDITED: `JUL 22, 1989` DESCRIPTION: `Enter the medication instructions for this prescription. Entries must be no longer than 300 total characters, (including spaces), with no one set of characters longer than 32 characters in length. You may enter any quick` code from your medication instruction file. Any entry you make here will become the sig in the APSP PREPACK LOG file entry when that particular drug is selected. EXECUTABLE HELP: `S DIC=51,ZD=D,DIC(0)="Q" D ^DIC S DIC=DIE,D=ZD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.04	INACTIVE DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 22, 1989` HELP-PROMPT: `If you enter a date in this field, then this selection will no longer be available for selection.` DESCRIPTION: If you enter a date here, this prepack drug will no longer be selectable. CROSS-REFERENCE: `9009031.1^AI^MUMPS` 1)= S ^APSPP(31.1,DA,"I")=X 2)= K ^APSPP(31.1,DA,"I")

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