DGPTRI4 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;5/11/15 12:24pm
Source file <DGPTRI4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 701 | ; -- setup 701 transaction
|
|
| 702 | ;create 702 only if there are secondary DXs
|
|
| POA(Y) | ;-- Add POA to end of 101 segment with POA ;FT 3/23/15 - MAY NOT BE NEEDED
|
|
| POAVAL(POA) | ; -- Convert POA indicator to a 1 or 0 for use in calculating DRG
; -- note: Transmission of space " " if no corresponding DIAGNOSIS ; -- see POA^DGPTFD, same logic, different return values. |
|
| ENTER | ||
| ENTER0 | ||
| SAVE | ;validate data and save to MailMan message & ^TMP("AEDIT",$J)
|
|
| Q | ||
| CSAVE | ;sets MailMan message, not ^TMP("AEDIT",$J)
|
|
| CDR | ||
| RTEN(X) | ; This function will round X to the nearest multiple of ten.
; 0-4 ->DOWN; 5-9->UP |
|
| ETHNIC(DGPTJ) | ;Ethnicity (use first active value)
|
|
| RACE(DGPTJ) | ;-- Race (use first 6 active values)
|
|
| N701(PTF,DGT1) | ;create 701 segment
|
|
| N702(PTF) | ;create 702 segment
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGPT - [#45] | GET1^DIQ |
