DGPTFUT ;WOIFO/PLT,HIOFO/FT,WIOFO/PMK - PTF UTILITIES WITH API - ICR #6130 ;05/04/15 10:07am
Source file <DGPTFUT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PTFIEN(DGA,DGB,DGC) | ;get the ien's for 701,401,501,601,801 and recd dt/time
|
|
PTFICD(DGA,DGB,DGC,DGD,DGE) | ;get icd/poa/description of file #45
|
|
101(PTF) | ;ef= value of ptf demographic data
|
|
401 | ;401 multiple operation icd
|
|
501 | ;501 multiple - movement icd/poa
|
|
601 | ;601 multiple - procedure icd
|
|
701 | ;primary and secondary diagnosis icd/poa
|
|
801 | ;801 multiple - cpt code
|
|
DOPDES(DGA) | ;set diag,oper and procet short/long description in dgd array
|
|
ICDCODE(A,B) | ;ef icd code or nil
|
|
ICDDES(DGFN,DGIEN,DGEDT,A) | ;ef= file 80 or 80.1 code description
|
|
STR401(DG0,DG1) | ; Builds 25 piece string with OPERATION codes
; DG0 = file 45 ien ; DG1 = ien of 401 multiple ; Returns a string of 25 pieces containing the OPERATION codes |
|
STR501(DG0,DG1) | ; Builds 25 piece string with MOVEMENT codes
; DG0 = file 45 ien ; DG1 = ien of 501 multiple ; Returns a string of 25 pieces containing the MOVEMENT codes |
|
STR601(DG0,DG1) | ; Builds 25 piece string with PROCEDURE codes
; DG0 = file 45 ien ; DG1 = ien of 601 multiple ; Returns a string of 25 pieces containing the PROCEDURE codes |
|
STR701(DG0) | ; Builds 25 piece string with DIAGNOSTIC codes
; DG0 = file 45 ien ; Returns a string of 25 pieces containing the 701 codes. First piece is principal DX |
|
STR701P(DG0) | ; Builds 25 piece string with 701 Present On Admission (POA) codes
; DG0 = file 45 ien ; Returns a string of 25 pieces containing the 701 POA codes |
|
STR501P(DG0,DG1) | ; Builds 25 piece string with 501 Present On Admission (POA) codes
; DG0 = file 45 ien ; DG1 = ien of 501 multiple ; Returns a string of 25 pieces containing the 501 POA codes |
|
FileNo | Call Tags |
---|---|
^DGPT - [#45] | EXTERNAL^DILFD |
45.02 | EXTERNAL^DILFD |