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 |  FileMan Files Accessed Via FileMan Db Call |  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/PLT - 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

Call Graph Total: 9

Package Total Call Graph
Registration 5 (,PRO,PRO1,WR)^DGPTFM  PTFICD^DGPTFUT  ($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  CHK501^DGPTSCAN  (D,EXPL)^DGPTUTL  
VA FileMan 3 ^DIE  $$FLDNUM^DILFD  ^DIR  
DRG Grouper 1 $$ICDDATA^ICDXCODE  

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

Package Total Caller Graph
Registration 2 DGPTFM  DGPTFM1  

Entry Points

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

External References

Name Field # of Occurrence
^DGPTFM D+1, D1+1, DEL+4
PRO^DGPTFM EN+6
PRO1^DGPTFM EN+5, PRC+4
WR^DGPTFM PD1+6
PTFICD^DGPTFUT PD+2
$$GETLABEL^DGPTIC10 PD2+1
EFFDATE^DGPTIC10 EN+2
WRITECOD^DGPTIC10 PD1+4, C+3, DX+5, Q+3, Q1+5
CHK501^DGPTSCAN DEL+3
D^DGPTUTL PD2+1
EXPL^DGPTUTL DEL
^DIE DEL+2
$$FLDNUM^DILFD DEL+2
^DIR PGBR
$$ICDDATA^ICDXCODE PD1+2, DX+6, Q1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PD1+6
Function Call: WRITE
  • Prompt: !,L6,"-Procedure date: ",Y,$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: PD2+1
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),": "
  • Line Location: C+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: C+5
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),": "
  • Line Location: DX+5
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>73
  • Line Location: DX+7
Function Call: WRITE
  • Prompt: " (POA=",$S(DGMPOA]"":DGMPOA,1:"''"),")"
  • Line Location: DX+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DX+8
Function Call: WRITE
  • Prompt: !!,"Enter the item #'s of the procedure codes, 1-",P2,", that you wish to delete"
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !?5,$J(L,2),": "
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !!,"Type the number of the procedure code, 1-",P2P," for 401P transactions"
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !,"(admissions prior to 10/1/87) you wish to delete.",!
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !,$J(L,3)," "
  • Line Location: Q1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q1+7
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
Routine Call
  • DIR
  • Line Location:
    • PGBR

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
45.02 FLDNUM^DILFD

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
D1 D1+1
DEL D
DX D1+1
EN PRC+5
PD EN+5
PD1 PD+3
PD2 EN+5
PGBR PD1+6, C+5, DX+8, Q+4, Q1+7

Naked Globals

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

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
>> DGMMORE PRC+4
>> DGMOV DEL+3*
>> DGMPOA DX+6*, DX+7
>> DGPC EN+4*
>> DGPTF DEL+3*
DGPTTMP DX+4~, DX+6*, DX+7
DGX601 PD+2, PD+4!
DGX601( PD+3
DGZDIAG PRC+1!
DGZPRO PRC+1!
DGZSER PRC+1!
>> DGZSUR PRC+1*
>> DIE DEL+1*
DIR PGBR~
DIR("A" PGBR*
DIR(0 PGBR*
>> DP DEL+2*
DR DEL+2*!
DTIME D1
EFFDATE EN+1~, PD1+2, PD1+4, PD2+1, C+3, DX+5, DX+6, Q+3, Q1+4, Q1+5
>> I EN+3*
>> I1 EN+3*, EN+4, EN+5
IMPDATE EN+1~
IOF C+5, DX+8, Q+4, Q1+7
IOSL PD1+6, C+5, DX+8, Q+4, Q1+7
>> J EN+5*, PD+2, PD1+5, PRC+1*, DEL+2*
>> J1 PD+3*, PD1+5
J2 PD1+1~, PD1+2*, PD1+4
L PD+3*, PD1+2, PD1+4, PD1+5, C+2*, C+3, DX+3*, DX+5, DX+6, DX+10!
, Q+2*, Q+3, Q1+2*, Q1+4, Q1+5, DEL+2*
>> L1 PD+3*, PD1+4, PD1+5, DEL+2*, DEL+3
>> L3 PD+3*
>> L5 EN+5*
>> L6 EN+5*, PD2+1
>> M2 DX+1, DX+3, D+1
N Q1+3~, Q1+4*, Q1+6
>> NL EN+5*
P EN+3!, EN+5*
P( EN+3*!, PD+2, PD2+1, Q+2
P1 EN+3!, PRC+3!
P2 EN+3!, EN+5*, PD1+3*, PD1+4, PD1+5, PRC+3!*, Q+1, Q+2
P2( PD1+5!*, Q+2, Q+3
>> P2P Q1, Q1+2
>> P2P( Q1+2, Q1+4, Q1+5
>> PTF EN+2, EN+3, PD+2, C+2, Q+2, Q1+4, Q1+5, DEL+1, DEL+2, DEL+3
>> S( C+2
>> S2 C+1, C+2
>> S2( C+2, C+3
>> ST EN+5, PRC+3*, PRC+5*
U PD1+4, PD1+5, C+3, DX+3, DX+5, DX+6, DX+7, Q+3, Q1+4, Q1+5
, Q1+6, DEL+2
UTL DX+2*, DX+3, DX+5, DX+6, DX+10!
X DEL+1!, PGBR~
Y PD2+1*, PGBR~
>> Z D
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All