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

Package: Integrated Billing

Routine: IB20PT86


Information

IB20PT86 ;ALB/CPM - EXPORT ROUTINE 'DGPTUTL' ; 14-FEB-94

Source Information

Source file <IB20PT86.m>

Entry Points

Name Comments DBIA/ICR reference
DGPTUTL ;ALB/AS - PTF UTILITY ROUTINE ; 12/13/89@8
D
PM ;sets variables from ^DGPM global
MT ;Determine and store Means Test Indicator
AS
DIE
RTY ; -- set rec type variables
; input: Y := rec type #
; output: DGRTY := rec type #
; DGRTY0 := name of type (in future, may expand to 0th node)
HANG ;
CEN ; -- find current active census ; return ifn and 0th node
FMT ; -- determime PTF record format
FDT ; -- set new format date for testing
UPDT ; -- update PTF record w/PTF and DFN defined
UPDTQ
EXPL ; -- explode string A(input) to DGA(output)
EXPL1 ; -- explode string 'L' of form "1-12" ; input and output is 'L'
EXPL1Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"===> this patient has a blank Eligibility Code"
  • Line Location: AS+3
Function Call: READ
  • Variable: DGPTHANG
  • Timeout: 4
  • Line Location: HANG+1

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