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

Package: Registration

Routine: DGPTFJC


Information

DGPTFJC ;ALB/ADL,HIOFT/FT - CLOSED PTF ;12/12/14 2:15pm

Source Information

Source file <DGPTFJC.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 9 Q^DGPTF  ACT1^DGPTF41  (,HELP)^DGPTFJ  ^DGPTFM  NEXP^DGPTFM2  NEXM^DGPTFM4  NEXM^DGPTFM5  NEXP^DGPTFM6  
EFFDATE^DGPTIC10  
DRG Grouper 3 ($$CODEC,$$NOT,$$REQ)^ICDEX  $$GETDATE^ICDGTDRG  $$ICDDATA^ICDXCODE  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
VA FileMan 1 EN^DDIOL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Registration 6 DGPTF1  DGPTFM  DGPTFM2  DGPTFM4  DGPTFM5  DGPTFM6  

Entry Points

Name Comments DBIA/ICR reference
101
H
MAS
401
501
601
701 ;
801
READ ; -- read X
EN ; DG*636 ; DG*5.3*850
; Called from Diagnosis fields in 501 movements
; Variable DGN is passed globally as a node identifier
EN1 ; called from 601 movement procedure codes and 401 Surgical operations
EN2 ; Called from 701 movement procedure codes
EN3 ;Called from 701 movement diagnosis fields (top level)
; - EFFDATE := date of interest e.g. patient discharge date
; - IMPDATE := ICD-10 implementation date
; - DGTEMP := temp variable to hold data from $$IMPDATE^DGPTIC10
EN4 ; called from ??
EN5 ; DG*5.3*850
; called from the diagnosis input transforms in file 46
EN6 ; -- called from file 46; .01 field
REQ(DX,STRING) ; - is another ICD code required with this code
; -- input DX - code being entered
; STRING - string of code iens already entered for movement ("^123^456^789^")
; -- output - writes message if another code is required
NOT(DX,STRING) ; - is icd code not to use with existing codes
; -- input DX - code being entered
; STRING - string of code iens already entered for movement ("^123^456^789^")
; -- output DGER :=1 if error
; writes message if not allowed
MSG(TEXT) ;

External References

Name Field # of Occurrence
EN^DDIOL MSG+1
Q^DGPTF 101+1, MAS+1, 401+2, 501+1, 601+1, 801+1
ACT1^DGPTF41 701+1
^DGPTFJ 101+1, MAS+1, 401+2, 501+1, 601+1, 801+1
HELP^DGPTFJ H
^DGPTFM 101+1
NEXP^DGPTFM2 801+1
NEXM^DGPTFM4 501+1
NEXM^DGPTFM5 401+2
NEXP^DGPTFM6 601+1
EFFDATE^DGPTIC10 EN+5, EN1+11, EN2+3, EN3+7, EN5+3
$$CODEC^ICDEX NOT+15
$$NOT^ICDEX NOT+11
$$REQ^ICDEX REQ+8
$$GETDATE^ICDGTDRG EN4+1, EN6+5
$$ICDDATA^ICDXCODE EN+22, EN1+14, EN1+17, EN1+19, EN2+4, EN3+9, EN4+1, EN5+4
$$CPT^ICPTCOD EN6+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <MAS>,'^' to Abort: <MAS>//"
  • Line Location: 101+0
