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

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

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

FileMan Files Accessed Via FileMan Db Call

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