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

Package: IHS Changes To ADT

INCOMPLETE CHART-OLD(#9009013)-->9009013.01

Sub-Field: 9009013.01


Information

Parent File Name Number Package
INCOMPLETE CHART-OLD(#9009013) DISCHARGE DATE 9009013.01 IHS Changes To ADT

Details

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

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 10, 1987
  • HELP-PROMPT:  Date discharged from inpatient status
  • CROSS-REFERENCE:  9009013^AB
    1)= S ^ADGIC("AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADGIC("AB",$E(X,1,30),DA(1),DA)
1 ADMISSION DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date admitted.
2 WARD 0;3 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)
3 SERVICE 0;4 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)
5 PROVIDER P;0 POINTER Multiple #9009013.15 9009013.15
5.2 A SHEET DONE? 0;13 SET

  • LAST EDITED:  SEP 02, 1987
  • HELP-PROMPT:  Was the A Sheet filled out by the attending provider?
5.5 A SHEET CODED? 0;11 SET

  • HELP-PROMPT:  Has the A Sheet been coded yet?
6 DATE SUMMARY DICTATED 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date provider dictated discharge summary.
7 DATE SUMMARY RCVD 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date discharge summary was received from transcription.
8 DATE OP REPORT DICTATED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date provider dictated operative report.
9 DATE OP REPORT RCVD 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date operative report was recevied from transcription.
11 COMMENTS 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  AUG 20, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
Info |  Details |  All