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 - CLOSED PTF ;7/28/05 1:08pm

Source Information

Source file <DGPTFJC.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 8 Q^DGPTF  ACT1^DGPTF41  (,HELP)^DGPTFJ  ^DGPTFM  NEXP^DGPTFM2  NEXM^DGPTFM4  NEXM^DGPTFM5  NEXP^DGPTFM6  
DRG Grouper 3 ($$ICDDX,$$ICDOP)^ICDCODE  $$GETDATE^ICDGTDRG  $$CPT^ICPTCOD  

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
MAS
EN ; DG*636
601
EN6
READ ; -- read X
H
701 ;
EN1
EN2
EN3
EN4
EN5
401
801
101
501

External References

Name Field # of Occurrence
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
$$ICDDX^ICDCODE EN+17, EN3, EN3+5, EN4, EN5
$$ICDOP^ICDCODE EN1, EN1+4, EN2
$$GETDATE^ICDGTDRG EN+2, EN1, EN2, EN3, EN4, EN6+1
$$CPT^ICPTCOD EN6+1

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
  • Timeout: DTIME
  • Variable: X
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !,"Cannot use ",$S($D(^ICD9(+Y,0)):$P(^(0),U),1:"")," with ",$S($D(^ICD9(I,0)):$P(^(0),U),1:"")
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,"Cannot enter the same code more than once within a ",$S(DGSB="S":"401",1:"601")," transaction"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"Cannot use ",$P(DGICD0,U,2)," with ",$S(+DGPTTMP2>0:$P(DGPTTMP2,U,2),1:"")
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,$P(DGICD0,U,2)," requires additional code."
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !,"Cannot use ",$P($G(DGPTTMP),U,2)," with ",$S(+DGPTTMP2>0:$P(DGPTTMP2,U,2),1:"")
  • Line Location: EN3+5
Function Call: WRITE
  • Prompt: !,$S(+DGPTTMP>0:$P(DGPTTMP,U,2),1:"")," requires additional code."
  • Line Location: EN3+7
Function Call: WRITE
  • Prompt: !,"Cannot use ",$S($D(^ICD9(+Y,0)):$P(^(0),U),1:"")," with ",$S($D(^ICD9(I,0)):$P(^(0),U),1:"")
  • Line Location: EN4+4
