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 Total: 13

Package Total Call Graph
Registration 7 ICDINFO^DGAPI  (CKSCI,PRV)^DGPTFM  MOB^DGPTFM2  XREF^DGPTFM21  HEAD^DGPTFMO  D^DGPTUTL  CPT^DGPTUTL1  
DRG Grouper 3 $$ICDDX^ICDCODE  $$GETDATE^ICDGTDRG  $$CPT^ICPTCOD  
VA Fileman 2 ^DIK  ^DIR  
Scheduling 1 CL^SDCO21  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPTFM2  DGPTFQWK  

Entry Points

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

External References

Name Field # of Occurrence
ICDINFO^DGAPI LOOP+1
CKSCI^DGPTFM LOOP+13
PRV^DGPTFM LOOP+3, LOOP+4
MOB^DGPTFM2 PF
XREF^DGPTFM21 LOOP+1
HEAD^DGPTFMO LOOP+18
D^DGPTUTL LOOP+2
CPT^DGPTUTL1 LOOP+8
^DIK REQ+3, REQ+7, REQ+12
^DIR END
$$ICDDX^ICDCODE LOOP+11
$$GETDATE^ICDGTDRG REQ+8, LOOP+11
$$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+8
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: DS," Related Diagnosis ",DS
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: !,?8,CD," ",$P(N,U,3)
  • 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+18
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+10*, LOOP+11, LOOP+12*, LOOP+14*, END+1!
>> CKSCI LOOP+10
>> 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+10*, LOOP+13, LOOP+14*
>> 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
>> DGSTRT LOOP*, LOOP+10, LOOP+14*
>> DGZP REQ+1, REQ+2, REQ+5, REQ+11
>> DGZPRF PF, PF+1, LOOP, LOOP+2, LOOP+7, LOOP+16*, LOOP+17*, LOOP+18
>> DGZPRF( REQ+1, REQ+2, REQ+5, REQ+11, LOOP, LOOP+1, LOOP+3, LOOP+4, LOOP+5, LOOP+7
, LOOP+10, LOOP+13, LOOP+15, LOOP+16, LOOP+18
>> DIK REQ+2*, REQ+7*, REQ+11*
DIR END!
DIR(0 END*
>> DS LOOP+9*
>> 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!
IOST END
J REQ+5*, REQ+10!, REQ+12!, RESEQ+5*, PF*, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4
, LOOP+5, LOOP+7, LOOP+10, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+17, LOOP+18*
>> K LOOP+8*
K1 LOOP+7*, LOOP+8, LOOP+10, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+17, END+1!
>> L LOOP+3*, LOOP+4*
L1 LOOP+6*, LOOP+10*, LOOP+15*, LOOP+16, LOOP+17, END+1!
>> MISSING CHKGAP+3*, CHKGAP+4, CHKGAP+6*, CHKGAP+7
N REQ+8*, REQ+10!, REQ+12!, LOOP+11*, LOOP+12, END+1!
NOTNULL RESEQDGN+3!, RESEQDGN+9!
NOTNULL( RESEQDGN+4*, RESEQDGN+7
>> PGBRK LOOP+2, LOOP+6*, LOOP+7, LOOP+10*, LOOP+16*
>> PS2 PF*, LOOP+8*, LOOP+14
>> PS2( LOOP+14*
PTF REQ+2, REQ+4, REQ+5, REQ+8, REQ+11, RESEQ~, RESEQ+4, PF*, LOOP+1, LOOP+11
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+7, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+17
>> 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