Global: ^AQAQC

FileMan FileNo	FileMan Filename	Package
9002165	NEW CREDENTIALS	Quality Assurance

Package	Total	Routines
Quality Assurance	10	AQAQCONV AQAQDCC AQAQDUE AQAQEDT AQAQEDTS AQAQMCC AQAQMCP AQAQPR21 AQAQPR31 AQAQPR41

Package	Total	Routines
Quality Assurance	2	AQAQCONV AQAQDEL

Package	Total	FileMan Files
Quality Assurance	2	MED BOARD CERTIFICATION(#9002161.1)[.02] MEDICAL LICENSURE(#9002161.2)[.02]

Package	Total	FileMan Files
Kernel	2	PROVIDER(#6)[.01] NEW PERSON(#200)[.22, .24]

Fields, Total: 39

Field #	Name	Loc	Type	Details
.01	NAME OF PROVIDER	0;1	POINTER TO PROVIDER FILE (#6)	**********************REQUIRED FIELD********************** PROVIDER(#6) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `JAN 30, 1992` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002165^B` 1)= S ^AQAQC("B",$E(X,1,30),DA)="" 2)= K ^AQAQC("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002165^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQAQC(D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT X ^DD(9002165,.01,1,2,1.4) 1.4)= S DIH=$S($D(^AQAQC(DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=9002165,DIG=.21 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= NO EFFECT FIELD)= DATE ESTABLISHED This trigger sets the date the entry was established. The variable DIU(0) is checked to prevent this trigger from being fired when doing a RE-INDEX of the file.
.02	STAFF CATEGORY	0;2	SET	'A' FOR ACTIVE; 'AF' FOR AFFILIATE/ASSOCIATE; 'CL' FOR CONSULTANT; 'CR' FOR COURTESY; 'P' FOR PROVISIONAL-ACTIVE; 'PA' FOR PROVISIONAL-AFFILIATE; 'PC' FOR PROVISIONAL-CONSULTANT; 'PR' FOR PROVISIONAL-COURTESY; 'T' FOR TEMPORARY; LAST EDITED: `APR 21, 1992`
.03	ORIGINAL APPLICATION DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 08, 1991`
.04	ORIGINAL CRED APPROVAL DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 15, 1992` HELP-PROMPT: `Enter date the original application was approved by the Governing Body.` CROSS-REFERENCE: `^^TRIGGER^9002165^.25` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQAQC(D0,2)):^(2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002165,.04,1,1,1.1) X ^DD(9002165,.04,1,1,1.4) 1.1)= S X=DIV S X=DIV,X1=X,X2=+730,X="" D C^%DTC:X1 1.4)= S DIH=$S($D(^AQAQC(DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,5)=DIV,DIH=9002165,DIG=.25 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQAQC(D0,2)):^(2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$S($D(^AQAQC(DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,5)=DIV,DIH=9002165,DIG=.25 D ^DICR:$N(^DD(DIH,DIG,1 ,0))>0 CREATE VALUE)= ORIGINAL CRED. APPROVAL DATE+730 DELETE VALUE)= @ FIELD)= FIRST REAPPOINTMENT DUE
.045	APPLICATION PENDING		COMPUTED	MUMPS CODE: `X ^DD(9002165,.045,9.2) S Y(9002165,.045,3)=X S X=1,Y(9002165,.045,4)=X S X="",X=$S(Y(9002165,.045,2):Y(9002165,.045,3),Y(9002165,.045,4):X)` 9.2 = S Y(9002165,.045,1)=$S($D(^AQAQC(D0,0)):^(0),1:"") S X=$P(Y(9002165,.045,1),U,4)="",Y(9002165,.045,2)=X S X="INITIAL APPLICATION PENDING" ALGORITHM: `$S(ORIGINAL CRED APPROVAL DATE="":"INITIAL APPLICATION PENDING",1:"")`
.05	PROFESSIONAL DEGREE ON FILE?	0;5	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JAN 30, 1992`
.06	PROFESSIONAL DEGREE VERIFIED?	0;6	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JAN 30, 1992`
.07	INTERNSHIP CERT. ON FILE?	0;7	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JUN 13, 1991`
.08	INTERNSHIP VERIFIED?	0;8	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `APR 06, 1992`
.09	2ND RESIDENCY/FELLOWSHIP CERT.	0;9	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JUN 13, 1991`
.095	2ND RESIDENCY/FELLOWSHIP VERIF	0;10	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JAN 30, 1992`
.11	RESIDENCY CERTIFICATE ON FILE?	0;11	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JUN 13, 1991`
.12	RESIDENCY VERIFIED?	0;12	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JAN 30, 1992`
.13	BYLAWS AGREEMENT SIGNED?	0;13	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 13, 1991`
.14	INFORMATION RELEASE SIGNED?	0;14	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 13, 1991`
.15	CURRICULUM VITAE ON FILE?	0;15	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JAN 30, 1992`
.17	NO. LETTERS OF REFERENCE	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 13, 1991` HELP-PROMPT: `Enter the number of LETTERS OF REFERENCE on file for this provider.`
.18	NUMBER OF LETTERS ACCEPTABLE?	0;18	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JUN 13, 1991` HELP-PROMPT: `Are the NO. of LETTERS OF REFERENCE acceptable for this application?`
.19	HEALTH STATUS ON FILE?	0;19	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 13, 1991`
.21	DATE ESTABLISHED	2;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 30, 1992` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the NAME OF PROVIDER field of the NEW CREDENTIALS File` CROSS-REFERENCE: `^^TRIGGER^9002165^.22` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQAQC(D0,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(9002165,.21,1,1,1.4) 1.4)= S DIH=$S($D(^AQAQC(DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,2)=DIV,DIH=9002165,DIG=.22 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQAQC(D0,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(9002165,.21,1,1,2.4) 2.4)= S DIH=$S($D(^AQAQC(DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,2)=DIV,DIH=9002165,DIG=.22 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= I '$D(DIU(0)) S X=DUZ DELETE VALUE)= I '$D(DIU(0)) S X=DUZ FIELD)= ESTABLISHING USER This trigger sets the user establishing the entry. The variable DIU(0) is checked to prevent this trigeer from being fired when running RE-INDEX.
.22	ESTABLISHING USER	2;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 08, 1991` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DATE ESTABLISHED field of the NEW CREDENTIALS File`
.23	DATE OF LAST UPDATE	2;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 08, 1991`
.24	LAST UPDATE USER	2;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 08, 1991`
.25	FIRST REAPPOINTMENT DUE	2;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 19, 1991` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the ORIGINAL CRED APPROVAL DATE field of the NEW CREDENTIALS File`
.255	FIRST REAPPOINTMENT OVERDUE		COMPUTED	MUMPS CODE: `X ^DD(9002165,.255,9.5) S X=$S(Y(9002165,.255,2):Y(9002165,.255,3),Y(9002165,.255,5):Y(9002165,.255,6),Y(9002165,.255,9):Y(9002165,.255,10),Y(9002165,.255,11):X)` 9.2 = X $P(^DD(9002165,.26,0),U,5,99) S Y(9002165,.255,1)=X S Y(9002165,.255,4)=$S($D(^AQAQC(D0,0)):^(0),1:""),Y(9002165,.255,7)=$S($D(^(2)):^(2),1:"") S X=Y(9002165,.255,1)'="" 9.3 = X ^DD(9002165,.255,9.2) S Y(9002165,.255,2)=X S X="",Y(9002165,.255,3)=X S X=$P(Y(9002165,.255,4),U,4)="",Y(9002165,.255,5)=X S X="",Y(9002165,.255,6)=X 9.4 = X ^DD(9002165,.255,9.3) S X=$P(Y(9002165,.255,7),U,5),Y(9002165,.255,8)=X,X=DT S Y=X,X=Y(9002165,.255,8),X=X S X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X>0 9.5 = X ^DD(9002165,.255,9.4) S Y(9002165,.255,9)=X S X="",Y(9002165,.255,10)=X S X=1,Y(9002165,.255,11)=X S X="1ST REAPPOINTMENT OVERDUE" ALGORITHM: `$S(NEXT REAPPOINTMENT DUE'="":"",ORIGINAL CRED APPROVAL DATE="":"",FIRST REAPPOINTMENT DUE-TODAY>0:"",1:"1ST REAPPOINTMENT OVERDUE")` LAST EDITED: `JAN 29, 1992`
.26	NEXT REAPPOINTMENT DUE		COMPUTED DATE	MUMPS CODE: `X ^DD(9002165,.26,9.3) S X=Y(9002165,.26,102) S D0=Y(9002165,.26,80) S D1=Y(9002165,.26,81)` 9.2 = S Y(9002165,.26,80)=$S($D(D0):D0,1:""),Y(9002165,.26,81)=$S($D(D1):D1,1:""),Y(9002165,.26,102)="" 9.3 = X ^DD(9002165,.26,9.2) X "F D1=0:0 S D1=$N(^AQAQC(D0,""R"",D1)) Q:D1'>0 X $P(^DD(9002165.01,.05,0),U,5,99) S Y=X S:Y'?."" ""&(Y(9002165,.26,102)'>Y!'$L(Y(9002165,.26,102))) Y(9002165,.26,102)=Y" S D(1)=D1 ALGORITHM: `MAXIMUM(REAPPOINTMENT:REAPPOINTMENT DUE DATE)`
.27	REAPPOINTMENT OVERDUE		COMPUTED	MUMPS CODE: `X ^DD(9002165,.27,9.4) S X=$S(Y(9002165,.27,2):Y(9002165,.27,3),Y(9002165,.27,5):Y(9002165,.27,6),Y(9002165,.27,7):X)` 9.2 = X $P(^DD(9002165,.26,0),U,5,99) S Y(9002165,.27,1)=X S X=Y(9002165,.27,1)="",Y(9002165,.27,2)=X S X="",Y(9002165,.27,3)=X S X=Y(9002165,.27,1) 9.3 = X ^DD(9002165,.27,9.2) S Y(9002165,.27,4)=X,X=DT S Y=X,X=Y(9002165,.27,4),X=X S X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X>0,Y(9002165,.27,5)=X S X="" 9.4 = X ^DD(9002165,.27,9.3) S Y(9002165,.27,6)=X S X=1,Y(9002165,.27,7)=X S X="OVERDUE" ALGORITHM: `$S(NEXT REAPPOINTMENT DUE="":"",NEXT REAPPOINTMENT DUE-TODAY>0:"",1:"OVERDUE")`
.28	REAPPOINTMENT DUE DATE		COMPUTED DATE	MUMPS CODE: `X ^DD(9002165,.28,9.2) S X=Y(9002165,.28,3),X1=Y(9002165,.28,2) S:X1>X X=X1` 9.2 = X $P(^DD(9002165,.26,0),U,5,99) S Y(9002165,.28,3)=X S Y(9002165,.28,1)=$S($D(^AQAQC(D0,2)):^(2),1:"") S X=$P(Y(9002165,.28,1),U,5),Y(9002165,.28,2)=X ALGORITHM: `MAX(#.25,#.26)`
.29	PENDING REAPPOINTMENT		COMPUTED	MUMPS CODE: `X ^DD(9002165,.29,9.3) S X=$S(Y(9002165,.29,4):Y(9002165,.29,5),Y(9002165,.29,6):X)` 9.2 = X $P(^DD(9002165,.28,0),U,5,99) S Y(9002165,.29,1)=X S X=Y(9002165,.29,1),Y(9002165,.29,2)=X,Y(9002165,.29,3)=X,X=DT S X=X,X1=X,X2=+30,X="" D C^%DTC:X1 S X=X 9.3 = X ^DD(9002165,.29,9.2) S Y=X,X=Y(9002165,.29,2),X=X>Y,Y(9002165,.29,4)=X S X="",Y(9002165,.29,5)=X S X=1,Y(9002165,.29,6)=X S X="Y" ALGORITHM: `$S(REAPPOINTMENT DUE DATE>(TODAY+30):"",1:"Y")`
.31	NPDB INQUIRY	2;6	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR N/A; LAST EDITED: `JAN 30, 1992` HELP-PROMPT: `Was inquiry made to the National Practitioner Data Bank?`
.32	NPDB DATE OF INQUIRY	2;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 06, 1991` HELP-PROMPT: `Enter date inquiry was sent to National Practitioner Data Bank.`
.33	NPDB REPORT PROCESS DATE	2;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 06, 1991` HELP-PROMPT: `Enter "Process Date" on NPDB form when report is received.`
.34	PROVISIONAL APPT EXPIRES	2;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 06, 1992` HELP-PROMPT: `If staff category is PROVISIONAL, enter expiration date for probationary period.`
.35	TEMPORARY APPT EXPIRES	2;10	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 06, 1992` HELP-PROMPT: `If staff category is TEMPORARY, enter date appointment ends.`
.36	EXPIRATION DATE		COMPUTED	MUMPS CODE: `X ^DD(9002165,.36,9.6) S X=$S(Y(9002165,.36,3):Y(9002165,.36,5),Y(9002165,.36,7):Y(9002165,.36,8),Y(9002165,.36,9):X)` 9.2 = S Y(9002165,.36,2)=$C(59)_$S($D(^DD(9002165,.02,0)):$P(^(0),U,3),1:""),Y(9002165,.36,6)=$C(59)_$S($D(^DD(9002165,.02,0)):$P(^(0),U,3),1:"") 9.3 = X ^DD(9002165,.36,9.2) S Y(9002165,.36,1)=$S($D(^AQAQC(D0,0)):^(0),1:""),Y(9002165,.36,4)=$S($D(^(2)):^(2),1:"") 9.4 = X ^DD(9002165,.36,9.3) S X=$P($P(Y(9002165,.36,2),$C(59)_$P(Y(9002165,.36,1),U,2)_":",2),$C(59),1)="TEMPORARY",Y(9002165,.36,3)=X S X=$P(Y(9002165,.36,4),U,10) 9.5 = X ^DD(9002165,.36,9.4) S Y(9002165,.36,5)=X S X=$P($P(Y(9002165,.36,6),$C(59)_$P(Y(9002165,.36,1),U,2)_":",2),$C(59),1)["PROVISIONAL",Y(9002165,.36,7)=X 9.6 = X ^DD(9002165,.36,9.5) S X=$P(Y(9002165,.36,4),U,9),Y(9002165,.36,8)=X S X=1,Y(9002165,.36,9)=X S X="" ALGORITHM: `$S(STAFF CATEGORY="TEMPORARY":#.35,STAFF CATEGORY["PROVISIONAL":#.34,1:"")`
.99	LOOKUP		COMPUTED	MUMPS CODE: S X=$S($D(AQALOOK):$S(AQALOOK=+AQALOOK:"`"_AQALOOK,1:AQALOOK),1:"") ALGORITHM: S X=$S($D(AQALOOK):$S(AQALOOK=+AQALOOK:"`"_AQALOOK,1:AQALOOK),1:"")
1	REAPPOINTMENT	R;0	DATE Multiple #9002165.01	9002165.01 LAST EDITED: `JUN 17, 1991`
3	HEALTH STATUS CONFIRM. DATE	H;0	DATE Multiple #9002165.03	9002165.03 LAST EDITED: `JUN 13, 1991`
4	DELINQUENT CHART	DLQ;0	DATE Multiple #9002165.04	9002165.04 LAST EDITED: `SEP 04, 1991`

Customize PDF page

Package: Quality Assurance

Global: ^AQAQC

Information

Description

Directly Accessed By Routines, Total: 10

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 39