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/PLT - 601 SCREEN: PROCEDURE ENTER/EDIT ;21 JUL 88 @ 0900

Source Information

Source file <DGPTFM6.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Registration 11 Q^DGPTF  ^DGPTFJ  601^DGPTFJC  (,Z)^DGPTFM  E^DGPTFM1  R^DGPTFM4  Z^DGPTFM5  PTFICD^DGPTFUT  
($$CODESYS,$$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  CHK601^DGPTSCAN  D^DGPTUTL  
VA FileMan 5 EN^DDIOL  ^DIC  ^DIE  $$EXTERNAL^DILFD  ^DIR  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Kernel 1 $$FMADD^XLFDT  

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

Package Total Caller Graph
Registration 8 601  DG601  DG601-10P  DGPTFJC  DGPTFM  DGPTFM1  DGPTTS  DGX61  
Integrated Billing 1 IB20PT83  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point - begin date checks
T ;add procedure record
EDIT ;
SET
WRT ;
NEXP ;S DGZP=DGZP+1 G ^DGPTFM:'$D(P(DGZP)),SET
HELP
MOB
BS ;CALLED FROM [DG601]
R ;DELETE PROCEDURE RECORD
E ;EDIT PROCEDURE RECORD
P
P1
P2
FY86
GETVAR ;CALLED FROM GET+1^DGPTFM
BADDT(DGPROCD) ; Check patients admit date and entered date against census DATE
; If admit date is after census date then we're done
; checks to see if Patient has been discharged or has a closed census and returns false
; If not discharged or closed and the admit and procedure date is within census date range then return false
; If admit date and procedure date is past the date range then return true
PGBR

External References

Name Field # of Occurrence
EN^DDIOL BADDT+8, BADDT+9, BADDT+10, BADDT+19
Q^DGPTF WRT+20
^DGPTFJ WRT+21
601^DGPTFJC WRT+17
^DGPTFM EN+1, T+2, T+3, WRT+3, NEXP+1, P+1, P+2, P+12, P1, P2+2
, FY86+1, FY86+2
Z^DGPTFM WRT+13
E^DGPTFM1 E+1
R^DGPTFM4 R+1
Z^DGPTFM5 WRT+5, WRT+7
PTFICD^DGPTFUT WRT+9
$$CODESYS^DGPTIC10 EDIT+2, P+4, P2+1
$$GETLABEL^DGPTIC10 WRT+7
EFFDATE^DGPTIC10 WRT+2
WRITECOD^DGPTIC10 WRT+12
CHK601^DGPTSCAN EDIT+3, P2+2
D^DGPTUTL WRT+5
^DIC T+2
^DIE EDIT+3, P2+2, FY86+2
$$EXTERNAL^DILFD WRT+4
^DIR PGBR
$$ICDDATA^ICDXCODE WRT+11
$$FMADD^XLFDT BADDT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Data can't be entered into Procedure Records until 10/1/1987"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: @IOF,HEAD,?68
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS))
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: $J("Date of Proc: ",32),Y,!,$J("Specialty: ",35)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: $S($D(^DIC(42.4,+$P(P(DGZP),U,2),0)):$P(^(0),U),1:""),!
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: " Number of Dialysis Treatments: ",$P(P(DGZP),U,4),!
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: " Procedures: ",$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+16
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+18
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WRT+19
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
  • Formatting: !!
  • Prompt: "Enter <RET>: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"View Prodedure Codes first",!
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,"No codes can be added to a Procedure Record",!
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,"There are no procedure records that can be added to.",*7
  • Line Location: P+12
Function Call: READ
  • Variable: DGRC
  • Timeout: DTIME
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !!,"Add to procedure record <",L,"> : "
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !!,"No more 401P procedures (before 10/01/1987) can be added.",*7
  • Line Location: FY86+1
Routine Call
  • DIC
  • Line Location:
    • T+2
Routine Call
  • DIE
  • Line Location:
    • EDIT+3
    • P2+2
    • FY86+2
