Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCPT(46 - [#46] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call