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.03

Package: Quality Assurance

NEW CREDENTIALS(#9002165)-->9002165.03

Sub-Field: 9002165.03


Information

Parent File Name Number Package
NEW CREDENTIALS(#9002165) HEALTH STATUS CONFIRM. DATE 9002165.03 Quality Assurance

Details

Field # Name Loc Type Details
.01 HEALTH STATUS CONFIRM. DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 13, 1991
  • CROSS-REFERENCE:  9002165.03^B
    1)= S ^AQAQC(DA(1),"H","B",$E(X,1,30),DA)=""
    2)= K ^AQAQC(DA(1),"H","B",$E(X,1,30),DA)
.02 HEALTH STATUS DUE COMPUTED DATE

  • MUMPS CODE:  S Y(9002165.03,.02,1)=$S($D(^AQAQC(D0,"H",D1,0)):^(0),1:"") S X=$P(Y(9002165.03,.02,1),U,1),X1=X,X2=+730,X="" D C^%DTC:X1
  • ALGORITHM:  HEALTH STATUS CONFIRM. DATE+730
  • LAST EDITED:  SEP 05, 1991
.03 HEALTH STATUS OVERDUE COMPUTED

  • MUMPS CODE:  X ^DD(9002165.03,.03,9.3) S X=$S(Y(9002165.03,.03,3):Y(9002165.03,.03,4),Y(9002165.03,.03,5):X)
    9.2 = X $P(^DD(9002165.03,.02,0),U,5,99) S Y(9002165.03,.03,1)=X S X=Y(9002165.03,.03,1),Y(9002165.03,.03,2)=X,X=DT S Y=X,X=Y(9002165.03,.03,2),X=X S X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X
    9.3 = X ^DD(9002165.03,.03,9.2) S X=X>0,Y(9002165.03,.03,3)=X S X=" ",Y(9002165.03,.03,4)=X S X=1,Y(9002165.03,.03,5)=X S X="**OVERDUE**"
  • ALGORITHM:  $S(HEALTH STATUS DUE-TODAY>0:" ",1:"**OVERDUE**")
  • LAST EDITED:  JUL 23, 1991
Info |  Details |  All