Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9002165.01

Package: Quality Assurance

NEW CREDENTIALS(#9002165)-->9002165.01

Sub-Field: 9002165.01


Information

Parent File Name Number Package
NEW CREDENTIALS(#9002165) REAPPOINTMENT 9002165.01 Quality Assurance

Details

Field # Name Loc Type Details
.01 APPLICATION DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 03, 1991
  • CROSS-REFERENCE:  9002165.01^B
    1)= S ^AQAQC(DA(1),"R","B",$E(X,1,30),DA)=""
    2)= K ^AQAQC(DA(1),"R","B",$E(X,1,30),DA)
.02 DATE REAPPOINTMENT GRANTED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 03, 1991
.03 CME HOURS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 08, 1991
  • HELP-PROMPT:  Enter the number of acquired CME hours that apply for this reappointment.
.04 MEETS CME REQUIREMENT? 0;4 SET
  • 'Y' FOR YES;
  • 'N' FOR *NO*;
  • 'NA' FOR N/A;

  • LAST EDITED:  JUN 13, 1991
.05 REAPPOINTMENT DUE DATE COMPUTED DATE

  • MUMPS CODE:  S Y(9002165.01,.05,1)=$S($D(^AQAQC(D0,"R",D1,0)):^(0),1:"") S X=$P(Y(9002165.01,.05,1),U,2),X1=X,X2=+730,X="" D C^%DTC:X1
  • ALGORITHM:  DATE REAPPOINTMENT GRANTED+730
  • LAST EDITED:  JUN 19, 1991
.06 REAPPOINTMENT OVERDUE COMPUTED

  • MUMPS CODE:  X ^DD(9002165.01,.06,9.3) S X=$S(Y(9002165.01,.06,3):Y(9002165.01,.06,4),Y(9002165.01,.06,5):X)
    9.2 = X $P(^DD(9002165.01,.05,0),U,5,99) S Y(9002165.01,.06,1)=X S X=Y(9002165.01,.06,1),Y(9002165.01,.06,2)=X,X=DT S Y=X,X=Y(9002165.01,.06,2),X=X S X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X
    9.3 = X ^DD(9002165.01,.06,9.2) S X=X>0,Y(9002165.01,.06,3)=X S X="",Y(9002165.01,.06,4)=X S X=1,Y(9002165.01,.06,5)=X S X="**OVERDUE**"
  • ALGORITHM:  $S(REAPPOINTMENT DUE DATE-TODAY>0:"",1:"**OVERDUE**")
  • LAST EDITED:  JUN 14, 1991
.07 EMERGENCY PROCEDURE CERTIFIED? 0;7 SET
  • 'Y' FOR YES;
  • 'N' FOR *NO*;
  • 'NA' FOR N/A;

  • LAST EDITED:  JAN 30, 1992
  • EXECUTABLE HELP:  D EMER^AQAQUTIL
.11 REVIEW OF MED STAFF FUNCTIONS 1;1 SET
  • 'Y' FOR YES;
  • 'N' FOR *NO*;
  • 'NA' FOR N/A;

  • LAST EDITED:  JUN 13, 1991
  • HELP-PROMPT:  Has the review of mandated medical staff functions been completed?
  • EXECUTABLE HELP:  D REVIEW^AQAQUTIL
.12 PRIVILEGES GRANTED 1;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 03, 1991
Info |  Details |  All