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: 9002161.21

Package: Quality Assurance

MEDICAL LICENSURE(#9002161.2)-->9002161.21

Sub-Field: 9002161.21


Information

Parent File Name Number Package
MEDICAL LICENSURE(#9002161.2) MED LICENSE EXPIRATION DATE 9002161.21 Quality Assurance

Details

Field # Name Loc Type Details
.01 MED LICENSE EXPIRATION DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 26, 1991
  • CROSS-REFERENCE:  9002161.21^B
    1)= S ^AQAQML(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AQAQML(DA(1),1,"B",$E(X,1,30),DA)
.02 DATE MEDICAL LICENSE VERIFIED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 26, 1991
  • EXECUTABLE HELP:  D MLHELP^AQAQNQ
.03 LICENSE OVERDUE COMPUTED

  • MUMPS CODE:  X ^DD(9002161.21,.03,9.3) S X=$S(Y(9002161.21,.03,3):Y(9002161.21,.03,4),Y(9002161.21,.03,5):X)
    9.2 = S Y(9002161.21,.03,1)=$S($D(^AQAQML(D0,1,D1,0)):^(0),1:"") S X=$P(Y(9002161.21,.03,1),U,1),Y(9002161.21,.03,2)=X,X=DT S Y=X,X=Y(9002161.21,.03,2),X=X S X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X
    9.3 = X ^DD(9002161.21,.03,9.2) S X=X>0,Y(9002161.21,.03,3)=X S X="OK",Y(9002161.21,.03,4)=X S X=1,Y(9002161.21,.03,5)=X S X="**OVERDUE**"
  • ALGORITHM:  $S(MED LICENSE EXPIRATION DATE-TODAY>0:"OK",1:"**OVERDUE**")
  • LAST EDITED:  JUL 12, 1999
Info |  Details |  All