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

Package: Integrated Billing

Routine: IB20PT82


Information

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

Source Information

Source file <IB20PT82.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 8 (CEN,KVAR)^DGPTC1  (,FAC)^DGPTF1  ^DGPTFQWK  SUDO1^DGPTSUDO  LE^DGPTTS  (D,FMT,MT,PM)^DGPTUTL  (INCOME,KVAR)^DGPTUTL1  LO^DGUTL  
VA Fileman 2 ^DIC  ^DIE  

Entry Points

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

External References

Name Field # of Occurrence
CEN^DGPTC1 GETD+2
KVAR^DGPTC1 Q1+2
^DGPTF1 GETD+11
FAC^DGPTF1 GETD+9
^DGPTFQWK EN1+3
SUDO1^DGPTSUDO Q
LE^DGPTTS EN1+2
D^DGPTUTL GETD+7, GETD+10
FMT^DGPTUTL GETD+6
MT^DGPTUTL ASK+5
PM^DGPTUTL ASK+4
INCOME^DGPTUTL1 ASK+5
KVAR^DGPTUTL1 Q1+2
LO^DGUTL DGPTF+3
^DIC ASK+1
^DIE GETD+10, DC+4, UP

Interaction Calls

Name Line Occurrences
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
Routine Call
  • DIE
  • Line Location:
    • GETD+10
    • DC+4
    • UP
Routine Call
  • DIC
  • Line Location:
    • ASK+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)
^%ZOSF("RM" Q1+1
^DD(45 WR+1
^DG(405.2 - [#405.2] DC+1
^DGP(45.84 - [#45.84] GETD+3
^DGPM - [#405] DC, DC+2
^DGPM("APMV" DC+2
^DGPT - [#45] DGPTF+4, ASK+2, EN1+1, EN1+2, GETD+2, GETD+4, GETD+10, Q, SUF*, ADM
, ADM+1, DC+3
^DGPT("AAD" ADM+1
^DGPT("B" DGPTF+4
^DIC(42 - [#42] SUF
^DISV( DGPTF+4*, ASK+3*, GETD+10*
^DPT - [#2] DGPTF+4, GETD+3
^XUSEC("DG PTFREL" ASK+1

Label References

Name Line Occurrences
ASK ASK+6
DC EN1+2
DGPTF EN1+3, Q+3
GETD UP
Q GETD+10
Q1 ASK+1, EN1+3, Q+1
SUF EN1+2
UP EN1+2

Naked Globals

Name Field # of Occurrence
^( GETD+3, GETD+4, DC+2
^("M" ADM
^("^DGPT(" DGPTF+4
^("^DPT(" DGPTF+4
^(0 ASK+2*, Q, SUF, WR, WR+1, DC, DC+1, DC+2
^(70 DC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ADM*, WR+1*
A DGPTF+4*, GETD+1!
A( GETD+3*
A(0 GETD+7
B DGPTF+4*, GETD+4!
B( GETD+4*
B(0 GETD+5
B(70 GETD+5
>> DA GETD+10*, ADM, ADM+1, DC+4*, UP*
>> DFN ASK+3*, GETD+3, GETD+10, ADM*, ADM+1, DC+2
DG72 DC+1*, DC+4, DC+6!
>> DGAD GETD+7*, GETD+10
>> DGADM ASK+3*, GETD+7, GETD+10*, Q*, WR*
>> DGADPR Q+2
>> DGDC DC+1*, DC+2, DC+4, DC+5
>> DGDD GETD+5*, GETD+6
>> DGFC GETD+5*
>> DGN GETD+8*
DGNODE WR*, WR+1, WR+2!
DGPDN DC*, DC+1, DC+5, DC+6!
DGPMAN ASK+4~, EN1+2, SUF, DC
DGPMCA ASK+4~, DC+2
>> DGPR ASK*, GETD+8, GETD+9
DGPTFE EN1+1!*, EN1+2, GETD+9*, GETD+10, UP*
DGPTOUT Q+2!
>> DGQWK ASK+6, EN1+3*
>> DGREL ASK+1*, ASK+6
DGRT ORDER+1~*, ORDER+2, ORDER+3, ORDER+4
>> DGST ASK+3*, ASK+5, ASK+6, EN1+2, GETD+3, GETD+8, GETD+9*, GETD+10
DGTY DC+1*, DC+2*, DC+4, DC+6!
DGZ WR+1*, WR+2!
DIC ASK!*, ASK+3!
DIC("S" ASK*
DIC(0 ASK*
>> DIE GETD+10*, DC+4*, UP*
DR GETD+10!*, DC+4*, UP*
DT DC+5
DUZ DGPTF+4, ASK+1, ASK+3, GETD+10
>> HEAD GETD+7*, GETD+10*
>> I GETD+3*, GETD+4*, ORDER+2*, ORDER+3*, DC+2*
>> I1 ORDER+1
IOM Q1+1
>> J ORDER+3*, DC+2*
>> K ORDER+3*
>> M( ORDER+2, ORDER+3*
>> NU ORDER+2*
>> PTF ASK+1*, ASK+2, EN1+1, EN1+2, GETD+2, GETD+3, GETD+4, GETD+10, Q, SUF
, DC+3, DC+4, UP
U ASK+3, GETD+2, GETD+5, GETD+7, GETD+10, Q, SUF, ORDER+2, ADM+1, WR
, WR+1, DC+2
X Q1+1*, SUF*, ADM!, ADM+1!, DC+3*, DC+4
>> Y ASK+1, GETD+6*, GETD+7*, GETD+10*
>> Y(0 ASK+3
>> ZTQUEUED DC+5
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