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

Package: Registration

Routine: DGPTFM6


Information

DGPTFM6 ;ALB/BOK/ADL - 601 SCREEN: PROCEDURE ENTER/EDIT ; 21 JUL 88 @ 0900

Source Information

Source file <DGPTFM6.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 9 Q^DGPTF  ^DGPTFJ  601^DGPTFJC  ^DGPTFM  E^DGPTFM1  R^DGPTFM4  Z^DGPTFM5  CHK601^DGPTSCAN  
D^DGPTUTL  
DRG Grouper 2 $$ICDOP^ICDCODE  $$GETDATE^ICDGTDRG  
VA Fileman 2 ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 4 DGPTFJC  DGPTFM  DGPTFM1  DGPTTS  
Integrated Billing 1 IB20PT83  

Entry Points

Name Comments DBIA/ICR reference
P2
SET
E ;EDIT PROCEDURE RECORD
HELP
P1
EDIT
GETVAR ;CALLED FROM GET+1^DGPTFM
NEXP ;S DGZP=DGZP+1 G ^DGPTFM:'$D(P(DGZP)),SET
P
WRT
EN
FY86
T ;ADD PROCEDURE RECORD
BS ;CALLED FROM [DG601]
MOB
R ;DELETE PROCEDURE RECORD

External References

Name Field # of Occurrence
Q^DGPTF WRT+8
^DGPTFJ WRT+9
601^DGPTFJC WRT+5
^DGPTFM EN, EN+1, T+2, T+3, WRT, NEXP+1, P+3, P1, P2+2, FY86+1
, FY86+2
E^DGPTFM1 E+1
R^DGPTFM4 R+1
Z^DGPTFM5 WRT, WRT+2
CHK601^DGPTSCAN EDIT+1
D^DGPTUTL WRT
^DIC T+2
^DIE EDIT+1, P2+2, FY86+2
$$ICDOP^ICDCODE WRT+2
$$GETDATE^ICDGTDRG WRT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Data cannot be entered into these fields until after 10/1/1987"
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!,"Data can not be entered into these fields until after 10/1/1987"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: @IOF,HEAD,?68
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO,!!
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO,!!
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: $S($D(^DIC(42.4,+$P(P(DGZP),U,2),0)):$P(^(0),U),1:""),!
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: " Number of Dialysis Treatments: ",$P(P(DGZP),U,4),!
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: " Procedures: "
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: $S(+DGPTTMP>0&($P(DGPTTMP,U,10)):$P(DGPTTMP,U,5)_" ("_$P(DGPTTMP,U,2)_")",1:"**************"_L),!?19
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: "Enter <RET> to continue, 1-2 to edit,",!,"'T' to add a Procedure Segment, '^N' for screen N, or '^' to abort: <",DGNUM,">//"
  • Line Location: WRT+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !,"Enter '^' to stop display and edit of data",!,"'^N' to jump to screen #N (appears in upper right of screen as <N>)",!,"<RET> to continue on to next screen or 1-2 to edit:"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !?10,"1-Procedure information",!,?10,"2-Procedure codes",!,"You may also enter any combination of the above, separated by commas (ex:1,2)",!
  • Line Location: HELP+1
Function Call: READ
  • Prompt: "Enter <RET>: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"There are no procedure records that can be added to.",*7
  • Line Location: P+3
Function Call: READ
  • Timeout: DTIME
  • Variable: DGRC
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !!,"Add to procedure record <",L,"> : "
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !!,"No more procedures can be added.",*7
  • Line Location: FY86+1
Routine Call
  • DIE
  • Line Location:
    • EDIT+1
    • P2+2
    • FY86+2
Routine Call
  • DIC
  • Line Location:
    • T+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] T+1, T+2, SET+1, WRT, MOB, BS+1, BS+2, P, GETVAR+1, GETVAR+2
, GETVAR+3
^DGPTF( EN
^DIC(42.4 - [#42.4] WRT+1

Label References

Name Line Occurrences
@( EN+2
EDIT WRT+11
FY86 P, P+1
HELP EDIT, WRT+10, WRT+12
MOB T+2, EDIT+1, SET
NEXP SET
P1 P2
P2 P+4
SET NEXP+2
T WRT+10
WRT HELP+2

Naked Globals

Name Field # of Occurrence
^( MOB, BS+1, GETVAR+1, GETVAR+3
^("401P" GETVAR+2
^(0 T+1*, SET+1, WRT, WRT+1, BS+2
^(70 EN, P

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A P1+1
DA EDIT*, EDIT+1!, WRT+11*, BS+1, P2+2*, FY86+2*
DA(1 T+2*, P2+1*, P2+2*
DGADD EDIT+1!
DGJUMP EDIT*, EDIT+1*!
>> DGMOVM BS+2*
DGNUM WRT+5*, WRT+6, WRT+8!
>> DGPC T+2, MOB+1*, P+2
>> DGPROC( T+3*
>> DGPROCD T+2*
>> DGPROCI WRT*
>> DGPROCM T+2*, T+3
>> DGPTF EDIT*
>> DGPTOUT WRT+7*
>> DGPTSCRN WRT+9*
>> DGPTTMP WRT+2*, WRT+3
>> DGRC P+4*, P1*, P1+1*, P2, P2+1, P2+2
>> DGST WRT+5
>> DGVI WRT
>> DGVO WRT
>> DGZP T+1*, T+2*, T+3, SET*, SET+1, WRT, WRT+1, WRT+2, WRT+5, WRT+11
, NEXP+1*
DIC T+2*, EDIT+1!
DIC(0 T+2*
DIE EDIT*, EDIT+1*!, P2+1*, P2+2!, FY86+2*!
>> DP P2+1*, FY86+2*
DR EDIT*, EDIT+1!, P2+1*, P2+2*!, FY86*, FY86+1, FY86+2*!
DT EN+1, P+1
DTIME WRT+7, HELP+2, P1
>> HEAD WRT
>> I T+2*, WRT+2*, WRT+4*, MOB*, BS+1*, BS+2, P+2*, P2+1*, GETVAR+1*, GETVAR+3*
>> I1 MOB*, MOB+1, GETVAR+1*, GETVAR+2, GETVAR+3*
IOF WRT
IOSL WRT+4
>> J P+2*, FY86*
>> J1 GETVAR+2*
>> L WRT*, WRT+2*, WRT+3, P+2*, P+3, P+4*, P1, P2
>> L2 P+2*
P SET, MOB!, GETVAR+3!
P( T+2, SET*!, SET+1*, WRT, WRT+1, WRT+2, WRT+5, WRT+11, NEXP+1, MOB*!
, P+2, P2+1, P2+2, GETVAR+3*
P1 SET+1*, MOB!
P2 MOB!*, GETVAR+2!*
P2( GETVAR+2*
>> PM GETVAR+1*
>> PROC FY86, GETVAR+2*
>> PTF EN, T+1, T+2, EDIT, SET+1, WRT, WRT+2, MOB, BS+1, BS+2
, P, P2+1, P2+2, FY86+2, GETVAR+1, GETVAR+2, GETVAR+3
>> S( GETVAR+1*
>> SU GETVAR+2*
U T+2, WRT+1, WRT+2, WRT+3, BS+2, P+2, P1, P2+1, FY86, GETVAR+2
>> X EN+2, T+3*, EDIT, EDIT+1, WRT+7*, WRT+8, WRT+9, WRT+10, WRT+11, WRT+12
, HELP+2*
>> Y T+2, WRT*
>> Z WRT*, WRT+2*, P1, P2*
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