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
Print Page as PDF
Routine: DGPTRI3

Package: Registration

Routine: DGPTRI3


Information

DGPTRI3 ;ALB/JDS/MJK/BOK,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;4/23/15 8:59am

Source Information

Source file <DGPTRI3.m>

Entry Points

Name Comments DBIA/ICR reference
535 ; -- setup 535 transactions
PHY ; -- set up physical mvt
ENTER
ENTER0
SAVE ;
Q
VERCHK(REC) ; -- check version for all diagnosis and procedure codes
CPTDATA ; -- get 801 movement Diagnosis Data in DG801(i,j,"DATA")
; 801 movement uses CPT Record date instead of 701 type dates

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"401 ",$S(ERR4=2:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR4=2:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+51
Function Call: WRITE
  • Prompt: !,"501 ",$S(ERR2=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR2=1:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+52
Function Call: WRITE
  • Prompt: !,"601 ",$S(ERR3=2:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR3=2:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+53
Function Call: WRITE
  • Prompt: !,"601 ",$S(ERR5=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR5=1:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+54
Function Call: WRITE
  • Prompt: !,"701 ",$S(ERR1=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR1=1:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+55
Function Call: WRITE
  • Prompt: !,"801 ",$S(ERR6=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR6=1:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+56
Info |  Source |  Entry Points |  Interaction Calls