Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 4 $$LST^DGMTU  (DC,SUF)^DGPTF  LE^DGPTTS  $$SITE^VASITE  
VA FileMan 1 ^DIE  

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

External References

Name Field # of Occurrence
$$LST^DGMTU MT+5
DC^DGPTF UPDT+8
SUF^DGPTF UPDT+8
LE^DGPTTS UPDT+8
^DIE DIE, DIE+1
$$SITE^VASITE DIE

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
Routine Call
  • DIE
  • Line Location:
    • DIE
    • DIE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] MT+4
^DG(45.86 - [#45.86] CEN+1
^DGP(45.84 - [#45.84] UPDT+4
^DGPM - [#405] PM+1
^DGPM("APTF" PM+1
^DGPT - [#45] MT+3, MT+5, DIE, DIE+1, UPDT+1, UPDT+8
^DIC(42 - [#42] MT+4
^DIC(45.1 - [#45.1] MT+3
^DIC(8 - [#8] MT+1
^DPT - [#2] MT+1, AS

Label References

Name Line Occurrences
AS MT+5
DIE MT+1, MT+2, MT+3, MT+4, MT+6, AS, AS+1, AS+2
EXPL1 EXPL+2
EXPL1Q EXPL1+2, EXPL1+3, EXPL1+4
FDT FMT+3
PM UPDT+7
UPDTQ UPDT+1, UPDT+3, UPDT+5, UPDT+6

Naked Globals

Name Field # of Occurrence
^( MT+1, AS
^(0 PM+1, MT+1, MT+3, MT+4, CEN+1, UPDT+2
^(101 MT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % D*
>> A EXPL+1
AD UPDT+4*, UPDTQ!
AGE UPDTQ!
D0 UPDTQ!
D1 UPDTQ!
DA DIE*!, DIE+1*, DIE+2!, UPDTQ!
>> DFN MT+1, MT+5, AS
DFN1 UPDTQ!
DFN2 UPDTQ!
DG UPDTQ!
DG1 DIE!, DIE+2!
>> DGA EXPL+1*, EXPL+2*
DGADM MT+2, MT+4, UPDT+4*, UPDTQ!
>> DGBGJ DIE
>> DGCN CEN+1*
>> DGCN0 CEN+1*
DGLAST UPDTQ!
>> DGLN AS+3
DGP UPDTQ!
DGPMAN PM+1*, MT+4, UPDT+7~
DGPMCA PM+1*, UPDT+7~, UPDT+8
DGPTFE UPDT+4*, UPDT+6, UPDTQ!
>> DGPTFMT FMT+3*, FMT+4*
DGPTHANG HANG+1*!
>> DGRTY RTY+5*, RTY+6*
>> DGRTY0 RTY+5*, RTY+6*
DGST UPDT+4*, UPDT+5, UPDTQ!
DGT MT+5*, DIE!, DIE+2!
DGTY UPDTQ!
DGX MT+1*, MT+2*, MT+3*, MT+4*, MT+6*, AS*, AS+1*, AS+2*, AS+3*, DIE!
, DIE+1, DIE+2!, UPDTQ!
DGZ AS*, DIE!, DIE+2!
DGZ1 MT+5*, MT+6, DIE!, DIE+2!
DGZEC MT+1*, AS+1, AS+2, DIE!, DIE+2!
DI UPDTQ!
DIC UPDTQ!
DIE DIE*!, DIE+1*, DIE+2!, UPDTQ!
DIG UPDTQ!
DIH UPDTQ!
DIK UPDTQ!
DIKLM UPDTQ!
DIS2 UPDTQ!
DISYS UPDTQ!
DIU UPDTQ!
DIV UPDTQ!
DIW UPDTQ!
DIWL UPDTQ!
DIWR UPDTQ!
DIWT UPDTQ!
DN UPDTQ!
DOB UPDTQ!
DQ UPDTQ!
DR DIE*!, DIE+1*, DIE+2!, UPDTQ!
DRG UPDTQ!
DT FMT+2
I EXPL1+1~, EXPL1+5*
I1 UPDTQ!
J EXPL+1~, EXPL+2*
L UPDTQ!, EXPL+1~, EXPL+2*, EXPL1+2*, EXPL1+3*, EXPL1+4*, EXPL1+5, EXPL1+6*
P1 UPDTQ!
PR UPDTQ!
>> PTF PM+1, MT+3, MT+5, DIE, DIE+1, UPDT+1, UPDT+3, UPDT+4, UPDT+5, UPDT+6
, UPDT+8
SEX UPDTQ!
TDD UPDTQ!
TY UPDTQ!
U MT+1, MT+4, MT+6, AS, AS+1, DIE, UPDT+3, UPDT+4, UPDT+8
X UPDT+2*, UPDT+3, UPDT+4, EXPL+2*, EXPL1+1~, EXPL1+5*, EXPL1+6
>> Y D*, D+1*, RTY+5, RTY+6, FMT+2, FMT+4, FDT+1*
Z FMT+2*, FMT+4, FMT+5!
>> ZTQUEUED UPDT+1, UPDT+3, UPDT+5, UPDT+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All