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

Package: Quality Assurance

Global: ^AQAQML


Information

FileMan FileNo FileMan Filename Package
9002161.2 MEDICAL LICENSURE Quality Assurance

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Quality Assurance 2 AQAQDUE    AQAQMLE    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Quality Assurance 1 AQAQMLE    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 STATE(#5)[.01]    
Quality Assurance 1 NEW CREDENTIALS(#9002165)[.02]    

Fields, Total: 5

Field # Name Loc Type Details
.01 STATE 0;1 POINTER TO STATE FILE (#5)
************************REQUIRED FIELD************************
STATE(#5)

  • LAST EDITED:  APR 26, 1991
  • CROSS-REFERENCE:  9002161.2^B
    1)= S ^AQAQML("B",$E(X,1,30),DA)=""
    2)= K ^AQAQML("B",$E(X,1,30),DA)
.02 PROVIDER 0;2 POINTER TO NEW CREDENTIALS FILE (#9002165) NEW CREDENTIALS(#9002165)

  • LAST EDITED:  APR 26, 1991
  • CROSS-REFERENCE:  9002161.2^C
    1)= S ^AQAQML("C",$E(X,1,30),DA)=""
    2)= K ^AQAQML("C",$E(X,1,30),DA)
.03 CLASS COMPUTED

  • MUMPS CODE:  X ^DD(9002161.2,.03,9.4) S X=$S('$D(^DIC(7,+$P(Y(9002161.2,.03,201),U,4),0)):"",1:$P(^(0),U,1)) S D0=Y(9002161.2,.03,80)
    9.2 = S Y(9002161.2,.03,80)=$S($D(D0):D0,1:""),Y(9002161.2,.03,1)=$S($D(^AQAQML(D0,0)):^(0),1:""),D0=$P(Y(9002161.2,.03,1),U,2) S:'$D(^AQAQC(+D0,0)) D0=-1
    9.3 = X ^DD(9002161.2,.03,9.2) S Y(9002161.2,.03,180)=$S($D(D0):D0,1:""),Y(9002161.2,.03,101)=$S($D(^AQAQC(D0,0)):^(0),1:"")
    9.4 = X ^DD(9002161.2,.03,9.3) S D0=$P(Y(9002161.2,.03,101),U,1) S:'$D(^DIC(6,+D0,0)) D0=-1 S Y(9002161.2,.03,201)=$S($D(^DIC(6,D0,0)):^(0),1:"")
  • ALGORITHM:  PROVIDER:NAME OF PROVIDER:CLASS
.04 STAFF CATEGORY COMPUTED

  • MUMPS CODE:  X ^DD(9002161.2,.04,9.3) S X=$P($P(Y(9002161.2,.04,102),$C(59)_$P(Y(9002161.2,.04,101),U,2)_":",2),$C(59),1) S D0=Y(9002161.2,.04,80)
    9.2 = S Y(9002161.2,.04,80)=$S($D(D0):D0,1:""),Y(9002161.2,.04,1)=$S($D(^AQAQML(D0,0)):^(0),1:""),D0=$P(Y(9002161.2,.04,1),U,2) S:'$D(^AQAQC(+D0,0)) D0=-1
    9.3 = X ^DD(9002161.2,.04,9.2) S Y(9002161.2,.04,102)=$C(59)_$S($D(^DD(9002165,.02,0)):$P(^(0),U,3),1:""),Y(9002161.2,.04,101)=$S($D(^AQAQC(D0,0)):^(0),1:"")
  • ALGORITHM:  PROVIDER:STAFF CATEGORY
1 MED LICENSE EXPIRATION DATE 1;0 DATE Multiple #9002161.21 9002161.21
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All