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 ;Aug 20, 2020@09:28

Source Information

Source file <DGPTF.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 24

Package Total Caller Graph
Registration 22 DG PTF QUICK LOAD  DG PTF SCREEN  DGPT CENSUS INQUIRY  DGPTC  DGPTC1  DGPTF  DGPTF1  DGPTF2  
DGPTF4  DGPTF41  DGPTFFB  DGPTFJ  DGPTFJC  DGPTFM  DGPTFM2  DGPTFM4  
DGPTFM5  DGPTFM6  DGPTFM7  DGPTFREL  DGPTUTL  ^DGPT  
Integrated Billing 1 IB20PT86  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
ASK
EN1 ;
GETD ;
Q
Q1 ; -- housekeeping
SUF
ORDER ; -- order mvt ; I1 := #mvts+1 ; M() := mvt array
ADM
WR ;Called from ^DD(45,0,"ID","WR")
DC
UP

External References

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

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+1
Function Call: WRITE
  • Prompt: $P($P(%,";"_$P(DGNODE,U,DGZ)_":",2),";",1)_" "
  • Line Location: WR+4
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+2
Routine Call
  • DIE
  • Line Location:
    • GETD+16
    • 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+4
^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+3, EN1+1, EN1+2, GETD+2, GETD+8, GETD+16, GETD+18, Q, ADM
, ADM+1, WR+1, DC+3
^DGPT("AAD" ADM+1
^DGPT("B" DGPTF+4
^DIC(42 - [#42] SUF
^DISV( DGPTF+4*, ASK+4*, GETD+16*
^DPT - [#2] DGPTF+4, GETD+3
^XUSEC("DG PTFREL" ASK+2

Label References

Name Line Occurrences
ASK ASK+7
DC EN1+2
DGPTF EN1+3, Q+3
GETD UP
Q GETD+16, GETD+17
Q1 ASK+2, EN1+3, Q+1
SUF EN1+2
UP EN1+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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