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

Package: Registration

Routine: DGPTFQWK


Information

DGPTFQWK ;ALB/AS - QUICK/LOAD PTF DATA ;7/21/05 2:44pm

Source Information

Source file <DGPTFQWK.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 6 ($$DATA2PCE,$$DELVFILE)^DGAPI1  (MOB,SED)^DGPTFM2  (GETINFO,SDR)^DGPTFM21  RESEQ^DGPTFM3  (CHK401,CHK501,CHK601)^DGPTSCAN  SUDO1^DGPTSUDO  
VA Fileman 4 ^DIC  ^DIE  ^DIK  ^DIR  
DRG Grouper 2 $$GETDATE^ICDGTDRG  $$CPT^ICPTCOD  
Scheduling 1 CL^SDCO21  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 2 DGPTF  DGPTFM2  
Integrated Billing 1 IB20PT82  

Entry Points

Name Comments DBIA/ICR reference
S601 ;-- set up 601
ERR
FMDIE
S501 ;-- set up 501
REQ ;CHECK FOR REQUIRED FIELDS IN CPT RECORDS. RECORDS MISSING ONE OR MORE REQUIRED FIELDS ARE DELETED.
S801 ;-- set up 801
REQQ ;D RESEQ^DGPTFM3(PTF)
S401 ;-- set up 401
SED
PCE

External References

Name Field # of Occurrence
$$DATA2PCE^DGAPI1 PCE+2
$$DELVFILE^DGAPI1 FMDIE+1
MOB^DGPTFM2 S801+5, PCE+2
SED^DGPTFM2 S801+9
GETINFO^DGPTFM21 S801+8
SDR^DGPTFM21 SED+1
RESEQ^DGPTFM3 REQ+3
CHK401^DGPTSCAN DGPTFQWK+7
CHK501^DGPTSCAN DGPTFQWK+4
CHK601^DGPTSCAN DGPTFQWK+11
SUDO1^DGPTSUDO DGPTFQWK+14
^DIC S501+1, S401+1, S601+1, S801+4, S801+9
^DIE DGPTFQWK+3, DGPTFQWK+4, DGPTFQWK+7, DGPTFQWK+11, FMDIE+1
^DIK REQ+2, REQ+6, REQ+11
^DIR PCE+1
$$GETDATE^ICDGTDRG REQ+7
$$CPT^ICPTCOD REQ+7
CL^SDCO21 S801+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"* editing 101 & 701 transactions"
  • Line Location: DGPTFQWK+3
Function Call: WRITE
  • Prompt: !,"* editing 501 transactions"
  • Line Location: DGPTFQWK+3
Function Call: WRITE
  • Prompt: !,"* editing 401 transactions"
  • Line Location: DGPTFQWK+6
Function Call: WRITE
  • Prompt: !,"* editing 801 transactions"
  • Line Location: DGPTFQWK+8
Function Call: WRITE
  • Prompt: !,"* editing 601 transactions"
  • Line Location: DGPTFQWK+10
Function Call: WRITE
  • Prompt: !," Updating TRANSFER DRGs"
  • Line Location: DGPTFQWK+14
Function Call: WRITE
  • Prompt: !!,"No CPT records have been filed because no performing provider was specified."
  • Line Location: REQ+2
Function Call: WRITE
  • Prompt: $P(N,U,2)," ",$P(N,U,3)," not filed because no diagnosis 1 was entered."
  • Line Location: REQ+7
Function Call: WRITE
  • Prompt: !!,"No CPT records have been filed because no CPT codes were filed."
  • Line Location: REQ+11
Function Call: WRITE
  • Prompt: !,"PTF Record sent to PCE"
  • Line Location: PCE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PCE+4
Function Call: WRITE
  • Prompt: !,^(I)
  • Line Location: PCE+5
Function Call: WRITE
  • Prompt: !,"The PTF Record may not have been filed in PCE due to errors."
  • Line Location: PCE+6
Function Call: WRITE
  • Prompt: !,"Press return to continue."
  • Line Location: PCE+7
Function Call: WRITE
  • Prompt: !,"CPT record is being edited by another user"
  • Line Location: ERR+0
Routine Call
  • DIE
  • Line Location:
    • DGPTFQWK+3
    • DGPTFQWK+4
    • DGPTFQWK+7
    • DGPTFQWK+11
    • FMDIE+1
Routine Call
  • DIC
  • Line Location:
    • S501+1
    • S401+1
    • S601+1
    • S801+4
    • S801+9
