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/PLT - QUICK/LOAD PTF DATA ;7/21/05 2:44pm

Source Information

Source file <DGPTFQWK.m>

Call Graph

Call Graph

Call Graph Total: 14

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

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

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

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"* editing 101 & 701 transactions"
  • Line Location: DGPTFQWK+4
Function Call: WRITE
  • Prompt: !,"* editing 501 transactions"
  • Line Location: DGPTFQWK+10
Function Call: WRITE
  • Prompt: !,"* editing 401 transactions"
  • Line Location: DGPTFQWK+17
Function Call: WRITE
  • Prompt: !,"* editing 801 transactions"
  • Line Location: DGPTFQWK+19
Function Call: WRITE
  • Prompt: !,"* editing 601 transactions"
  • Line Location: DGPTFQWK+21
Function Call: WRITE
  • Prompt: !," Updating TRANSFER DRGs"
  • Line Location: DGPTFQWK+24
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: !,"The PTF Record may not have been filed in PCE due to errors."
  • Line Location: PCE+5
Function Call: WRITE
  • Prompt: !,"Press return to continue."
  • Line Location: PCE+6
Function Call: WRITE
  • Prompt: !,"CPT record is being edited by another user"
  • Line Location: ERR+0
Routine Call
  • DIC
  • Line Location:
    • S501+3
    • S401+3
    • S601+3
    • S801+6
    • S801+11
Routine Call
  • DIE
  • Line Location:
    • DGPTFQWK+4
    • DGPTFQWK+8
    • DGPTFQWK+11
    • DGPTFQWK+18
    • DGPTFQWK+22
    • FMDIE+1
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+10, REQ+4, REQ+5, REQ+6
^DGPT - [#45] DGPTFQWK+7, DGPTFQWK+19, DGPTFQWK+24, S501+3, S401+3, S601+3, S801+6, REQ+1, PCE+3, PCE+7
^DGPT(45 FMDIE, FMDIE+1

Label References

Name Line Occurrences
FMDIE S801+8, SED+1
PCE S801+3
REQ S801+3
REQQ REQ+1, REQ+9
S401 DGPTFQWK+18
S501 DGPTFQWK+11
S601 DGPTFQWK+22
S801 DGPTFQWK+19

Naked Globals

Name Field # of Occurrence
^(0 S501+3*, S401+3*, S601+3*, S801+6*
^(9 S801+10, REQ+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CPT REQ+6*, REQ+7
DA DGPTFQWK+4*, DGPTFQWK+5*, DGPTFQWK+11!*, DGPTFQWK+15!, DGPTFQWK+18!*, DGPTFQWK+20!, DGPTFQWK+22!*, DGPTFQWK+23!, DGPTFQWK+25!, S501+4!
, S401+4!, S601+4!, S801+7!, S801+8*, S801+10*, S801+11*, S801+15!, REQ+1*, REQ+2!, REQ+6*
, REQ+10*, REQ+11!, SED*
DA(1 S501+3*, S401+3*, S601+3*, S801+5*, S801+8*, REQ+1*, REQ+10*
>> DFN S801+9, PCE+2, FMDIE+1
>> DGADM DGPTFQWK+24*
DGCODSYS DGPTFQWK+5*, DGPTFQWK+11*, DGPTFQWK+12, DGPTFQWK+13, DGPTFQWK+15!, DGPTFQWK+18*, DGPTFQWK+22*
DGI S801+9*, S801+10*, S801+15!
DGJUMP DGPTFQWK+11*, DGPTFQWK+18*, DGPTFQWK+22*, DGPTFQWK+25!, S801+15!
DGM DGPTFQWK+11*, DGPTFQWK+18*, DGPTFQWK+22*, DGPTFQWK+25!
DGMOV DGPTFQWK+11*!
DGMOVENO DGPTFQWK+25!
DGPRD S801+7*, S801+9, S801+15!, REQ+4, SED
>> DGPSM S801+7*, REQ+1
DGPTF DGPTFQWK+4*, DGPTFQWK+5*, DGPTFQWK+11*, DGPTFQWK+18*, DGPTFQWK+22*, DGPTFQWK+25!
>> DGPTFE DGPTFQWK+4, DGPTFQWK+11, DGPTFQWK+12
>> DGST DGPTFQWK+24
DGSUR DGPTFQWK+18*!
DGTYPE DGPTFQWK+15!
DGXX DGPTFQWK+15!
>> DGZP DGPTFQWK+22*, S801+7*, S801+8, S801+10, PCE+2, FMDIE+1
>> DGZPRF S801+7
>> DGZPRF( S801+7, S801+8, S801+10
DIC DGPTFQWK+15!, DGPTFQWK+20!, DGPTFQWK+23!, DGPTFQWK+25!, S501+3*, S501+4!, S401+3*, S401+4!, S601+3*, S601+4!
, S801+5*, S801+7!, S801+11*!, S801+15!
DIC("A" S501+3*, S401+3*, S601+3*, S801+4*
DIC("S" S801+11*
DIC(0 S501+3*, S401+3*, S601+3*, S801+5*, S801+11*
DIE DGPTFQWK+4*, DGPTFQWK+5*, DGPTFQWK+11*, DGPTFQWK+15!, DGPTFQWK+18*, DGPTFQWK+20!, DGPTFQWK+22*, DGPTFQWK+23!, DGPTFQWK+25!, S801+8*
, S801+10*, S801+15!, 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+5*, S801+11*, S801+15!
DR DGPTFQWK+4*, DGPTFQWK+5*, DGPTFQWK+7*, DGPTFQWK+12*, DGPTFQWK+13*, DGPTFQWK+15!, DGPTFQWK+18*, DGPTFQWK+20!, DGPTFQWK+22*, DGPTFQWK+23!
, DGPTFQWK+25!, S801+8*, S801+9*, S801+10*, S801+15!, SED*
DTIME PCE+6
>> DTOUT S801+8
>> ERRFKG ERR*
FCPT REQ+3*, REQ+5*, REQ+9!, REQ+11!
I S801+7*, 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+22!
P( DGPTFQWK+22*
PSIEN S801+3, S801+7!, S801+8*, REQ+1, REQ+10
>> PTF DGPTFQWK+4, DGPTFQWK+5, DGPTFQWK+7, DGPTFQWK+11, DGPTFQWK+18, DGPTFQWK+19, DGPTFQWK+22, DGPTFQWK+24, S501+3, S401+3
, S601+3, S801+5, S801+6, S801+8, S801+10, S801+11, REQ+1, REQ+3, REQ+4, REQ+7
, REQ+10, SED, SED+1, PCE+2, PCE+3, PCE+7, FMDIE+1
REC S801+8*, S801+10*, SED+1*, FMDIE, FMDIE+1, ERR!
>> RES PCE+2*, PCE+3, FMDIE+1*
RFL S801+3, S801+15!, REQ+1*, REQ+2*, REQ+8*, REQ+11*
>> SDCLY S801+9
U DGPTFQWK+7, DGPTFQWK+19, DGPTFQWK+24, S801+7, REQ+1, REQ+5, REQ+7
>> X PCE+6*
>> X1 S501+2*, S401+2*, S601+2*, S801+2*
Y DGPTFQWK+11, DGPTFQWK+18, DGPTFQWK+22, DGPTFQWK+25!, S801+3, S801+7, S801+8*, S801+9*, S801+11, S801+12*
, SED, PCE+1
Y(0 S801+7
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