Global: ^PRSP(453

FileMan FileNo	FileMan Filename	Package
453	APPLICANT	PAID

Package	Total	Routines
PAID	21	BOARD ELIGIBLE CERTIFICATION CLINICAL BACKGROUND CONTINUING EDUCATION PROGRAM CONTROL/SUBSTANCE CERT (Y/N) DATE REFERENCE RECEIVED EDUCATION LEVEL FSMB SCREENING REQUEST DATE HEALTH STATEMENT,COLLEAGUE HONORS/OFFICES HELD INTERNSHIP/RESIDENCY LABOR DISTRIBUTION LICENSES MANDATORY TRAINING PROFESSIONAL ORGANIZATION RECOMMENDATION SIGNATURES SCHOOL ATTENDED SPECIAL PROCEDURES SPECIALTY ^PRSP(453 SOCIETY

Package	Total	FileMan Files
Integrated Billing	1	INSURANCE COMPANY(#36)[747.21]
Interim Management Support	1	NATIONAL SERVICE(#730)[747.23]
Kernel	1	STATE(#5)[4, 747.06, 747.12, 747.18, 747.362, #453.05(1), #453.06(4), #453.074767(1), #453.11(1.3)]

Fields, Total: 81

Field #	Name	Loc	Type	Details
.01	APPLICANT NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X?1.UP1","1U.UP) X` LAST EDITED: `JUN 05, 1989` HELP-PROMPT: `Answer with APPLICANT NAME in format LAST,FIRST. Be sure to include the comma.` DESCRIPTION: `This is the applicant's name in the format LASTNAME,FIRSTNAME.` CROSS-REFERENCE: `453^B` `1)= S ^PRSP(453,"B",$E(X,1,30),DA)=""` `2)= K ^PRSP(453,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^453^747.34` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(453,.01,1,2,69.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^PRSP(453,D0,"QAR2")):^("QAR2"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="0" X ^DD(453,.01,1,2,1.4)` `1.4)= S DIH=$S($D(^PRSP(453,DIV(0),"QAR2")):^("QAR2"),1:""),DIV=X S $P(^("QAR2"),U,7)=DIV,DIH=453,DIG=747.34 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= Q` `69.2)= S Y(2)=$C(59)_$S($D(^DD(453,747.34,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PRSP(453,D0,"QAR2")):^("QAR2"),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59),1)` `CREATE CONDITION)= FSMB MSG. SENT=""` `CREATE VALUE)= "0"` `DELETE VALUE)= NO EFFECT` `FIELD)= FSMB M`
1	SOCIAL SECURITY NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?9N) X I $D(X) D SSN^QARVAL` OUTPUT TRANSFORM: `S Y=$E(Y,1,3)_"-"_$E(Y,4,5)_"-"_$E(Y,6,9)` LAST EDITED: `APR 02, 1991` HELP-PROMPT: `Enter the 9-digit SOCIAL SECURITY NUMBER (no dashes).` DESCRIPTION: `This is the applicant's Social Security Number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `453^SSN` `1)= S ^PRSP(453,"SSN",$E(X,1,30),DA)=""` `2)= K ^PRSP(453,"SSN",$E(X,1,30),DA)` `3)= Important validation data do not delete!` `Helps to identify an individual. Ensures uniqueness.`
1.5	DATE OF BIRTH	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 12, 1989` DESCRIPTION: `This is the applicant's date of birth.`
2	STREET ADDRESS	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the applicant's street address.`
3	CITY	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `MAY 22, 1989` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This is the applicant's city of residence.`
4	STATE	0;5	POINTER TO STATE FILE (#5)	STATE(#5) OUTPUT TRANSFORM: `S Y=$S(Y="":Y,$D(^DIC(5,Y,0))#2:$P(^(0),U,2),1:Y)` LAST EDITED: `JUN 23, 1989` DESCRIPTION: `This is the applicnant's state of residence.`
5	ZIP CODE	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X` LAST EDITED: `MAY 22, 1989` HELP-PROMPT: `Answer with 5-digit or 9-digit ZIP CODE. 9-digit ZIP CODES should be in the format NNNNN-NNNN.` DESCRIPTION: `This is the applicant's zip code in the format NNNNN or NNNNN-NNNN.`
6	HOME TELEPHONE NUMBER	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>13!($L(X)<13)!'(X?1"("3N1")"3N1"-"4N) X` LAST EDITED: `JUN 23, 1989` HELP-PROMPT: `Enter HOME TELEPHONE NUMBER (including Area Code) in format (XXX)XXX-XXXX. e.g. (312)123-4567` DESCRIPTION: `This is the applicant's home telephone number.`
7	DAYTIME TELEPHONE NUMBER	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<13)!'(X?1"("3N1")"3N1"-"4N.E) X` LAST EDITED: `SEP 30, 1991` HELP-PROMPT: `Use the format:(312)123-4567 X1234` DESCRIPTION: `Enter the daytime telephone number where you can contact the applicant. the number must be entered in the format:(NNN)NNN-NNNN XNNNN After space X enter the four digit extension number.`
8	CITIZENSHIP	0;9	SET	'1' FOR U.S. CITIZEN; '2' FOR NON-U.S. CITIZEN; DESCRIPTION: `This is the applicant's citizenship.`
747.01	APPOINTMENT DESIRED	QAR;1	SET	'1' FOR FULL-TIME; '2' FOR PART-TIME; '3' FOR CONSULTING; '4' FOR CONTRACT, ON STATION; '5' FOR RESIDENT; '6' FOR FEE BASIS,ON STATION; '7' FOR SPECIALTY FELLOW; '8' FOR WOC; '9' FOR SHARING, ON STATION; '10' FOR INTERMITTENT; '11' FOR OTHER; LAST EDITED: `JUL 31, 1991` HELP-PROMPT: `Enter the type of Appointment Desired for this practitioner.` DESCRIPTION: `Indicates the Appointment Desired for this practitioner.`
747.02	REFERENCE A	QAR;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 16, 1990` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Indicates the name of Reference A.`
747.03	A ADDRESS1	QAR;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 2-45 characters in length.` DESCRIPTION: `Indicates the Address of Reference A.`
747.04	A ADDRESS2	QAR;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 2-45 characters in length.` DESCRIPTION: `Indicates the Address of Reference A.`
747.05	A CITY	QAR;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `Indicates the City Reference A resides.`
747.06	A STATE	QAR;6	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAY 16, 1990` HELP-PROMPT: `Enter the State where Reference A resides.` DESCRIPTION: `Indicates the State where Reference A resides.`
747.07	A ZIP	QAR;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `MAY 16, 1990` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `Indicates the Zip Code for Reference A.`
747.08	REFERENCE B	QAR21;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Enter the name of Reference B.`
747.09	B ADDRESS1	QAR21;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 2-45 characters in length.` DESCRIPTION: `Indicate the Address of Reference B.`
747.1	B ADDRESS2	QAR21;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 2-45 characters in length.` DESCRIPTION: `Indicate the Address of Reference B.`
747.11	B CITY	QAR21;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Indicate the City where Reference B resides.`
747.12	B STATE	QAR21;5	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Enter the State where Reference B resides.` DESCRIPTION: `Enter the State where Reference B resides.`
747.13	B ZIP	QAR21;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `Enter the Zip Code for Reference B.`
747.14	REFERENCE C	QAR1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 16, 1990` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Indicates the name of Reference C.`
747.15	C ADDRESS1	QAR1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 2-45 characters in length.` DESCRIPTION: `Indicates the Address of Reference C.`
747.16	C ADDRESS2	QAR1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 2-45 characters in length.` DESCRIPTION: `Indicates the Address of Reference C.`
747.17	C CITY	QAR1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `Indicates the City where Reference C resides.`
747.18	C STATE	QAR1;5	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAY 16, 1990` HELP-PROMPT: `Enter the State where Reference C resides.` DESCRIPTION: `Indicates the State where Reference C resides.`
747.19	C ZIP	QAR1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `MAY 16, 1990` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `Indicates the Zip Code for Reference C.`
747.2	APP DATE	QAR1;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 16, 1990` HELP-PROMPT: `Enter the date of Appointment for this practitioner.` DESCRIPTION: `Contains the Appointment Date for this practitioner.`
747.21	INSURANCE CO	QAR1;8	POINTER TO INSURANCE COMPANY FILE (#36)	INSURANCE COMPANY(#36) LAST EDITED: `MAY 21, 1990` HELP-PROMPT: `Enter the Insurance Company that provides liability coverage for this practitioner.` DESCRIPTION: `Indicates the Insurance Company for our practitioner. NOTE: All CONTRACT Providers MUST Carry Malpractice Insurance`
747.22	SPECIALTY	QAR17;0	POINTER Multiple #453.17	453.17 DESCRIPTION: `Enter the Specialty associated with this practitioner.` SCREEN: `S DIC("S")="D ^QARCS"` EXPLANATION: `SCREEN SPECIAL PROCEDURES`
747.23	SERVICE	QAR2;1	POINTER TO NATIONAL SERVICE FILE (#730)	NATIONAL SERVICE(#730) LAST EDITED: `FEB 12, 1991` HELP-PROMPT: `Enter a National Service File name.` DESCRIPTION: `Indicates the Service for this practitioner.`
747.24	MANDATORY TRAINING	QAR3;0	Multiple #453.01	453.01 DESCRIPTION: `Indicates the Mandatory Training for this practitioner.`
747.25	TYPE OF APPOINTMENT	QAR2;2	SET	'1' FOR APPOINTMENT (INITIAL/15-DAY BREAK); '2' FOR REAPPRAISAL; LAST EDITED: `AUG 16, 1990` HELP-PROMPT: `Enter the appropriate Type of Appointment for this practitioner.` DESCRIPTION: `Indicates the Type of Appointment for this practitioner.`
747.26	APPLICATION DATE	QAR2;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 11, 1990` HELP-PROMPT: `Enter the date of our Application.` DESCRIPTION: `Contains the Date of the Application for our Applicant.`
747.27	CERTIFICATION	QAR4;0	POINTER Multiple #453.02	453.02 DESCRIPTION: `This field allows you to enter specialties in which the practitioner is Board Certified.`
747.28	PROFESSIONAL ORGANIZATION	QAR5;0	Multiple #453.03	453.03 DESCRIPTION: `Indicates the Professional Organization to which the practitioner belongs.`
747.29	HONORS/OFFICES HELD	QAR6;0	Multiple #453.04	453.04 DESCRIPTION: `Indicates Honors received and Offices held in medical and/or scientific societies.`
747.3	VAF 10-2850 COMPLETE (Y/N)	QAR2;4	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `DEC 11, 1991` HELP-PROMPT: `Enter whether the VAF 10-2850 has been completed by the practitioner.` DESCRIPTION: `Indicate whether the VAF 10-2850 has been completed by the practitioner.`
747.31	VAF 10-2850 SIGNED/COS (Y/N)	QAR2;5	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `APR 02, 1991` HELP-PROMPT: `Enter whether the Chief of Staff signed the VAF 10-2850.` DESCRIPTION: `Indicates whether the Chief of Staff signed the VAF 10-2850.`
747.32	VAF 10-2850 LICENSE DATA (Y/N)	QAR2;6	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `APR 02, 1991` HELP-PROMPT: `Enter whether all license information is listed on the VAF 10-2850.` DESCRIPTION: `Indicate whether the License data for the practitioner is accurate, current, and complete.`
747.33	BOARD ELIGIBLE	QAR16;0	POINTER Multiple #453.16	453.16 DESCRIPTION: `If this practitioner is eligible to complete specialty board exams, enter the area of specialty.`
747.34	FSMB MSG. SENT	QAR2;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 04, 1991` HELP-PROMPT: `Respond to whether the FSMB message has been sent.` DESCRIPTION: `Confirmation of the FSMB message being sent.` NOTES: `TRIGGERED by the APPLICANT NAME field of the APPLICANT File` CROSS-REFERENCE: `453^AFSMB` `1)= S ^PRSP(453,"AFSMB",$E(X,1,30),DA)=""` `2)= K ^PRSP(453,"AFSMB",$E(X,1,30),DA)`
747.35	LICENSES	QAR7;0	Multiple #453.05	453.05 DESCRIPTION: `Enter Your Professional Licenses.`
747.36	DEA #	QAR2;9	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?2U7N) X I $D(X) D DEA^QARVAL` LAST EDITED: `APR 02, 1991` HELP-PROMPT: `Answer must be 9 characters in length.` DESCRIPTION: `This field holds a number which uniquely identifies a practitioner.` EXECUTABLE HELP: `W:$X>5 ! W ?5,"Enter the DEA number as two uppercase letters followed by 7 digits",!,?5,"e.g. AA1234567. Each provider must have a unique number.",!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `453^DEA` `1)= S ^PRSP(453,"DEA",$E(X,1,30),DA)=""` `2)= K ^PRSP(453,"DEA",$E(X,1,30),DA)` `3)= Important validation data do not delete!`
747.361	DEA EXPIRATION DATE	QAR2;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 18, 1991` DESCRIPTION: `This field contain the expiration date of the DEA #.`
747.362	STATE ISSUING DEA NUMBER	QAR2;16	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `AUG 08, 1991` HELP-PROMPT: `Enter State issuing DEA Number.` DESCRIPTION: `This field contains the name of the state issuing the DEA #.`
747.363	DEA VERIFICATION	QAR2;17	SET	'1' FOR COPY OF CURRENT CERTIFICATE; '2' FOR WRITTEN VERIFICATION FROM DEA; '3' FOR OTHER METHOD USED TO VERIFY; LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Enter method used to Verify DEA registration.` DESCRIPTION: `Enter the method used to verify DEA registration.`
747.364	DEA CHALLENGES (Y/N)	QAR2;26	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `JAN 27, 1992` HELP-PROMPT: `Enter YES or NO` DESCRIPTION: `Has there been any DEA challenges?`
747.38	V.A. EMPLOYMENT START DATE	QAR2;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 16, 1990` HELP-PROMPT: `Enter the date employment started at the VA.` DESCRIPTION: `Contains the date employment started at the VA.`
747.39	SERVICE COMPUTATION DATE	QAR2;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 16, 1990` HELP-PROMPT: `Enter the Length of Service for this practitioner.` DESCRIPTION: `Indicates the Length of Service for this practitioner.`
747.4	END OF PROBATIONARY PERIOD	QAR2;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 10, 1990` HELP-PROMPT: `Enter the ending date for the Probationary Period.` DESCRIPTION: `Indicates the ending date for the Probationary Period.`
747.41	PRIMARY DEGREE	QAR2;14	POINTER *** TO AN UNDEFINED FILE (#747.7), STORED IN ^QA(747.7) *****	LAST EDITED: `AUG 16, 1990` HELP-PROMPT: `Enter the Primary Degree for this practitioner.` DESCRIPTION: `Indicate the Primary Degree used for this practitioner.`
747.42	SCHOOL ATTENDED	QAR8;0	Multiple #453.06	453.06 DESCRIPTION: `Indicates the School(s) attended.`
747.43	DATE REAPPRAISAL IS DUE	QAR2;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 10, 1990` HELP-PROMPT: `Enter the Date Reappraisal is due.` DESCRIPTION: `Indicates the Date Reappraisal is due.`
747.45	CONTINUING EDUCATION PROGRAM	QAR9;0	Multiple #453.07	453.07 DESCRIPTION: `Name of the Continuing Education Program you have attended.`
747.47	ALIEN VISA	QAR2;18	SET	'1' FOR YES; '2' FOR NO; '3' FOR N/A; LAST EDITED: `AUG 16, 1990` HELP-PROMPT: `Enter if the Alien Visa has/has not been sighted.` DESCRIPTION: `Contains whether the Chief of Staff sighted the Alien Visa for the Applicant who is not a citizen.`
747.48	FINAL STATUS OF FILE	QAR2;19	SET	'A' FOR ACTIVE; 'I' FOR INACTIVE; 'P' FOR PENDING; LAST EDITED: `AUG 16, 1990` HELP-PROMPT: `Enter the Status of the File for the Applicant.` DESCRIPTION: `Contains the Status of the File for the Applicant.`
747.49	FINAL STATUS COMMENTS	1;0	WORD-PROCESSING #453.08	DESCRIPTION: `Contains any comments on the Final Status of the File.` LAST EDITED: `AUG 16, 1990` HELP-PROMPT: `Enter any comments on the Final Status of the File.` DESCRIPTION: `Contains any comments on the Final Status of the File.`
747.5	CLINICAL BACKGROUND	QAR10;0	POINTER Multiple #453.09	453.09 DESCRIPTION: `Indicates the Clinical Background of this practitioner.`
747.51	ECFMG CERT. ISSUED	QAR2;20	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 27, 1992` HELP-PROMPT: `Enter the date the ECFMG certificate was issued.` DESCRIPTION: `This field refers To the Date the Education Commission for Foreign Medical Graduate issued certificate`
747.511	ECFMG VERIFICATION	QAR2;10	SET	'1' FOR LETTER FROM ECFMG; '2' FOR ROC WITH ECFMG; '3' FOR NO RESPONSE TO INQUIRY; LAST EDITED: `DEC 12, 1991` HELP-PROMPT: `Enter the method of verification.` DESCRIPTION: `Indicates the method used for verification.`
747.512	ECFMG CERTIFICATE #	QAR2;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7) X` OUTPUT TRANSFORM: `S QARECN=Y S Y=$E(Y,1,3)_"-"_$E(Y,4,6)_"-"_$E(Y,7)` LAST EDITED: `SEP 26, 1991` HELP-PROMPT: `Answer must be 7 characters in length.` DESCRIPTION: `Enter the seven digit ECFMG Certificate number without dashes.`
747.52	FSMB SCREENING REQUEST DATE	QAR11;0	DATE Multiple #453.1	453.1 DESCRIPTION: `This Field Refers To The Date The Request Was Sent To The Federation Of State Medical Boards For Screening.`
747.53	HEALTH STATEMENT,APPLICANT	QAR2;21	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 1990` HELP-PROMPT: `Enter the date the Health Statement is received from the practitioner.` DESCRIPTION: `This field contains the date the Health Statement is received from the practitioner.`
747.54	HEALTH STATEMENT,COLLEAGUE	QAR12;0	DATE Multiple #453.12	453.12 DESCRIPTION: `This field allows you to enter the date on which the statement of health Status was received from a colleague of the practitioner. Individuals from which this could be received include the Chief of Staff, Chief of` `Service, Training Program Director, or a peer.`
747.55	DATE REFERENCE RECEIVED	QAR13;0	SET Multiple #453.13	453.13 LAST EDITED: `APR 02, 1991` DESCRIPTION: `Contains the date the three (3) References are received.`
747.56	BYLAWS AGREEMENT	QAR2;22	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 1990` HELP-PROMPT: `Enter the date the Bylaws agreement was signed.` DESCRIPTION: `Enter the date of the signature of the practitioner indicating agreement to abide by the bylaws of the medical staff. This signature is contained on the form titled "Applicant Memo to Director".`
747.57	RECOMMENDATION SIGNATURES	QAR14;0	SET Multiple #453.14	453.14 DESCRIPTION: `Contains the signature date for the approving committee/official.`
747.58	LICENSURE CHALLENGES ?	QAR2;23	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `AUG 17, 1990` HELP-PROMPT: `Enter whether there has been a License Challenge to the practitioner.` DESCRIPTION: `Indicates if the practitioner has been issued a License Challenge.`
747.59	PERTINENT CLINICAL INFORMATION	QAR15;0	WORD-PROCESSING #453.15	DESCRIPTION: `Enter any Pertinent Clinical Information such as: other hospitals the practitioner practices, experience, and academic appointments.` LAST EDITED: `AUG 17, 1990` HELP-PROMPT: `Enter any Pertinent Clinical Information.` DESCRIPTION: `Enter any Pertinent Clinical Information such as: other hospitals the practitioner practices, experience, and academic appointments.`
747.6	CLIN PRIVILEGES CHALLENGES ?	QAR2;24	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `AUG 29, 1990` HELP-PROMPT: `Enter whether the practitioner's Clinical Privileges have been challenged.` DESCRIPTION: `Indicates whether the practitioner's Clinical Privileges have been challenged.`
747.61	NPDB QUERIED ?	QAR18;1	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `FEB 22, 1991` HELP-PROMPT: `Enter whether the NPDB has been Queried.` DESCRIPTION: `Indicates whether the National Practitioner Data Bank has been queried.`
747.62	DATE SENT TO NPDB ?	QAR18;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 22, 1991` HELP-PROMPT: `Enter the Date the NPDB was queried.` DESCRIPTION: `Indicates the date when the National Practitioner's Data Base was queried.`
747.621	DATE REC'D FROM NPDB	QAR18;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `Enter date response is received from NPDB` DESCRIPTION: `This field contains the date a response is received from NPDB.`
747.63	RESULTS OF QUERY ?	QAR18;3	SET	'1' FOR RESULTS UNREMARKABLE; '2' FOR RESULTS NEED FURTHER EXPLANATION (PLEASE REFER TO DOCUMENTATION IN FILE); '3' FOR NO RESPONSE TO INQUIRY; LAST EDITED: `DEC 12, 1991` HELP-PROMPT: `Enter the Results of the Query for this practitioner.` DESCRIPTION: `Indicates the results of the Query for this practitioner.`
747.64	PLACE OF BIRTH	QAR1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` LAST EDITED: `APR 02, 1991` HELP-PROMPT: `Answer must be 3-35 characters in length.` DESCRIPTION: `Indicates the Place of Birth for this practitioner.`
747.65	VA CAUTIONARY LIST CHECKED?	QAR18;4	SET	'1' FOR YES; '2' FOR NO; '3' FOR N/A; LAST EDITED: `APR 02, 1991` HELP-PROMPT: `Enter whether the VA Cautionary List has been checked.` DESCRIPTION: `Indicate whether the VA Cautionary List issued by VACO has been checked.`
747.66	INTERNSHIP/RESIDENCY	QAR19;0	Multiple #453.11	453.11 DESCRIPTION: `This field contains information relevant to the practitioner's Internship, Residency and Fellowship training.`
747.67	CONTROL/SUBSTANCE CERT (Y/N)	QAR20;0	SET Multiple #453.074767	453.074767 DESCRIPTION: `Does this Physican have a Controlled Substance Certificate ?`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4)
^DD(453	.01(XREF 2S), .01(XREF 2n69.2)
^DIC(5 - [#5]	4OT+1
^PRSP(453 - [#453]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2n69.2), 1(XREF 1S), 1(XREF 1K), 747.34(XREF 1S), 747.34(XREF 1K), 747.36(XREF 1S) , 747.36(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1.5+1, 747.2+1, 747.26+1, 747.361+1, 747.38+1, 747.39+1, 747.4+1, 747.43+1, 747.51+1, 747.53+1 , 747.56+1, 747.62+1, 747.621+1*
>> D0	.01(XREF 2S), .01(XREF 2n69.2)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), 1(XREF 1S), 1(XREF 1K), 747.34(XREF 1S), 747.34(XREF 1K), 747.36(XREF 1S), 747.36(XREF 1K)
>> DIG	.01(XREF 2n1.4)
>> DIH	.01(XREF 2n1.4)
>> DIU	.01(XREF 2S)
DIV	.01(XREF 2S), .01(XREF 2n1.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4)
>> QARECN	747.512OT+1*
U	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2n69.2), 4OT+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2n69.2), 1+1!, 1(XREF 1S), 1(XREF 1K), 1.5+1! , 2+1!, 3+1!, 5+1!, 6+1!, 7+1!, 747.02+1!, 747.03+1!, 747.04+1!, 747.05+1!, 747.07+1! , 747.08+1!, 747.09+1!, 747.1+1!, 747.11+1!, 747.13+1!, 747.14+1!, 747.15+1!, 747.16+1!, 747.17+1!, 747.19+1! , 747.2+1!, 747.26+1!, 747.34(XREF 1S), 747.34(XREF 1K), 747.36+1!, 747.36(XREF 1S), 747.36(XREF 1K), 747.361+1!, 747.38+1!, 747.39+1! , 747.4+1!, 747.43+1!, 747.51+1!, 747.512+1!, 747.53+1!, 747.56+1!, 747.62+1!, 747.621+1*!, 747.64+1!
Y	.01(XREF 2S), 1OT+1, 1.5+1, 4OT+1, 747.2+1, 747.26+1, 747.361+1, 747.38+1, 747.39+1, 747.4+1 , 747.43+1, 747.51+1, 747.512OT+1*, 747.53+1, 747.56+1, 747.62+1, 747.621+1
Y(0	.01(XREF 2S), 1OT+1, 4OT+1, 747.512OT+1*
Y(1	.01(XREF 2S), .01(XREF 2n69.2)
Y(2	.01(XREF 2n69.2)

Customize PDF page

Package: PAID

Global: ^PRSP(453

Information

Description

Directly Accessed By Routines, Total: 22

Pointer To FileMan Files, Total: 3

Fields, Total: 81

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	1.5+1, 747.2+1, 747.26+1, 747.361+1, 747.38+1, 747.39+1, 747.4+1, 747.43+1, 747.51+1, 747.53+1 , 747.56+1, 747.62+1, 747.621+1
^DICR	.01(XREF 2n1.4)
DEA^QARVAL	747.36+1
SSN^QARVAL	1+1

Name	Field # of Occurrence
^("QAR2"	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2n69.2)
^(0	.01(XREF 2n69.2), 4OT+1