Function Call: WRITE
  • Prompt: !,$P(N,U,2)," requires additional code."
  • Line Location: EN4+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCPT(46 - [#46] EN5+2, EN6+2
^DGPT - [#45] EN+6, EN+8, EN+20, EN+21, EN+22, EN+23, EN1+1, EN1+2, EN1+4, EN1+5
, EN2+1, EN2+2, EN3+2, EN3+3, EN3+4, EN4+2, EN4+3, EN5+1
^DPT - [#2] EN+20, EN1+1, EN2+1, EN3+2, EN4+2, EN5+1
^ICD0 - [#80.1] EN1+4, EN1+5
^ICD9 - [#80] EN+22, EN+23, EN3+5, EN3+6, EN4+4, EN4+5

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
READ 101+1, MAS+1, 401+2, 501+1, 601+1, 801+1

Naked Globals

Name Field # of Occurrence
^( EN6+2
^("401P" EN2+2
^(0 EN+20, EN+22, EN1+1, EN2+1, EN3+2, EN4+2, EN4+3, EN4+4, EN5+1, EN6
, EN6+2
^(1 EN6+2
^(70 EN3+3
^(71 EN3+4
^(9 EN6+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+21*, EN+22, EN+23, EN1+2*, EN1+4, EN1+5, EN2+2*, EN3+3*, EN3+4*, EN3+5
, EN3+6, EN4+3*, EN4+4, EN4+5
>> DA EN+21, EN+22, EN+23, EN1+2, EN1+4, EN1+5, EN2, EN2+1, EN2+2, EN3
, EN3+2, EN3+3, EN3+4, EN4, EN4+3, EN5+2, EN6+1
>> DA(1 EN+2, EN+6, EN+8, EN+20, EN+21, EN+22, EN+23, EN1, EN1+1, EN1+2
, EN1+4, EN1+5, EN4+3
>> DA(2 EN4+2, EN4+3
>> DG1 EN+23*, EN+24, EN1+5*, EN1+6, EN3+6*, EN3+7, EN4+5*, EN4+6
>> DGADD EN+8
>> DGCR EN1+4, EN1+5
>> DGER EN+2*, EN+17*, EN+20*, EN+21*, EN+22*, EN+23, EN1*, EN1+1*, EN1+4*, EN1+5
, EN2*, EN2+1*, EN2+2*, EN3*, EN3+1*, EN3+2*, EN3+4*, EN3+5*, EN3+6, EN4*
, EN4+1*, EN4+2*, EN4+3*, EN4+4*, EN4+5, EN5*, EN5+1*, EN5+2*, EN6*, EN6+1*
, EN6+2*
>> DGI EN+21, EN1+2, EN2+2, EN3+1, EN3+4, EN4+1, EN4+3
>> DGICD0 EN1*, EN1+1, EN1+4, EN1+6
>> DGMOV EN+8
>> DGNUM MAS, 401*, 401+1, 501, 601, 801
>> DGPMT EN+16
>> DGPRD EN6+2
>> DGPTDAT EN+2*, EN+6, EN+11*, EN+13*, EN+14*, EN+15*, EN+17, EN1*, EN1+4, EN3+5
DGPTMVDT EN+6~*, EN+8*, EN+9, EN+11, EN+13, EN+14, EN+15
>> DGPTOUT READ+1*
>> DGPTTMP EN+17*, EN+20, EN+24, EN2*, EN2+1, EN3*, EN3+1, EN3+2, EN3+5, EN3+7
, EN5*, EN5+1
>> DGPTTMP2 EN1+4*, EN3+5*
>> DGQWK EN+16
>> DGSB EN1+2, EN1+4, EN1+5
>> DGZDIAG MAS+2
DGZM0 EN+5*, EN+6, EN+16!
>> DGZP EN5
>> DGZPRF MAS+2
>> DGZPRF( EN5
>> DGZPRO MAS+2
>> DGZS0 401
>> DGZSER MAS+2
>> DGZSUR MAS+2
DTIME READ+1
>> I EN+22*, EN+23*, EN1+4*, EN1+5*, EN3+5*, EN3+6*, EN4+4*, EN4+5*
>> J MAS+2
>> K EN+2*, EN+20*, EN1*, EN1+1*, EN2*, EN2+1*, EN3*, EN3+2*, EN4*, EN4+2*
, EN5*, EN5+1*, EN5+2*
L EN2+2*, EN6+2*, EN6+3!
>> M( EN+5*, EN+6, EN+16!
>> N EN4*, EN4+1, EN4+2, EN4+6, EN6+1*
>> PTF EN5+1, EN6+2
>> S( 401
>> ST MAS+2*
>> ST1 MAS+2*
U 101+1, MAS+1, MAS+2, 401+2, 501+1, 601+1, 801+1, EN+6, EN+8, EN+17
, EN+20, EN+21, EN+22, EN+24, EN1, EN1+1, EN1+2, EN1+4, EN1+6, EN2
, EN2+1, EN2+2, EN3, EN3+1, EN3+2, EN3+3, EN3+4, EN3+5, EN3+6, EN3+7
, EN4, EN4+1, EN4+2, EN4+3, EN4+4, EN4+5, EN4+6, EN5, EN5+1, EN5+2
, EN6, EN6+2
>> X 101+1, MAS+1, MAS+2, 401+2, 501+1, 601+1, 801+1, READ+1*
>> Y EN+17, EN+21, EN+22, EN+23, EN1, EN1+4, EN1+5, EN2, EN2+2, EN3
, EN3+4, EN3+5, EN3+6, EN4, EN4+3, EN4+4, EN4+5, EN5, EN5+2, EN6+1
, EN6+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All