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

Package: Registration

Routine: DGPTFM0


Information

DGPTFM0 ;ALB/MAC/ADL - ROUTINE TO DISPLAY PROCEDURE CODES ON THE MAS SCREEN IN PTF LOAD/EDIT ; AUG 1 1989@1200

Source Information

Source file <DGPTFM0.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 3 (,PRO,PRO1)^DGPTFM  CHK501^DGPTSCAN  (D,EXPL)^DGPTUTL  
DRG Grouper 2 ($$ICDDX,$$ICDOP)^ICDCODE  $$GETDATE^ICDGTDRG  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPTFM  DGPTFM1  

Entry Points

Name Comments DBIA/ICR reference
C ; -- help for surgery
EN
DX ; -- help for dx's
PRC
PD2
PD1
Q ; -- help for procedure
DEL
PD
D1
D

External References

Name Field # of Occurrence
^DGPTFM D+1, D1+1, DEL+4
PRO^DGPTFM EN+2
PRO1^DGPTFM EN+1, PRC
CHK501^DGPTSCAN DEL+3
D^DGPTUTL PD2
EXPL^DGPTUTL DEL
^DIE DEL+2
$$ICDDX^ICDCODE DX+3
$$ICDOP^ICDCODE PD1, C+2
$$GETDATE^ICDGTDRG PD1, C+2, DX+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: L3
  • Line Location: PD1+1
Function Call: WRITE
  • Prompt: ?L1*40,$J(P2,3)," ",$J(L4,7)," ",$E($P(L2,U,4),1,25)
  • Line Location: PD1+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: NL
  • Line Location: PD2+0
Function Call: WRITE
  • Prompt: ?L5*40,L6,"-Procedure date: ",Y
  • Line Location: PD2+0
Function Call: WRITE
  • Prompt: !!,"Enter the item #'s of the operation codes, 1-",S2,", that you wish to delete:"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?5,$J(L,2),": ",$J($P(DGPTTMP,"^",2),7)," - ",$E($P(DGPTTMP,"^",5),1,40)
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !!,"Enter the item #'s of the diagnoses, 1-",M2,", that you wish to delete:"
  • Line Location: DX+1
Function Call: WRITE
  • Prompt: !?5,$J(L,2),": ",$J($P(DGPTTMP,"^",2),7)," - ",$E($P(DGPTTMP,"^",4),1,40)
  • Line Location: DX+4
Function Call: WRITE
  • Prompt: !!,"Type the number of the procedure - not the procedure code -"
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !,"for the procedure you wish to delete.",!
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !,"However, this deletion function is not applicable"
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: !,"for procedures listed under 'Procedure date:' displays."
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !,"Delete these codes using the 601 screen functionality."
  • Line Location: Q+5
Function Call: WRITE
  • Prompt: !,"No codes to delete",!
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: " ",L,"-Deleted, "
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: DEL+2
Routine Call
  • DIE
  • Line Location:
    • DEL+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] EN, C+2, DX+3
^UTILITY($J DEL+2

Label References

Name Line Occurrences
D1 D1+1
DEL D
DX D1+1
EN PRC+1
PD EN+1
PD1 PD
PD2 EN+1

Naked Globals

Name Field # of Occurrence
^( EN, DEL+2
^(0 C+2, DX+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A D1+2*
A1 D1*, D1+1, D1+2, DEL+1!
>> DA DEL+2*
>> DA(1 DEL+1*, DEL+2*
>> DGA DEL+2
>> DGMOV DEL+3*
>> DGPTF DEL+3*
>> DGPTTMP PD1*, C+2*, C+3, DX+3*, DX+4
DGZDIAG PRC!
DGZPRO PRC!
DGZSER PRC!
>> DGZSUR PRC*
>> DIE DEL+1*
>> DP DEL+2*
DR DEL+2*!
DTIME D1
>> I EN*
>> I1 EN*, EN+1
>> J EN+1*, PD, PD1+1, PRC*, DEL+2*
>> J1 PD*, PD1+1
L PD*, PD1, C+2*, C+3, DX+3*, DX+4, DX+5!, DEL+2*
>> L1 PD*, PD1+1, DEL+2*, DEL+3
>> L2 PD1*, PD1+1
>> L3 PD*, PD1+1*
>> L4 PD1*, PD1+1
>> L5 EN+1*, PD2
>> L6 EN+1*, PD2
>> M2 DX+1, DX+3, D+1
>> NL EN+1*, PD2*
P EN!, EN+1*
P( EN*, EN+1, PD, PD2
P1 PRC!
P2 EN+1*, PD1*, PD1+1, PRC!*
P2( PD1+1!*
>> PTF EN, PD1, C+2, DX+3, DEL+1, DEL+2, DEL+3
>> S( C+2
>> S2 C+1, C+2
>> S2( C+2
>> ST EN+1, PRC*, PRC+1*
U PD, PD1, PD1+1, DEL+2
UTL DX+2*, DX+3, DX+5!
X DEL+1!
>> Y PD2*
>> Z D
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All