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

Package: Registration

Routine: DGPTFM3


Information

DGPTFM3 ;ALB/ADL - MASTER CPT RECORD ENTER/EDIT PART 2 ;5/5/05 7:35am

Source Information

Source file <DGPTFM3.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 8 ICDINFO^DGAPI  (CKSCI,PRV)^DGPTFM  MOB^DGPTFM2  XREF^DGPTFM21  HEAD^DGPTFMO  ($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  D^DGPTUTL  CPT^DGPTUTL1  
DRG Grouper 2 $$GETDATE^ICDGTDRG  $$ICDDATA^ICDXCODE  
VA FileMan 2 ^DIK  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
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: 4

Package Total Caller Graph
Registration 4 DGPTF  DGPTFM2  DGPTFQWK  DGSCHAD  

Entry Points

Name Comments DBIA/ICR reference
REQ ;CHECK FOR REQUIRED FIELDS IN CPT RECORDS. RECORDS MISSING ONE OR MORE REQUIRED FIELDS ARE DELETED.
REQQ ;D RESEQ(PTF)
RESEQ(PTF)
CHKGAP(DGNARAY) ;Function call to determine if an inside DGN code has been deleted
RESEQDGN(CPTINFO,DGNARAY)
PF
LOOP
END

External References

Name Field # of Occurrence
ICDINFO^DGAPI LOOP+1
CKSCI^DGPTFM LOOP+16
PRV^DGPTFM LOOP+3, LOOP+4
MOB^DGPTFM2 PF
XREF^DGPTFM21 LOOP+1
HEAD^DGPTFMO LOOP+21
$$GETLABEL^DGPTIC10 LOOP+9
EFFDATE^DGPTIC10 LOOP+8
WRITECOD^DGPTIC10 LOOP+15
D^DGPTUTL LOOP+2
CPT^DGPTUTL1 LOOP+11
^DIK REQ+3, REQ+7, REQ+12
^DIR END
$$GETDATE^ICDGTDRG REQ+8
$$ICDDATA^ICDXCODE LOOP+14
$$CPT^ICPTCOD REQ+8
CL^SDCO21 LOOP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No CPT record has been filed because no performing provider was specified."
  • Line Location: REQ+3
Function Call: WRITE
  • Prompt: $P(N,U,2)," ",$P(N,U,3)," not filed because no diagnosis 1 was entered."
  • Line Location: REQ+8
Function Call: WRITE
  • Prompt: !!,"No CPT record has been filed because no CPT codes were filed."
  • Line Location: REQ+12
Function Call: WRITE
  • Prompt: !,J,"-CPT Capture Date/Time: ",Y
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: " (cont.)"
  • Condition for execution: ($P(DGZPRF,U,2)-1!($G(PGBRK)))
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,?5,"Referring or Ordering Provider: "
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,?5,"Rendering Provider: "
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !,?5,"Rendering Location: ",$P($G(^SC($P(DGZPRF(J),U,5),0)),U)
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,?2,PS2," "
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: DS," Related Diagnosis",ICDLABEL," ",DS
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Routine Call
  • DIR
  • Line Location:
    • END

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCPT(46 - [#46] REQ+5, REQ+6, REQ+7, RESEQ+4, RESEQ+6*
^DGPT - [#45] REQ+2, PF
^SC - [#44] LOOP+5

Label References

Name Line Occurrences
$$CHKGAP RESEQ+6
END PF+1
LOOP LOOP+21
REQQ REQ+1, REQ+2, REQ+10
RESEQ REQ+4
RESEQDGN RESEQ+6

Naked Globals

Name Field # of Occurrence
^(9 REQ+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CD LOOP+13*, LOOP+14, LOOP+15*, LOOP+17*, END+1!
>> CKSCI LOOP+13
>> CPT REQ+7*, REQ+8
CPTINFO RESEQ+2~, RESEQ+4*, RESEQ+5, RESEQ+6, RESEQDGN~, RESEQDGN+8*
>> D0 PF
DA REQ+2*, REQ+3!, REQ+7*, REQ+11*, REQ+12!
DA(1 REQ+2*, REQ+11*
>> DFN PF*, LOOP+1
>> DGLOC LOOP+13*, LOOP+16, LOOP+17*
>> DGLST LOOP*
DGNARAY RESEQ+2~, RESEQ+4!, RESEQ+6, CHKGAP~, RESEQDGN~, RESEQDGN+5!
DGNARAY( RESEQ+5*, CHKGAP+4, CHKGAP+5, CHKGAP+6, RESEQDGN+4, RESEQDGN+6*, RESEQDGN+7*, RESEQDGN+8
>> DGPSM REQ+2
>> DGPTDAT LOOP+9
>> DGSTRT LOOP*, LOOP+13, LOOP+17*
>> DGZP REQ+1, REQ+2, REQ+5, REQ+11
>> DGZPRF PF, PF+1, LOOP, LOOP+2, LOOP+10, LOOP+19*, LOOP+20*, LOOP+21
>> DGZPRF( REQ+1, REQ+2, REQ+5, REQ+11, LOOP, LOOP+1, LOOP+3, LOOP+4, LOOP+5, LOOP+10
, LOOP+13, LOOP+16, LOOP+18, LOOP+19, LOOP+21
>> DIK REQ+2*, REQ+7*, REQ+11*
DIR END!
DIR(0 END*
>> DS LOOP+12*
EFFDATE LOOP+7~, LOOP+14, LOOP+15
>> END CHKGAP+3*, CHKGAP+5*, CHKGAP+6
FCPT REQ+4*, REQ+6*, REQ+10!, REQ+12!
I REQ+4*, REQ+5*, REQ+6, REQ+7, REQ+10!, REQ+12!, RESEQDGN+2~, RESEQDGN+6*, RESEQDGN+7*, RESEQDGN+8*
, END+1!
ICDLABEL LOOP+9~*, LOOP+12
IMPDATE LOOP+7~
IOST END
J REQ+5*, REQ+10!, REQ+12!, RESEQ+5*, PF*, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4
, LOOP+5, LOOP+10, LOOP+13, LOOP+16, LOOP+17, LOOP+18, LOOP+19, LOOP+20, LOOP+21*
>> K LOOP+11*
K1 LOOP+10*, LOOP+11, LOOP+13, LOOP+16, LOOP+17, LOOP+18, LOOP+19, LOOP+20, END+1!
>> L LOOP+3*, LOOP+4*
L1 LOOP+6*, LOOP+13*, LOOP+18*, LOOP+19, LOOP+20, END+1!
>> MISSING CHKGAP+3*, CHKGAP+4, CHKGAP+6*, CHKGAP+7
N REQ+8*, REQ+10!, REQ+12!, LOOP+14*, LOOP+15, END+1!
NOTNULL RESEQDGN+3!, RESEQDGN+9!
NOTNULL( RESEQDGN+4*, RESEQDGN+7
>> PGBRK LOOP+2, LOOP+6*, LOOP+10, LOOP+13*, LOOP+19*
>> PS2 PF*, LOOP+11*, LOOP+17
>> PS2( LOOP+17*
PTF REQ+2, REQ+4, REQ+5, REQ+8, REQ+11, RESEQ~, RESEQ+4, PF*, LOOP+1, LOOP+8
REC RESEQ+2~, RESEQ+3*, RESEQ+4*, RESEQ+6
>> RFL REQ+1*, REQ+3*, REQ+9*, REQ+12*
>> SDCLY LOOP+1
>> SEQ CHKGAP+3*, CHKGAP+4*, CHKGAP+5, CHKGAP+6, RESEQDGN+3*, RESEQDGN+4*, RESEQDGN+5*, RESEQDGN+7*
U REQ+2, REQ+6, REQ+8, RESEQ+5, RESEQDGN+8, PF+1, LOOP, LOOP+2, LOOP+3, LOOP+4
, LOOP+5, LOOP+10, LOOP+13, LOOP+15, LOOP+16, LOOP+17, LOOP+18, LOOP+19, LOOP+20
>> Y LOOP*, LOOP+2
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