Global: ^APSPDUE(32.2

FileMan FileNo	FileMan Filename	Package
9009032.2	APSP DUE CRITERIA	IHS Changes To Pharmacy

Directly Accessed By Routines, Total: 7

Package	Total	Routines
IHS Changes To Pharmacy	7	APSPDRP1 APSPDRP2 APSPDUEN APSPLDEL APSPT021 APSPT031 APSPT11

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
IHS Changes To Pharmacy	3	APSPLDEL APSPT021 APSPT031

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
IHS Changes To Pharmacy	2	APSP DUE REVIEW(#9009032)[#9009032.011(.01)] APSP DUE STUDY(#9009032.1)[#9009032.111(.01)]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
IHS Changes To Pharmacy	1	APSP DUE STUDY(#9009032.1)[.02]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CRITERIA NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1)!'(X?1N.N) X` LAST EDITED: `JUN 26, 1990` HELP-PROMPT: `You may enter a number between 1 and 99.` DELETE TEST: `1,0)= I $D(^APSPDUE(32,"D",$P(^APSPDUE(32.2,D0,0),U,2)))` 2,0)= I '$D(APSPDUEC) LAYGO TEST: `.01,0)= I $D(APSPDUEC),'$D(^APSPDUE(32,"D",D0))` CROSS-REFERENCE: `9009032.2^B` 1)= S ^APSPDUE(32.2,"B",$E(X,1,30),DA)="" 2)= K ^APSPDUE(32.2,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9009032.2^AZ9^MUMPS` 1)= S:$D(APSPDUEC) DIC("DR")="" 2)= Q
.02	STUDY NAME	0;2	POINTER TO APSP DUE STUDY FILE (#9009032.1)	**********************REQUIRED FIELD********************** APSP DUE STUDY(#9009032.1) LAST EDITED: `JUN 11, 1990` CROSS-REFERENCE: `9009032.2^AC` 1)= S ^APSPDUE(32.2,"AC",$E(X,1,30),DA)="" 2)= K ^APSPDUE(32.2,"AC",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9009032.111^.01` 1)= I $D(APSPDUEC),'$D(DIU(0)) S APSPDA=DA NEW D0,DA S DA=APSPDA K APSPDA,DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9009032.2,.02,1,2,1.2) X ^DD(9009032.2,.02,1,2,1.1) X ^DD(9009032.2,.02,1,2,1.4) 1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0) 1.2)= X ^DD(9009032.2,.02,1,2,89.5) S Y(202)=$S($D(^APSPDUE(32.1,D0,11,D1,0)):^(0),1:"") S X=$S('$D(^APSPDUE(32.2,+$P(Y(202),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(101,0) S DIU=X K Y 1.4)= S DIH=$S($D(^APSPDUE(32.1,DIV(0),11,DIV(1),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=9009032.111,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= I $D(APSPDUEC),'$D(DIU(0)) S APSPDA=DA NEW D0,DA S DA=APSPDA K APSPDA,DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9009032.2,.02,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK="^APSPDUE(32.1,DIV(0),11,",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DI K(0) K DIK 2.2)= X ^DD(9009032.2,.02,1,2,99.4) S Y(202)=$S($D(^APSPDUE(32.1,D0,11,D1,0)):^(0),1:"") S X=$S('$D(^APSPDUE(32.2,+$P(Y(202),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(101,0) S DIU=X K Y 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^APSPDUE(32.2,D0,0)):^(0),1:"") S X="`",Y(1)=X S X=$P(Y(2),U,2),X=X S Y=X,X=Y(1),X=X S X=X_Y,X=X S X=X 89.3)= X ^DD(9009032.2,.02,1,2,89.2) K DIC S DIC="^APSPDUE(32.1,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S I(100,0)=$S($D(D0):D0,1:""),I(101,0)=$S($D(D1):D1,1:"") S X="`" 89.4)= X ^DD(9009032.2,.02,1,2,89.3) S Y(101)=X S X=I(0,0),X=X S Y=X,X=Y(101),X=X S X=X_Y 89.5)= X ^DD(9009032.2,.02,1,2,89.4) K DIC S Y=-1,DIC="^APSPDUE(32.1,D0,11,",DIC(0)="NMFL",DIC("P")="9009032.111PA",X=""""_X_"""",DIU(1)=$S($D(DA(1)):DA(1),1:0),DA(1)=D0 D ^DIC:D0>0 S (D,D1,DIV(1))=+Y,DA(1)=DIU(1) 99.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^APSPDUE(32.2,D0,0)):^(0),1:"") S X="`",Y(1)=X S X=$P(Y(2),U,2),X=X S Y=X,X=Y(1),X=X S X=X_Y 99.3)= X ^DD(9009032.2,.02,1,2,99.2) K DIC S DIC="^APSPDUE(32.1,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S I(100,0)=$S($D(D0):D0,1:""),I(101,0)=$S($D(D1):D1,1:"") S X="`" 99.4)= X ^DD(9009032.2,.02,1,2,99.3) S Y(101)=X S X=I(0,0),X=X S Y=X,X=Y(101),X=X S X=X_Y K DIC S Y=-1,DIC="^APSPDUE(32.1,D0,11,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1,DIV(1))=+Y CREATE VALUE)= NUMBER DELETE VALUE)= @ DIC)= LOOKUP DIK)= DELETE FIELD)= "`"_INTERNAL(STUDY NAME):APSP DUE STUDY:"`"_INTERNAL(CRITERIA NUMBER):CRITERIA:CRITERIA
1100	CRITERIA NARRATIVE	11;0	WORD-PROCESSING #9009032.211

.01

CRITERIA NUMBER

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1)!'(X?1N.N) X
LAST EDITED: JUN 26, 1990
HELP-PROMPT: You may enter a number between 1 and 99.
DELETE TEST: 1,0)= I $D(^APSPDUE(32,"D",$P(^APSPDUE(32.2,D0,0),U,2)))
```
2,0)= I '$D(APSPDUEC)
```
LAYGO TEST: .01,0)= I $D(APSPDUEC),'$D(^APSPDUE(32,"D",D0))

CROSS-REFERENCE: 9009032.2^B

1)= S ^APSPDUE(32.2,"B",$E(X,1,30),DA)=""

