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 |  All
Print Page as PDF
Global: ^AQAQC

Package: Quality Assurance

Global: ^AQAQC


Information

FileMan FileNo FileMan Filename Package
9002165 NEW CREDENTIALS Quality Assurance

Description

Directly Accessed By Routines, Total: 10

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

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Quality Assurance 2 AQAQCONV    AQAQDEL    

Pointed To By FileMan Files, Total: 2

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

Pointer To FileMan Files, Total: 2

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
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All