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 |  Caller 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: DGPTF

Package: Registration

Routine: DGPTF


Information

DGPTF ;ALB/JDS/AS - PTF LOAD/EDIT DRIVER ; 5/17/05 12:13pm

Source Information

Source file <DGPTF.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Registration 12 $$CVEDT^DGCV  $$GETSTAT^DGMSTAPI  $$GETCUR^DGNTAPI  (CEN,KVAR)^DGPTC1  (,FAC)^DGPTF1  ^DGPTFQWK  SUDO1^DGPTSUDO  LE^DGPTTS  
(D,FMT,MT,PM)^DGPTUTL  (INCOME,KVAR)^DGPTUTL1  LO^DGUTL  $$GETSHAD^DGUTL3  
VA Fileman 2 ^DIC  (,FILE)^DIE  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 21

Package Total Caller Graph
Registration 20 DG PTF QUICK LOAD  DG PTF SCREEN  DGPTC  DGPTC1  DGPTF1  DGPTF2  DGPTF4  DGPTF41  
DGPTFFB  DGPTFJ  DGPTFJC  DGPTFM  DGPTFM2  DGPTFM4  DGPTFM5  DGPTFM6  
DGPTFM7  DGPTFREL  DGPTFTR  DGPTUTL  
Integrated Billing 1 IB20PT86  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; -- housekeeping
SUF
GETD ;
DC
UP
Q
EN1 ;
WR
ASK
ADM
ORDER ; -- order mvt ; I1 := #mvts+1 ; M() := mvt array

External References

Name Field # of Occurrence
$$CVEDT^DGCV GETD+10
$$GETSTAT^DGMSTAPI GETD+5
$$GETCUR^DGNTAPI GETD+7
CEN^DGPTC1 GETD+2
KVAR^DGPTC1 Q1+2
^DGPTF1 GETD+18
FAC^DGPTF1 GETD+16
^DGPTFQWK EN1+3
SUDO1^DGPTSUDO Q
LE^DGPTTS EN1+2
D^DGPTUTL GETD+14, GETD+17
FMT^DGPTUTL GETD+13
MT^DGPTUTL ASK+5
PM^DGPTUTL ASK+4
INCOME^DGPTUTL1 ASK+5
KVAR^DGPTUTL1 Q1+2
LO^DGUTL DGPTF+3
$$GETSHAD^DGUTL3 GETD+11
^DIC ASK+1
^DIE GETD+17, DC+4, UP
FILE^DIE SUF+6
$$FMTE^XLFDT WR

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: ",$TR($$FMTE^XLFDT(DGADM,"5DF")," ","0")," "
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: $P($P(%,";"_$P(DGNODE,U,DGZ)_":",2),";",1)_" "
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: !,"Pointer from Patient file is incorrect. Record changed to Fee Basis",!
  • Line Location: UP+0
Routine Call
  • DIC
  • Line Location:
    • ASK+1
Routine Call
  • DIE
  • Line Location:
    • GETD+17
    • DC+4
    • UP
Routine Call
  • DIE
  • Line Location:
    • SUF+6

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+3
^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+9, GETD+17, Q, ADM, ADM+1
, DC+3
^DGPT("AAD" ADM+1
^DGPT("B" DGPTF+4
^DIC(42 - [#42] SUF
^DISV( DGPTF+4*, ASK+3*, GETD+17*
^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+17
Q1 ASK+1, EN1+3, Q+1
SUF EN1+2
UP EN1+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ADM*, WR+3*
A DGPTF+4*, GETD+1!
A( GETD+3*
A("CV" GETD+10*
A("MST" GETD+5*
A("NTR" GETD+7*
A("SHAD" GETD+11*
A(0 GETD+14
B DGPTF+4*, GETD+9!
B( GETD+9*
B(0 GETD+10, GETD+12
B(70 GETD+12
>> DA GETD+17*, ADM, ADM+1, DC+4*, UP*
>> DFN ASK+3*, GETD+3, GETD+5, GETD+7, GETD+10, GETD+11, GETD+17, ADM*, ADM+1, DC+2
DG72 DC+1*, DC+4, DC+6!
>> DGAD GETD+14*, GETD+17
>> DGADM ASK+3*, GETD+14, GETD+17*, Q*, WR*
>> DGADPR Q+2
DGANUM SUF+3, SUF+5, SUF+7!
>> DGDC DC+1*, DC+2, DC+4, DC+5
>> DGDD GETD+12*, GETD+13
>> DGFC GETD+12*
DGFDA SUF+4~
DGFDA(45 SUF+5*
DGMSG SUF+4~
>> DGN GETD+15*
DGNODE WR*, WR+3, WR+4!
DGNTARR GETD+6!, GETD+8!
DGNTARR("INTRP" GETD+7
DGPDN DC*, DC+1, DC+5, DC+6!
DGPMAN ASK+4~, EN1+2, SUF, DC
DGPMCA ASK+4~, DC+2
>> DGPR ASK*, GETD+15, GETD+16
DGPTFE EN1+1!*, EN1+2, GETD+16*, GETD+17, 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+15, GETD+16*, GETD+17
DGSUFNAM SUF+7!
DGSUFNAM( SUF+5
DGTY DC+1*, DC+2*, DC+4, DC+6!
DGX SUF+1*, SUF+2, SUF+3, SUF+7!
DGZ WR+3*, WR+4!
DIC ASK!*, ASK+3!
DIC("S" ASK*
DIC(0 ASK*
>> DIE GETD+17*, DC+4*, UP*
DR GETD+17!*, DC+4*, UP*
DT DC+5
DUZ DGPTF+4, ASK+1, ASK+3, GETD+17
>> HEAD GETD+14*, GETD+17*
>> I GETD+3*, GETD+9*, 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+9, GETD+17, Q, SUF+5
, DC+3, DC+4, UP
SDCLY Q1+2!
U ASK+3, GETD+2, GETD+5, GETD+10, GETD+12, GETD+14, GETD+17, Q, SUF, SUF+1
, ORDER+2, ADM+1, WR, WR+3, DC+2
X Q1+1*, ADM!, ADM+1!, DC+3*, DC+4
>> Y ASK+1, GETD+13*, GETD+14*, GETD+17*
>> Y(0 ASK+3
>> ZTQUEUED DC+5
Info |  Source |  Call Graph |  Caller 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