Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPTFUT

Package: Registration

Routine: DGPTFUT


Information

DGPTFUT ;WOIFO/PLT,HIOFO/FT,WIOFO/PMK - PTF UTILITIES WITH API - ICR #6130 ;05/04/15 10:07am

Source Information

Source file <DGPTFUT.m>

Entry Points

Name Comments DBIA/ICR reference
PTFIEN(DGA,DGB,DGC) ;get the ien's for 701,401,501,601,801 and recd dt/time
  • ICR #6130
    • Status: Active
    • Usage: Controlled Subscription
    PTFICD(DGA,DGB,DGC,DGD,DGE) ;get icd/poa/description of file #45
  • ICR #6130
    • Status: Active
    • Usage: Controlled Subscription
    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
  • ICR #6130
    • Status: Active
    • Usage: Controlled Subscription
    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
  • ICR #6130
    • Status: Active
    • Usage: Controlled Subscription
    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
  • ICR #6130
    • Status: Active
    • Usage: Controlled Subscription
    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
  • ICR #6130
    • Status: Active
    • Usage: Controlled Subscription
    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
  • ICR #6130
    • Status: Active
    • Usage: Controlled Subscription
    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
  • ICR #6130
    • Status: Active
    • Usage: Controlled Subscription

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGPT - [#45] EXTERNAL^DILFD
    45.02 EXTERNAL^DILFD
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call