Routine Call
  • DIR
  • Line Location:
    • PGBR

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BADDT+14
^DG(45.86 - [#45.86] BADDT+14
^DGPT - [#45] EN+1, T+1, T+2, SET+1, WRT+3, MOB, BS+1, BS+2, P, P+10
, GETVAR+1, GETVAR+2, BADDT+6, BADDT+7, BADDT+10, BADDT+12, BADDT+14, BADDT+16
^DGPT("ACENSUS" BADDT+14
^DIC(42.4 - [#42.4] WRT+6

Label References

Name Line Occurrences
@( EN+2
EDIT WRT+23
FY86 P
HELP EDIT+1, WRT+22, WRT+24
MOB T+2, EDIT+3, SET
NEXP SET
P1 P2
P2 P+13
PGBR WRT+13
SET NEXP+2
T WRT+22
WRT HELP+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A P+5~, P+10*, P1+1
DA EDIT+2*, EDIT+3!, WRT+23*, BS+1, P2+1*, FY86+2*
DA(1 T+2*, BADDT+6, BADDT+7, BADDT+10
DG601DT BADDT+13~, BADDT+17*, BADDT+18
DGADD EDIT+3!, P2+2*!
DGADM BADDT+5~, BADDT+6*, BADDT+9, BADDT+11, BADDT+12, BADDT+18
>> DGCODSYS EDIT+2*, P+4*, P+7, P2+1*
DGI BADDT+5~, BADDT+14*, BADDT+15
DGI( BADDT+14*
DGIDS BADDT+5~, BADDT+7*, BADDT+8, BADDT+9
>> DGIDTS WRT+4
DGJUMP EDIT+2*, EDIT+3*!
>> DGMOVM BS+2*
DGNUM WRT+17*, WRT+18, WRT+20!
>> DGPC T+2, MOB+1*, P+4
>> DGPROC( T+3*
DGPROCD T+2*, BADDT~, BADDT+8, BADDT+9, BADDT+10, BADDT+17
>> DGPROCI WRT+3*
>> DGPROCM T+2*, T+3
>> DGPTDAT BADDT+11, BADDT+12, BADDT+18
DGPTF EDIT+2*, P2+1*, P2+2!
>> DGPTOUT WRT+19*
>> DGPTSCRN WRT+21*
>> DGPTTMP WRT+11*, WRT+12
>> DGRC P+13*, P1*, P1+1*, P2, P2+2
>> DGST WRT+17
>> DGVI WRT+3
>> DGVO WRT+3
DGX601 WRT+9, WRT+15!
DGX601( WRT+10
DGZP T+1*, T+2*, T+3, SET*, SET+1, WRT+3, WRT+5, WRT+6, WRT+9, WRT+13
, WRT+17, WRT+23, NEXP+1*, P2+2*!
>> DGZS0 P2+2*
DIC T+2*, EDIT+3!
DIC(0 T+2*
DIE EDIT+2*, EDIT+3*!, P2+1*, FY86+2*!
DIR PGBR~
DIR("A" PGBR*
DIR(0 PGBR*
>> DP FY86+2*
DR EDIT+2*, EDIT+3!, P2+1*, P2+2!, FY86*, FY86+1, FY86+2*!
DTIME WRT+19, HELP+2, P1
EFFDATE WRT+1~, WRT+7, WRT+11, WRT+12, BADDT+17
>> HEAD WRT+3, WRT+13
>> I T+2*, WRT+10*, WRT+16*, MOB*, BS+1*, BS+2, P+4*, P+6, P+8, P+10
, GETVAR+1*
>> I1 MOB*, MOB+1, GETVAR+1*, GETVAR+2
IMPDATE WRT+1~
IOF WRT+3, WRT+13
IOSL WRT+13, WRT+16
>> J P+6*, P+8*, P+10*, FY86*
>> J1 GETVAR+2*
>> L WRT+5*, WRT+10*, WRT+11, WRT+12, P+3*, P+4*, P+6*, P+8*, P+10*, P+12
, P+13*, P1, P2
>> L2 P+4*, P+6*, P+7, P+8*, P+9, P+10*
P SET, MOB!
P( T+2, SET*!, SET+1*, WRT+3, WRT+5, WRT+6, WRT+9, WRT+17, WRT+23, NEXP+1
, MOB*!, P+6, P+8, P+10, P2+2
P1 SET+1*, MOB!
P2 MOB!*, P+1, P+2
P2P GETVAR+2!*
P2P( GETVAR+2*
>> PM GETVAR+1*
>> PROC FY86, GETVAR+2*
>> PTF EN+1, T+1, T+2, EDIT+2, SET+1, WRT+2, WRT+3, WRT+9, MOB, BS+1
, BS+2, P, P+4, P+10, P2+1, FY86+2, GETVAR+1, GETVAR+2, BADDT+12, BADDT+14
, BADDT+16
>> S( GETVAR+1*
>> ST P2+2*
>> SU GETVAR+2*
U T+2, WRT+6, WRT+12, BS+2, P+6, P+8, P+10, P1, FY86, GETVAR+2
, BADDT+6, BADDT+7, BADDT+12, BADDT+14, BADDT+16
X EN+2, T+3*, EDIT+1, EDIT+2, EDIT+3, WRT+19*, WRT+20, WRT+21, WRT+22, WRT+23
, WRT+24, HELP+2*, PGBR~
Y T+2, WRT+5*, BADDT+14*, PGBR~
>> Z WRT+3*, WRT+5*, WRT+7*, WRT+13*, 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