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

Package: Integrated Billing

Routine: IBCINPT


Information

IBCINPT ;DSI/ESG - Extract data and create NPT file ;27-DEC-2000

Source Information

Source file <IBCINPT.m>

Entry Points

Name Comments DBIA/ICR reference
ENTRY ; Entry point for routine (or called from the top)
EXIT ;
; Routine Exit
INIT ; Procedure to initialize some routine-wide variables
INITX ;
INTRO ; This procedure displays introductory text and asks if the user
; wants to proceed with the creation of the NPT file.
INTROX ;
GETPATH ; This procedure tries to get a valid directory location or path
; from the user. The file is also opened in this procedure.
GET1 ;
GETPTHX ;
EXTRACT ; This procedure extracts the data for the NPT file into a scratch
; global.
EXTRX ;
OUTPUT ; This procedure loops through the scratch global and writes each
; record to the open file. We only need to write the record with
; the most recent date of service for each patient/HCFA specialty
; code pair. This is why we are not looping through all dates,
; but doing a $Order with the -1 parameter to get the most recent
; date. The file is also closed in this procedure and a confirmation
; message is shown to the user.
OUTPUTX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: $$FILL^IBCIUT2
  • Line Location: OUTPUT+21
Function Call: WRITE
  • Prompt: $$FILL^IBCIUT2
  • Line Location: OUTPUT+22
Function Call: WRITE
  • Prompt: $$FILL^IBCIUT2
  • Line Location: OUTPUT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+24
Info |  Source |  Entry Points |  Interaction Calls