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 |  Interaction Calls
Print Page as PDF
Routine: TIUPXAPM

Package: Text Integration Utility

Routine: TIUPXAPM


Information

TIUPXAPM ;SLC/RMO - CPT Modifier API(s) ;03/06/03@1500

Source Information

Source file <TIUPXAPM.m>

Entry Points

Name Comments DBIA/ICR reference
MOD(CPT,TIUI,TIUVDT) ;Select CPT Modifiers for CPT Code
; Input -- CPT CPT Selection Array
; TIUI Item Number in CPT Selection Array
; TIUVDT Encounter Date
; Output -- CPT CPT Selection Array
MODQ
ASKMOD(CPTIEN,MOD,MODCNT,MODATA,TIUVDT) ;Ask CPT Modifier
; Input -- CPTIEN CPT file (#81) IEN
; MOD CPT Modifier Selection Array
; MODCNT Number of Modifiers Selected
; TIUVDT Encounter Date
; Output -- 1=Successful and 0=Failure
; MODATA Modifier Data from Modifier file (#81.3)
; 1st Piece=IEN
; 2nd Piece=Modifier field (#.01)
; 3rd Piece=Name field (#.02)
CHKMOD(MOD,MODIEN) ;Check Selected CPT Modifier
; Input -- MOD CPT Modifier Selection Array
; MODIEN Modifier file (#81.3) IEN
; Output -- 1=Successful and 0=Failure
DISMOD(CPT,TIUI,TIUSELF) ;Display Selected CPT Modifiers
; Input -- CPT CPT Selection Array
; TIUI Item Number in CPT Selection Array
; TIUSELF Selection Process Flag (Optional)
; 1=Selection Process
; Output -- None

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?12,"-",$P(MODATA,U,2),?19,$P(MODATA,U,3)
  • Line Location: DISMOD+17
Info |  Source |  Entry Points |  Interaction Calls