Function Call: WRITE
  • Prompt: !
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: MAS+0
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: 401+1
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: 501+0
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: 601+0
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: 801+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !,"Cannot enter the same code twice."
  • Line Location: EN+34

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCPT(46 - [#46] EN5+10, EN6+6
^DGPT - [#45] EN+11, EN+13, EN+30, EN+34, EN+36, EN1+25, EN2+10, EN2+13, EN3+18, EN3+22
, EN3+23, EN4+3, EN4+4, EN5+7
^DPT - [#2] EN+30, EN1+25, EN2+10, EN3+18, EN4+3, EN5+7
^TMP("DGPTF-N" NOT+7!, NOT+13, NOT+14, NOT+16!
^TMP("DGPTF-R" REQ+6!, REQ+10, REQ+11, REQ+13!

Label References

Name Line Occurrences
101 101+1
401 401+2
501 501+1
601 601+1
801 801+1
@( MAS+2
H 101+1, MAS+3, 401+2, 501+1, 601+1, 801+1
MAS MAS+3
MSG EN+23, EN+24, EN+31, EN1+26, EN2+11, EN2+16, EN3+10, EN3+11, EN3+14, EN3+19
, EN3+26, EN4+3, EN5+5, EN5+8, EN5+10, REQ+12, NOT+15
NOT EN+37, EN3+28, EN4+5
READ 101+1, MAS+1, 401+2, 501+1, 601+1, 801+1
REQ EN+39, EN3+31, EN4+7

Naked Globals

Name Field # of Occurrence
^( EN6+6
^("401P" EN2+13
^(0 EN+30, EN1+25, EN2+10, EN3+18, EN4+3, EN4+4, EN5+7, EN6+6
^(1 EN6+6
^(61 EN6+4
^(70 EN3+22
^(71 EN3+23
^(9 EN6+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+36*, EN+37, EN+39, EN2+14*, EN3+22*, EN3+23*, EN3+26*, EN3+28, EN3+31, EN4+4*
, EN4+5, EN4+7
>> DA EN+34, EN+36, EN2+3, EN2+10, EN2+13, EN3+7, EN3+18, EN3+22, EN3+23, EN4+1
, EN4+4, EN5+10, EN6+5
>> DA(1 EN+5, EN+11, EN+13, EN+30, EN+34, EN+36, EN1+11, EN1+25, EN4+4
>> DA(2 EN4+3, EN4+4, EN4+7
>> DG1 REQ+10, REQ+11*, REQ+12
>> DGADD EN+13
>> DGER EN+6*, EN+23*, EN+24*, EN+34*, EN+38, EN1+1*, EN1+21*, EN2+1*, EN2+6*, EN2+16*
, EN3+9*, EN3+10*, EN3+11*, EN3+14*, EN3+26*, EN3+29, EN4+1*, EN4+2*, EN4+3*, EN4+4*
, EN4+6, EN5+4*, EN5+5*, EN5+8*, EN5+10*, EN6+4*, EN6+5*, EN6+6*, NOT+8*, NOT+13
, NOT+14*
DGI EN2+14, EN2+15, EN3+14, EN3+26, EN4+2, EN4+4, REQ+5~, REQ+10*, NOT+6~, NOT+13*
>> DGICD0 EN1+14*, EN1+17*, EN1+19*, EN1+21, EN1+25, EN1+26
DGINAC EN+4~, EN+24*, EN3+5~, EN3+11*
>> DGMOV EN+13
>> DGNUM MAS, 401*, 401+1, 501, 601, 801
>> DGPMT EN+21
>> DGPRD EN6+6
DGPRDT EN1+13~*, EN1+14, EN1+15, EN1+17, EN1+19
>> DGPROCD EN1+13
>> DGPROCI EN1+13
DGPTDAT EN+11, EN+16*, EN+18*, EN+19*, EN+20*, EN1+3~, EN2+2~
DGPTMVDT EN+11~*, EN+13*, EN+14, EN+16, EN+18, EN+19, EN+20
>> DGPTOUT READ+1*
>> DGPTTMP EN+22*, EN+23, EN+24, EN+30, EN+31, EN2+4*, EN2+6, EN2+10, EN2+11, EN3+9*
, EN3+10, EN3+11, EN3+14, EN3+18, EN3+19, EN5+4*, EN5+5, EN5+7, EN5+8, REQ+12
>> DGQWK EN+21
DGTEMP EN+4~, EN1+3~, EN2+2~, EN3+5~, EN5+2~
>> DGZDIAG MAS+2
DGZM0 EN+10*, EN+11, EN+21!
>> DGZPRF MAS+2
>> DGZPRO MAS+2
>> DGZS0 401
>> DGZSER MAS+2
>> DGZSUR MAS+2
DTIME READ+1
DX REQ~, REQ+7, REQ+8, NOT~, NOT+9, NOT+11, NOT+15
DZ REQ+5~, REQ+10*, REQ+11, NOT+6~, NOT+13*, NOT+14
EFFDATE EN+4~, EN+22, EN+24, EN1+3~, EN1+14, EN1+17, EN2+2~, EN2+4, EN3+5~, EN3+9
, EN3+11, EN5+2~, EN5+4
I REQ+5~, REQ+10*, NOT+6~, NOT+13*
IEN REQ+5~, REQ+11*, NOT+6~, NOT+14*, NOT+15
IMPDATE EN+4~, EN1+3~, EN1+17, EN2+2~, EN3+5~, EN5+2~
>> J MAS+2
>> K EN+6*, EN+31*, EN1+1*, EN1+26*, EN2+1*, EN2+11*, EN3+9*, EN3+19*, EN4+1*, EN4+3*
, EN5+4*, EN5+8*, EN5+10*
L EN2+13*, EN2+14, EN2+15*, EN2+16, EN6+6*, EN6+7!
M( EN+10*, EN+11, EN+21!
>> N EN4+1*, EN4+2, EN4+3, EN6+5*
>> PTF EN5+3, EN5+7, EN6+6
>> S( 401
>> ST MAS+2*
>> ST1 MAS+2*
STRING REQ~, REQ+11, NOT~, NOT+14
TEXT MSG~, MSG+1
U 101+1, MAS+1, MAS+2, 401+2, 501+1, 601+1, 801+1, EN+11, EN+13, EN+24
, EN+30, EN+31, EN+36, EN1+21, EN1+25, EN1+26, EN2+6, EN2+10, EN2+11, EN2+13
, EN2+14, EN2+15, EN3+11, EN3+14, EN3+18, EN3+19, EN3+22, EN3+23, EN3+26, EN4+1
, EN4+2, EN4+3, EN4+4, EN5+5, EN5+7, EN5+8, EN5+10, EN6+6, REQ+11, REQ+12
, NOT+14
>> X 101+1, MAS+1, MAS+2, 401+2, 501+1, 601+1, 801+1, READ+1*
>> Y EN+22, EN+34, EN+37, EN+39, EN1+14, EN1+17, EN1+19, EN2+4, EN2+16, EN3+9
, EN3+26, EN3+28, EN3+31, EN4+1, EN4+4, EN4+5, EN4+7, EN5+4, EN5+10, EN6+5
, EN6+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All