2)= K ^APSPDUE(32.2,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 9009032.2^AZ9^MUMPS
```
1)= S:$D(APSPDUEC) DIC("DR")=""
```
```
2)= Q
```

.02

STUDY NAME

0;2

POINTER TO APSP DUE STUDY FILE (#9009032.1)

************************REQUIRED FIELD************************

APSP DUE STUDY(#9009032.1)

LAST EDITED: JUN 11, 1990

CROSS-REFERENCE: 9009032.2^AC

1)= S ^APSPDUE(32.2,"AC",$E(X,1,30),DA)=""

2)= K ^APSPDUE(32.2,"AC",$E(X,1,30),DA)

CROSS-REFERENCE: ^^TRIGGER^9009032.111^.01

1)= I $D(APSPDUEC),'$D(DIU(0)) S APSPDA=DA NEW D0,DA S DA=APSPDA K APSPDA,DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9009032.2,.02,1,2,1.2) X ^DD(9009032.2,.02,1,2,1.1) X ^DD(9009032.2,.02,1,2,1.4)

1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0)

1.2)= X ^DD(9009032.2,.02,1,2,89.5) S Y(202)=$S($D(^APSPDUE(32.1,D0,11,D1,0)):^(0),1:"") S X=$S('$D(^APSPDUE(32.2,+$P(Y(202),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(101,0) S DIU=X K Y

1.4)= S DIH=$S($D(^APSPDUE(32.1,DIV(0),11,DIV(1),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=9009032.111,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= I $D(APSPDUEC),'$D(DIU(0)) S APSPDA=DA NEW D0,DA S DA=APSPDA K APSPDA,DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9009032.2,.02,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK="^APSPDUE(32.1,DIV(0),11,",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DI

K(0) K DIK

2.2)= X ^DD(9009032.2,.02,1,2,99.4) S Y(202)=$S($D(^APSPDUE(32.1,D0,11,D1,0)):^(0),1:"") S X=$S('$D(^APSPDUE(32.2,+$P(Y(202),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(101,0) S DIU=X K Y

89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^APSPDUE(32.2,D0,0)):^(0),1:"") S X="`",Y(1)=X S X=$P(Y(2),U,2),X=X S Y=X,X=Y(1),X=X S X=X_Y,X=X S X=X

89.3)= X ^DD(9009032.2,.02,1,2,89.2) K DIC S DIC="^APSPDUE(32.1,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S I(100,0)=$S($D(D0):D0,1:""),I(101,0)=$S($D(D1):D1,1:"") S X="`"

89.4)= X ^DD(9009032.2,.02,1,2,89.3) S Y(101)=X S X=I(0,0),X=X S Y=X,X=Y(101),X=X S X=X_Y

89.5)= X ^DD(9009032.2,.02,1,2,89.4) K DIC S Y=-1,DIC="^APSPDUE(32.1,D0,11,",DIC(0)="NMFL",DIC("P")="9009032.111PA",X=""""_X_"""",DIU(1)=$S($D(DA(1)):DA(1),1:0),DA(1)=D0 D ^DIC:D0>0 S (D,D1,DIV(1))=+Y,DA(1)=DIU(1)

99.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^APSPDUE(32.2,D0,0)):^(0),1:"") S X="`",Y(1)=X S X=$P(Y(2),U,2),X=X S Y=X,X=Y(1),X=X S X=X_Y

99.3)= X ^DD(9009032.2,.02,1,2,99.2) K DIC S DIC="^APSPDUE(32.1,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S I(100,0)=$S($D(D0):D0,1:""),I(101,0)=$S($D(D1):D1,1:"") S X="`"

99.4)= X ^DD(9009032.2,.02,1,2,99.3) S Y(101)=X S X=I(0,0),X=X S Y=X,X=Y(101),X=X S X=X_Y K DIC S Y=-1,DIC="^APSPDUE(32.1,D0,11,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1,DIV(1))=+Y

CREATE VALUE)= NUMBER

DELETE VALUE)= @

DIC)= LOOKUP

DIK)= DELETE

FIELD)= "`"_INTERNAL(STUDY NAME):APSP DUE STUDY:"`"_INTERNAL(CRITERIA NUMBER):CRITERIA:CRITERIA

1100 CRITERIA NARRATIVE 11;0 WORD-PROCESSING #9009032.211

Customize PDF page

Package: IHS Changes To Pharmacy