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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IB20PT82

Package: Integrated Billing

Routine: IB20PT82


Information

IB20PT82 ;ALB/CPM - EXPORT ROUTINE 'DGPTF' ; 14-FEB-94

Source Information

Source file <IB20PT82.m>

Entry Points

Name Comments DBIA/ICR reference
DGPTF ;ALB/JDS/AS - PTF LOAD/EDIT DRIVER ; 12/13/89 @8
ASK
EN1 ;
GETD ;
Q
Q1 ; -- housekeeping
SUF
ORDER ; -- order mvt ; I1 := #mvts+1 ; M() := mvt array
ADM
WR
DC
UP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !," Updating TRANSFER DRGs"
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !,"Not after first movement"
  • Line Location: ADM+0
Function Call: WRITE
  • Prompt: !,"There is already a PTF entry at that time"
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: " Admitted: ",$E(DGADM,4,5)_"-"_$E(DGADM,6,7)_"-",$E(DGADM,2,3)," "
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: $P($P(%,";"_$P(DGNODE,U,DGZ)_":",2),";",1)_" "
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !,"Pointer from Patient file is incorrect. Record changed to Fee Basis",!
  • Line Location: UP+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call