Routine Call
  • DIR
  • Line Location:
    • PCE+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCPT(46 - [#46] S801+8, REQ+4, REQ+5, REQ+6
^DGPT - [#45] DGPTFQWK+8, DGPTFQWK+14, S501+1, S401+1, S601+1, S801+4, REQ+1, PCE+3, PCE+8
^DGPT(45 FMDIE, FMDIE+1

Label References

Name Line Occurrences
FMDIE S801+6, SED+1
PCE S801+1
REQ S801+1
REQQ REQ+1, REQ+9
S401 DGPTFQWK+7
S501 DGPTFQWK+4
S601 DGPTFQWK+11
S801 DGPTFQWK+8

Naked Globals

Name Field # of Occurrence
^(0 S501+1*, S401+1*, S601+1*, S801+4*
^(9 S801+8, REQ+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CPT REQ+6*, REQ+7
DA DGPTFQWK+3*, DGPTFQWK+4!*, DGPTFQWK+5!, DGPTFQWK+7!*, DGPTFQWK+9!, DGPTFQWK+11!*, DGPTFQWK+12!, DGPTFQWK+15!, S501+2!, S401+2!
, S601+2!, S801+5!, S801+6*, S801+8*, S801+9*, S801+11!, REQ+1*, REQ+2!, REQ+6*, REQ+10*
, REQ+11!, SED*
DA(1 S501+1*, S401+1*, S601+1*, S801+3*, S801+6*, REQ+1*, REQ+10*
>> DFN S801+7, PCE+2, FMDIE+1
>> DGADM DGPTFQWK+14*
DGI S801+7*, S801+8*, S801+11!
DGJUMP DGPTFQWK+4*, DGPTFQWK+7*, DGPTFQWK+11*, DGPTFQWK+15!, S801+11!
DGM DGPTFQWK+4*, DGPTFQWK+7*, DGPTFQWK+11*, DGPTFQWK+15!
DGMOV DGPTFQWK+4*!
DGMOVENO DGPTFQWK+15!
DGPRD S801+5*, S801+7, S801+11!, REQ+4, SED
>> DGPSM S801+5*, REQ+1
DGPTF DGPTFQWK+3*, DGPTFQWK+4*, DGPTFQWK+7*, DGPTFQWK+11*, DGPTFQWK+15!
>> DGPTFE DGPTFQWK+3, DGPTFQWK+4
>> DGST DGPTFQWK+14
DGSUR DGPTFQWK+7*!
>> DGZP DGPTFQWK+11*, S801+5*, S801+6, S801+8, PCE+2, FMDIE+1
>> DGZPRF S801+5
>> DGZPRF( S801+5, S801+6, S801+8
DIC DGPTFQWK+5!, DGPTFQWK+9!, DGPTFQWK+12!, DGPTFQWK+15!, S501+1*, S501+2!, S401+1*, S401+2!, S601+1*, S601+2!
, S801+3*, S801+5!, S801+9*!, S801+11!
DIC("A" S501+1*, S401+1*, S601+1*, S801+2*
DIC("S" S801+9*
DIC(0 S501+1*, S401+1*, S601+1*, S801+3*, S801+9*
DIE DGPTFQWK+3*, DGPTFQWK+4*, DGPTFQWK+5!, DGPTFQWK+7*, DGPTFQWK+9!, DGPTFQWK+11*, DGPTFQWK+12!, DGPTFQWK+15!, S801+6*, S801+8*
, S801+11!, SED*, ERR!
>> DIK REQ+1*, REQ+6*, REQ+10*
DIR PCE+1!
DIR("A" PCE*
DIR("B" PCE*
DIR(0 PCE*
>> DIRUT PCE+1
DLAYGO S801+3*, S801+9*, S801+11!
DR DGPTFQWK+3*, DGPTFQWK+4*, DGPTFQWK+5!, DGPTFQWK+7*, DGPTFQWK+9!, DGPTFQWK+11*, DGPTFQWK+12!, DGPTFQWK+15!, S801+6*, S801+7*
, S801+8*, S801+11!, SED*
DTIME PCE+7
>> DTOUT S801+6
>> ERRFKG ERR*
FCPT REQ+3*, REQ+5*, REQ+9!, REQ+11!
I S801+5*, REQ+3*, REQ+4*, REQ+5, REQ+6, REQ+9!, REQ+11!
IOF PCE+4
J REQ+4*, REQ+9!, REQ+11!
N REQ+7*, REQ+9!, REQ+11!
P DGPTFQWK+11!
P( DGPTFQWK+11*
PSIEN S801+1, S801+5!, S801+6*, REQ+1, REQ+10
>> PTF DGPTFQWK+3, DGPTFQWK+4, DGPTFQWK+7, DGPTFQWK+8, DGPTFQWK+11, DGPTFQWK+14, S501+1, S401+1, S601+1, S801+3
, S801+4, S801+6, S801+8, S801+9, REQ+1, REQ+3, REQ+4, REQ+7, REQ+10, SED
, SED+1, PCE+2, PCE+3, PCE+8, FMDIE+1
REC S801+6*, S801+8*, SED+1*, FMDIE, FMDIE+1, ERR!
>> RES PCE+2*, PCE+3, FMDIE+1*
RFL S801+1, S801+11!, REQ+1*, REQ+2*, REQ+8*, REQ+11*
>> SDCLY S801+7
U DGPTFQWK+8, DGPTFQWK+14, S801+5, REQ+1, REQ+5, REQ+7
>> X PCE+7*
Y DGPTFQWK+4, DGPTFQWK+7, DGPTFQWK+11, DGPTFQWK+15!, S801+1, S801+5, S801+6*, S801+7*, S801+9, S801+10*
, SED, PCE+1
Y(0 S801+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