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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTIC10

Package: Registration

Routine: DGPTIC10


Information

DGPTIC10 ;ALB/AAS/PLT - PTF API TO ICD10 Remediation calls ;9/29/2011

Source Information

Source file <DGPTIC10.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 3 CEN^DGPTC1  ($$GET7DATE,$$IMPDATE)^DGPTIC10  PM^DGPTUTL  
DRG Grouper 2 ($$CODEC,$$VLT)^ICDEX  $$ICDDATA^ICDXCODE  
VA FileMan 2 ^DIC  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Lexicon Utility 1 $$IMPDATE^LEXU  

Caller Graph

Caller Graph Total: 60

Package Total Caller Graph
Registration 60 DG3PR2  DG401-10P  DG601  DG601-10P  DG701  DG701-10D  DGENA5  DGENLCD1  
DGICDGT  DGMSTR3  DGPT50DI  DGPT60PR  DGPT70DI  DGPT70DX  DGPTAE03  DGPTAE04  
DGPTDRG  DGPTEXPR  DGPTF4  DGPTF41  DGPTF5  DGPTFAPI  DGPTFD  DGPTFJC  
DGPTFM  DGPTFM0  DGPTFM1  DGPTFM3  DGPTFM4  DGPTFM5  DGPTFM6  DGPTFMO  
DGPTFQWK  DGPTFTR0  DGPTFTR2  DGPTFUT  DGPTFVC1  DGPTIC10  DGPTICD  DGPTOLC2  
DGPTR0  DGPTR2  DGPTR4  DGPTRI0  DGPTRI2  DGPTRI3  DGPTRI4  DGPTSUDO  
DGPTTS  DGPTTS1  DGPTUTL  DGPTX5  DGPTX7  DGX4  DGX5  DGX5F  
DGX5FD  DGX6  DGX7  ^DIC(45.89  

Entry Points

Name Comments DBIA/ICR reference
GCOUT ;
DRQ ;
CODESYS(PTFIEN) ; returns coding system for a PTF Based on Discharge Date
; -- called from DG701 template
WRITECOD(FILE,IEN,DATE,FRMT,RETURN,TAB) ;
G5OUT ;
INPUT() ; - Input transform for 27.27;9 S X=$$INPUT^DGPTIC10() K:X<1 X
G7OUT
G6OUT ;
ICDNAME() ; -- Called from PTF EXPANDED CODE file (45.89) field Name (#200)
; -- Determines ICD Code name using supported API's
; Replaces direct global reads in computed Expression
GET7DATE(PATNUM) ; FROM icdgtdrg
EFFDATE(DGPTF,DGTYPE,DGMOVE,DGCSYS) ;-- build ICD-10 Implementation date / effective date
GET5DATE(PATNUM,MOVE) ; FROM icdgtdrg
SDAT() ; ask for start date
GETLABEL(EVDATE,CODESYS) ; returns ICD label for printing
; CODESYS - D for diagnosis or P for Procedures
; EVDATE - event date to use for determine label (discharge, movement date, etc.
CENSUSQ ;
GET8DATE(PATNUM) ; GET CPT RECORD DATE FOR 801 SERVICE
GETCODS(CODESYS,DATE) ; - Returns coding system for a date
CSQ
TDAT(DGSDAT) ; ask for end date
GETCDATE(PATNUM,CPT) ;
IMPDATE(CODESYS) ; - calls IMPDATE^LEXU(CODESYS)
; CODESYS: 10D = diagnosis, 10P = procedure
GETCODSY(CSYS,IEN,DATE) ; -- RETURN IF THIS IS ICD9 OR ICD10
; returns 20th piece of call to ICDDATA^ICDxcode
EQ
CENSUS(DGPTF) ; display warning to user for ICD-10 transition census records
DATERANG ; Get an ICD-10 compliant date range
EFFDAT1(DGPTDAT) ;-- build ICD-10 Implementation date / effective date
GET6DATE(PATNUM,PROC,DGI) ; FROM icdgtdrg
DISPLY(FILE,IEN,DATE,FRMT) ; -- return the Code - Description for a code
PREV ;

External References

Name Field # of Occurrence
CEN^DGPTC1 CODESYS+10, GET7DATE+14, GET5DATE+12, GET6DATE+15, GETCDATE+12, CENSUS+13
$$GET7DATE^DGPTIC10 EFFDATE+9
$$IMPDATE^DGPTIC10 EQ, EFFDAT1+3, DATERANG+2, TDAT+3
PM^DGPTUTL CODESYS+9, GET7DATE+13, GET5DATE+11, GET6DATE+14, GETCDATE+11
^DIC INPUT+4
^DIR SDAT+3, TDAT+7
$$CODEC^ICDEX DISPLY+8
$$VLT^ICDEX DISPLY+9, ICDNAME+11, ICDNAME+12
$$ICDDATA^ICDXCODE GETCODSY+2
$$IMPDATE^LEXU IMPDATE+3
$$FMADD^XLFDT TDAT+6
$$FMTE^XLFDT DATERANG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @RETURN,?TAB,X
  • Line Location: WRITECOD+9
Function Call: WRITE
  • Prompt: @RETURN,?TAB,$E(X,1,DGSPACE)
  • Line Location: WRITECOD+22
Function Call: WRITE
  • Prompt: !,?TAB2," ",$E(X,DGSPACE+1,$L(X))
  • Line Location: WRITECOD+24
Function Call: WRITE
  • Prompt: !,?TAB2," ",$E(X1,1,DGSPACE2)
  • Line Location: WRITECOD+31
Function Call: WRITE
  • Prompt: !,?TAB2," ",$E(X1,DGSPACE2+1,$L(X1))
  • Line Location: WRITECOD+32
Function Call: WRITE
  • Prompt: !!,"ICD-10 Implementation Date: ",$$FMTE^XLFDT(IMPDATE),!
  • Line Location: DATERANG+3
Function Call: WRITE
  • Prompt: !!,?10,"Start date is before ICD-10 implementation.",!,?10,"End date must be before ICD-10 implementation",!
  • Line Location: TDAT+5
Function Call: WRITE
  • Prompt: !!,?5,"Note: This PTF record is OPEN for CENSUS."
  • Line Location: CENSUS+22
Function Call: WRITE
  • Prompt: !,?7,"Census requires ICD-9 codes."
  • Line Location: CENSUS+23
Function Call: WRITE
  • Prompt: !,?7,"PTF will require ICD-10 codes after the census is closed.",!
  • Line Location: CENSUS+24
Routine Call
  • DIC
  • Line Location:
    • INPUT+4
Routine Call
  • DIR
  • Line Location:
    • SDAT+3
    • TDAT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(45.86 - [#45.86] CODESYS+7, CODESYS+12, GET7DATE+11, GET7DATE+16, GET5DATE+9, GET5DATE+14, GET6DATE+12, GET6DATE+17, GETCDATE+9, GETCDATE+14
, CENSUS+19
^DGPT - [#45] CODESYS+3, CODESYS+7, CODESYS+14, GET8DATE+2, GET7DATE+7, GET7DATE+11, GET7DATE+19, GET5DATE+9, GET5DATE+17, GET5DATE+18
, GET6DATE+12, GET6DATE+20, GET6DATE+23, GET6DATE+24, GETCDATE+9, GETCDATE+17
^DIC(45.89 - [#45.89] ICDNAME+8, ICDNAME+10

Label References

Name Line Occurrences
$$DISPLY WRITECOD+8
$$GET8DATE EFFDATE+10
$$GETCODS CODESYS+3, CSQ
$$IMPDATE GETCODS+2, GETLABEL+5, GETLABEL+6
$$SDAT DATERANG+4
$$TDAT DATERANG+5
CENSUSQ CENSUS+15, CENSUS+16
CSQ CODESYS+7, CODESYS+12
DRQ DATERANG+4
EFFDATE CENSUS+20
EQ EFFDATE+4
G5OUT GET5DATE+9, GET5DATE+19
G6OUT GET6DATE+10, GET6DATE+12, GET6DATE+25
G7OUT GET7DATE+11, GET7DATE+16, GET7DATE+20, GET7DATE+21, GET5DATE+14, GET6DATE+17, GETCDATE+14
GCOUT GETCDATE+9, GETCDATE+18

Naked Globals

Name Field # of Occurrence
^(0 INPUT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMDATE GET7DATE+6~, GET7DATE+7*
CAT INPUT+1~, INPUT+2*, INPUT+3
CENDATE CENSUS+8~, CENSUS+19*, CENSUS+21
CODE DISPLY+1~, DISPLY+8*, DISPLY+11*, DISPLY+13, DISPLY+14
CODESYS IMPDATE~, IMPDATE+2*, IMPDATE+3, GETCODS~, GETCODS+2, GETLABEL~, GETLABEL+5, GETLABEL+6
CPT GETCDATE~
CSYS GETCODSY~, GETCODSY+2
>> D0 ICDNAME+4, ICDNAME+5*, ICDNAME+8, ICDNAME+10
>> DA ICDNAME+4, ICDNAME+5
DATE GETCODSY~, GETCODSY+2, GETCODS~, GETCODS+4, GETCODS+5, DISPLY~, DISPLY+9, WRITECOD~, WRITECOD+8
DESC DISPLY+1~, DISPLY+9*, DISPLY+12*, DISPLY+13, DISPLY+14
>> DGCN CODESYS+12, GET7DATE+16, GET5DATE+14, GET6DATE+17, GETCDATE+14, CENSUS+19
>> DGCPTDT EFFDATE+10*
>> DGCST CODESYS+12, GET7DATE+16, GET5DATE+14, GET6DATE+17, GETCDATE+14, CENSUS+15, CENSUS+16, CENSUS+19
DGCSYS EFFDATE~, EFFDATE+3*, EQ
>> DGEDATE DATERANG+5*
DGFEE EFFDATE+1~, EFFDAT1+1~, CODESYS+2~, GETCODS+1~, GET7DATE+6~, GET5DATE+7~, GET6DATE+8~, GETCDATE+7~
DGI GET6DATE~, GET6DATE+22, GET6DATE+23, GET6DATE+24
DGIOM WRITECOD+1~, WRITECOD+6*, WRITECOD+9, WRITECOD+11, WRITECOD+23, WRITECOD+26
DGMOVE EFFDATE~, EFFDATE+7*
DGPARSE WRITECOD+1~, WRITECOD+11*, WRITECOD+12*, WRITECOD+14, WRITECOD+26*, WRITECOD+29
DGPARSE2 WRITECOD+1~
>> DGPMCA CODESYS+9, GET7DATE+13, GET5DATE+11, GET6DATE+14, GETCDATE+11
>> DGPRD GET8DATE+1
DGPTDAT EFFDATE+4*, EFFDATE+9*, EFFDATE+10*, EFFDAT1~, EFFDAT1+2, EFFDAT1+4, EFFDAT1+6, CENSUS+8~
DGPTF EFFDATE~, EFFDATE+4, EFFDATE+9, EFFDATE+10, CENSUS~, CENSUS+20
>> DGPTF0 CODESYS+10*, GET7DATE+14*, GET5DATE+12*, GET6DATE+15*, GETCDATE+12*, CENSUS+13*
DGSAVE CODESYS+10~*, GET7DATE+14~*, GET5DATE+12~*, GET6DATE+15~*, GETCDATE+12~*, CENSUS+13~*
DGSDAT TDAT~, TDAT+2, TDAT+4, TDAT+6
DGSDATE DATERANG+1~, DATERANG+4*, DATERANG+5
DGSPACE WRITECOD+1~, WRITECOD+15*, WRITECOD+22, WRITECOD+23, WRITECOD+24, WRITECOD+27
DGSPACE2 WRITECOD+1~, WRITECOD+30*, WRITECOD+31, WRITECOD+32
DGTEMP EFFDATE+1~, EQ*, EQ+1, EFFDAT1+1~, EFFDAT1+3*, EFFDAT1+5, EFFDAT1+6
DGTYPE EFFDATE~, EFFDATE+2*, EFFDATE+5*, EFFDATE+6*, EFFDATE+9, EFFDATE+10
>> DGZP GET8DATE+2
DIC INPUT+4!*
>> DIE INPUT+4
DIR SDAT+1~, SDAT+3!, TDAT+1~, TDAT+7!
DIR("A" SDAT+2*, TDAT+2*
DIR(0 SDAT+2*, TDAT+2*, TDAT+6*
DISDATE CODESYS+2~, CODESYS+7*, CODESYS+12*, CODESYS+14*, CODESYS+15*, CSQ, GET7DATE+19*, GET7DATE+20, GET7DATE+21, GET5DATE+17*
, GET5DATE+19, GET6DATE+20*, GET6DATE+22, GET6DATE+25, GETCDATE+17*, GETCDATE+18
DT EFFDATE+4, CODESYS+3, CODESYS+15, GET8DATE+3, GET7DATE+21, GET7DATE+23, GET5DATE+21, GET6DATE+10, GET6DATE+22, GET6DATE+26
, GETCDATE+20, SDAT+2, TDAT+2, TDAT+4, CENSUS+21
DTOUT SDAT+1~, SDAT+4, TDAT+1~, TDAT+8
DUOUT SDAT+1~, SDAT+4, TDAT+1~, TDAT+8
EFFD GET8DATE+1*, GET8DATE+2*, GET8DATE+3*, GET8DATE+4, GET7DATE+6~, GET7DATE+11*, GET7DATE+16*, GET7DATE+20*, GET7DATE+21*, GET7DATE+23*
, G7OUT, GET5DATE+7~, GET5DATE+9*, GET5DATE+14*, GET5DATE+19*, GET5DATE+21*, G5OUT+1, GET6DATE+8~, GET6DATE+10*, GET6DATE+12*
, GET6DATE+17*, GET6DATE+25*, GET6DATE+26*, G6OUT+1, GETCDATE+7~, GETCDATE+9*, GETCDATE+14*, GETCDATE+18*, GETCDATE+20*, GCOUT+1
EFFDATE EFFDATE+4*, EFFDATE+9*, EFFDATE+10*, EFFDAT1+4*, EFFDAT1+6*, CENSUS+8~
ENTRY ICDNAME+6~, ICDNAME+8*, ICDNAME+9, ICDNAME+10, ICDNAME+11, ICDNAME+12
EVDATE GETLABEL~, GETLABEL+5, GETLABEL+6
FILE DISPLY~, DISPLY+2*, DISPLY+3*, DISPLY+4, DISPLY+8, DISPLY+9, WRITECOD~, WRITECOD+8
FRMT DISPLY~, DISPLY+6*, DISPLY+7*, DISPLY+13, DISPLY+14, WRITECOD~, WRITECOD+8, WRITECOD+17, WRITECOD+20
I EFFDATE+1~, WRITECOD+1~, WRITECOD+14*, WRITECOD+15, WRITECOD+18*, WRITECOD+29*, WRITECOD+30
ICDVER GETLABEL+3~, GETLABEL+4*, GETLABEL+5*, GETLABEL+6*, GETLABEL+7, INPUT+1~, INPUT+3*
IEN GETCODSY~, GETCODSY+2, DISPLY~, DISPLY+5, DISPLY+8, DISPLY+9, WRITECOD~, WRITECOD+8
IMPDATE EQ+1*, EFFDAT1+5*, EFFDAT1+6, GETCODS+1~, GETCODS+2*, GETCODS+3, GETCODS+4, GETCODS+5, GET7DATE+6~, GET5DATE+7~
, GET6DATE+8~, GETCDATE+7~, DATERANG+1~, DATERANG+2*, DATERANG+3, TDAT+3*, TDAT+4, TDAT+6, CENSUS+8~, CENSUS+21
IOM WRITECOD+6
J EFFDATE+1~
MOVDATE GET5DATE+7~, GET5DATE+18*, GET6DATE+8~, GET6DATE+22*, GET6DATE+23*, GET6DATE+24*, GETCDATE+7~
MOVE GET5DATE~, GET5DATE+18
PATNUM GET8DATE~, GET8DATE+2, GET7DATE~, GET7DATE+7, GET7DATE+11, GET7DATE+13, GET7DATE+19, GET5DATE~, GET5DATE+9, GET5DATE+11
, GET5DATE+17, GET5DATE+18, GET6DATE~, GET6DATE+9*, GET6DATE+10, GET6DATE+12, GET6DATE+14, GET6DATE+20, GET6DATE+23, GET6DATE+24
, GETCDATE~, GETCDATE+9, GETCDATE+11, GETCDATE+17
PROC GET6DATE~, GET6DATE+9, GET6DATE+23, GET6DATE+24
PTF CODESYS+9*, GET7DATE+6~, GET7DATE+13*, GET5DATE+11*, GET6DATE+14*, GETCDATE+11*, CENSUS+10
PTFIEN CODESYS~, CODESYS+3, CODESYS+7, CODESYS+9, CODESYS+14
PTR CODESYS+7*, GET7DATE+6~, GET7DATE+11*, GET5DATE+7~, GET5DATE+9*, GET6DATE+8~, GET6DATE+12*, GETCDATE+7~, GETCDATE+9*
RETURN WRITECOD~, WRITECOD+2*, WRITECOD+5*, WRITECOD+9, WRITECOD+22
SIZE WRITECOD+1~, WRITECOD+4*, WRITECOD+9, WRITECOD+22
TAB WRITECOD~, WRITECOD+2*, WRITECOD+3*, WRITECOD+4, WRITECOD+9, WRITECOD+11, WRITECOD+12, WRITECOD+20, WRITECOD+22
TAB1 WRITECOD+1~, WRITECOD+17*, WRITECOD+18*, WRITECOD+19
TAB2 WRITECOD+1~, WRITECOD+19*, WRITECOD+20*, WRITECOD+23, WRITECOD+24, WRITECOD+26, WRITECOD+31, WRITECOD+32
TYPE ICDNAME+6~, ICDNAME+10*, ICDNAME+11, ICDNAME+12
U EFFDATE+2, EQ+1, EFFDAT1+5, EFFDAT1+6, CODESYS+7, CODESYS+12, GET8DATE+4, GET7DATE+7, GET7DATE+11, GET7DATE+16
, GET7DATE+19, GET5DATE+9, GET5DATE+14, GET5DATE+17, GET5DATE+18, GET6DATE+12, GET6DATE+17, GET6DATE+20, GET6DATE+23, GET6DATE+24
, GETCDATE+9, GETCDATE+14, GETCDATE+17, GETLABEL+5, GETLABEL+6, ICDNAME+8, ICDNAME+10, INPUT+2, CENSUS+19
VERSION GETCODS+1~, GETCODS+4*, GETCODS+5*, GETCODS+6, ICDNAME+8*, ICDNAME+10*
X EFFDATE+1~, CODESYS+2~, GET7DATE+6~, GET5DATE+7~, GET6DATE+8~, GETCDATE+7~, WRITECOD+1~, WRITECOD+8*, WRITECOD+9, WRITECOD+14
, WRITECOD+17, WRITECOD+18, WRITECOD+22, WRITECOD+23, WRITECOD+24, WRITECOD+27, ICDNAME+6~, ICDNAME+7*, ICDNAME+9, ICDNAME+11*
, ICDNAME+12*, ICDNAME+13, INPUT+4*!, INPUT+5, CENSUS+8~
X1 EFFDATE+2, WRITECOD+1~, WRITECOD+27*, WRITECOD+29, WRITECOD+31, WRITECOD+32
Y EFFDATE+1~, CODESYS+2~, GET7DATE+6~, GET5DATE+7~, GET6DATE+8~, GETCDATE+7~, INPUT+4, SDAT+1~, SDAT+5, TDAT+1~
, TDAT+9, CENSUS+8~
Y(0 INPUT+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All