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

Package: IHS Patient

PRIOR AUTHORIZATIONS(#9000046)-->9000046.11-->9000046.1201

Sub-Field: 9000046.1201


Information

Parent File Name Number Package
9000046.11 ADDITIONAL DAYS AUTHORIZED 9000046.1201 IHS Patient

Details

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

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 22, 2004
  • HELP-PROMPT:  (No range limit on date)
  • CROSS-REFERENCE:  9000046.1201^B
    1)= S ^AUPNAUTH(DA(2),11,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNAUTH(DA(2),11,DA(1),2,"B",$E(X,1,30),DA)
.02 REFERENCE NUMBER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUN 22, 2004
  • HELP-PROMPT:  Answer must be 1-30 characters in length
.03 CONTACT PERSON 0;3 FREE TEXT

  • INPUT TRANSFORM:  D NAME^AUPNPED
  • LAST EDITED:  JUN 28, 2004
  • HELP-PROMPT:  ANSWER IN THE FORM 'LAST,FIRST'
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 CONTACT PHONE 0;4 FREE TEXT

  • INPUT TRANSFORM:  D VALPHONE^AGUTILS
  • LAST EDITED:  JUN 28, 2004
  • HELP-PROMPT:  Enter a valid phone number. Place extensions at end e.g. 505-245-4323 ext 5467
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 CONTACT E-MAIL 0;5 FREE TEXT

  • INPUT TRANSFORM:  D EMAIL^AGUTILS
  • LAST EDITED:  JUN 28, 2004
  • HELP-PROMPT:  Enter a valid e-mail address. e.g. name@host
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 CONTACT FAX 0;6 FREE TEXT

  • INPUT TRANSFORM:  D VALPHONE^AGUTILS
  • LAST EDITED:  JUN 28, 2004
  • HELP-PROMPT:  Enter a valid phone number. Place extensions at end e.g. 505-245-4323 ext 5467
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 NUMBER OF DAYS AUTHORIZED 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JUN 22, 2004
  • HELP-PROMPT:  Type a number between 1 and 9999, 0 Decimal Digits
.08 NUMBER OF VISITS AUTHORIZED 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JUN 24, 2004
  • HELP-PROMPT:  Type a number between 1 and 9999, 0 Decimal Digits
101 ADDITIONAL DAYS NOTES 2;0 WORD-PROCESSING #9000046.12201
Info |  Details |  All