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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AQAQ

Package: Quality Assurance

Global: ^AQAQ


Information

FileMan FileNo FileMan Filename Package
9002155 STAFF CREDENTIALS Quality Assurance

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Quality Assurance 6 AQAQCHK    AQAQCHK1    AQAQCONV    AQAQMIS    AQAQRE    AQAQRE1    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 2 USER(#3)[25, 27]    PROVIDER(#6)[.01]    
Quality Assurance 1 MEDICAL BOARDS(#9002156)[#9002155.013(1)]    

Fields, Total: 25

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PROVIDER FILE (#6)
************************REQUIRED FIELD************************
PROVIDER(#6)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  FEB 03, 1988
  • HELP-PROMPT:  Enter the name of the provider.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002155^B
    1)= S ^AQAQ("B",$E(X,1,30),DA)=""
    2)= K ^AQAQ("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002155^26
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQAQ(D0,11)):^(11),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(9002155,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^AQAQ(DIV(0),11)):^(11),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(11)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=26 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(^AQAQ(D0,11)):^(11),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(9002155,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^AQAQ(DIV(0),11)):^(11),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(11)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=26 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= TODAY
    FIELD)= DATE ESTABLISHED
1 STAFF CATEGORY 0;2 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'AF' FOR AFFILIATE;
  • 'C' FOR COURTESY;
  • 'P' FOR PROVISIONAL-ACTIVE;
  • 'PC' FOR PROVISIONAL-COURTESY;
  • 'T' FOR TEMPORARY;

  • LAST EDITED:  JAN 31, 1988
  • HELP-PROMPT:  Enter the current Staff Category for this provider.
2 CREDENTIALS APPLICATION DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date this providers credential application was received.
3 RESIDENCY CERTIFICATE ON FILE 0;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;
4 INTERNSHIP CERTIFICATE ON FILE 0;5 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;
5 PROFESSIONAL DEGREE ON FILE 0;6 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;
5.5 PROFESSIONAL DEGREE VERIFIED 0;14 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;
6 MEDICAL LICENSE 3;0 DATE Multiple #9002155.06 9002155.06
8 BYLAWS AGREEMENT SIGNED 0;9 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
9 INFORMATION RELEASE SIGNED 0;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;
10 CURRICULUM VITAE ON FILE 0;11 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;
11 DEA REGISTRATION ON FILE 0;12 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;
12 3 LETTERS OF REFERENCE ON FILE 0;13 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;
13 BOARD CERTIFICATION 1;0 DATE Multiple #9002155.013 9002155.013
16 CME SUMMARY UPDATED 4;0 DATE Multiple #9002155.016 9002155.016
17 ANNUAL UPDATES DUE 5;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the CREDENTIALS APPROVAL DATE field of the CREDENTIALS APPROVAL sub-field of the STAFF CREDENTIALS File
18 HEALTH STATUS 6;0 DATE Multiple #9002155.018 9002155.018
20 CREDENTIALS APPROVAL 9;0 DATE Multiple #9002155.01 9002155.01
21 RECREDENTIALING DUE DATE 8;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the CREDENTIALS APPROVAL DATE field of the CREDENTIALS APPROVAL sub-field of the STAFF CREDENTIALS File
22 PRIVILEGES 10;0 DATE Multiple #9002155.022 9002155.022
23 HEALTH STATUS STATEMENT 2;1 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 31, 1988
24 DATE LAST EDIT 7;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 03, 1988
  • CROSS-REFERENCE:  ^^TRIGGER^9002155^25
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQAQ(D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002155,24,1,1,1.4)
    1.4)= S DIH=$S($D(^AQAQ(DIV(0),11)):^(11),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(11)=DIV_$S(%]"":U_%,1:""),DIH=9002155,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(^AQAQ(D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002155,24,1,1,2.4)
    2.4)= S DIH=$S($D(^AQAQ(DIV(0),11)):^(11),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(11)=DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=25 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= USER L
25 USER LAST EDIT 11;1 POINTER TO USER FILE (#3) USER(#3)

  • LAST EDITED:  FEB 03, 1988
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DATE LAST EDIT field of the STAFF CREDENTIALS File
26 DATE ESTABLISHED 11;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 03, 1988
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the NAME field of the STAFF CREDENTIALS File
  • CROSS-REFERENCE:  ^^TRIGGER^9002155^27
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQAQ(D0,11)):^(11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002155,26,1,1,1.4)
    1.4)= S DIH=$S($D(^AQAQ(DIV(0),11)):^(11),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(11)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=27 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(^AQAQ(D0,11)):^(11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002155,26,1,1,2.4)
    2.4)= S DIH=$S($D(^AQAQ(DIV(0),11)):^(11),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(11)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=27 D ^DICR:$N(^DD(DIH,DIG,
    1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= ESTABLISHING USER
27 ESTABLISHING USER 11;3 POINTER TO USER FILE (#3) USER(#3)

  • LAST EDITED:  FEB 03, 1988
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DATE ESTABLISHED field of the STAFF CREDENTIALS File
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All