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

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 4 EN^DDIOL  ^DIC  ^DIE  ^DIR  
DRG Grouper 1 $$ICDDATA^ICDXCODE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

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
P2
SET
E ;EDIT PROCEDURE RECORD
HELP
P1
PGBR
EDIT ;
GETVAR ;CALLED FROM GET+1^DGPTFM
NEXP ;S DGZP=DGZP+1 G ^DGPTFM:'$D(P(DGZP)),SET
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
P
WRT ;
EN ; Entry point - begin date checks
FY86
T ;add procedure record
BS ;CALLED FROM [DG601]
MOB
R ;DELETE PROCEDURE RECORD

External References

Name Field # of Occurrence
EN^DDIOL BADDT+6, BADDT+7, BADDT+16
Q^DGPTF WRT+18
^DGPTFJ WRT+19
601^DGPTFJC WRT+15
^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+11
E^DGPTFM1 E+1
R^DGPTFM4 R+1
Z^DGPTFM5 WRT+3, WRT+5
PTFICD^DGPTFUT WRT+7
$$CODESYS^DGPTIC10 EDIT+2, P+4, P2+1
$$GETLABEL^DGPTIC10 WRT+5
EFFDATE^DGPTIC10 WRT+2
WRITECOD^DGPTIC10 WRT+10
CHK601^DGPTSCAN EDIT+3, P2+2
D^DGPTUTL WRT+3
^DIC T+2
^DIE EDIT+3, P2+2, FY86+2
^DIR PGBR
$$ICDDATA^ICDXCODE WRT+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: @DGVI,Z,@DGVO,!!
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: $S($D(^DIC(42.4,+$P(P(DGZP),U,2),0)):$P(^(0),U),1:""),!
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: " Number of Dialysis Treatments: ",$P(P(DGZP),U,4),!
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: " Procedures: ",$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+14
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+16
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: WRT+17
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: !,"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
  • 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 401P procedures (before 10/01/1987) can be added.",*7
  • Line Location: FY86+1
Routine Call
  • DIE
  • Line Location:
    • EDIT+3
    • P2+2
    • FY86+2
Routine Call
  • DIC
  • Line Location:
    • T+2
Routine Call
  • DIR
  • Line Location:
    • PGBR

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BADDT+11
^DG(45.86 - [#45.86] BADDT+11
^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+5, BADDT+7, BADDT+9, BADDT+11, BADDT+13
^DGPT("ACENSUS" BADDT+11
^DIC(42.4 - [#42.4] WRT+4

Label References

Name Line Occurrences
@( EN+2
EDIT WRT+21
FY86 P
HELP EDIT+1, WRT+20, WRT+22
MOB T+2, EDIT+3, SET
NEXP SET
P1 P2
P2 P+13
PGBR WRT+11
SET NEXP+2
T WRT+20
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+4, BS+2, BADDT+11
^(70 EN+1, P, BADDT+7, BADDT+13

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+21*, BS+1, P2+1*, FY86+2*
DA(1 T+2*, BADDT+5, BADDT+7
DG601DT BADDT+10~, BADDT+14*, BADDT+15
DGADD EDIT+3!, P2+2*!
>> DGADM BADDT+5*, BADDT+6, BADDT+8, BADDT+9, BADDT+15
>> DGCODSYS EDIT+2*, P+4*, P+7, P2+1*
DGI BADDT+10!, BADDT+11*, BADDT+12
DGI( BADDT+11*
DGJUMP EDIT+2*, EDIT+3*!
>> DGMOVM BS+2*
DGNUM WRT+15*, WRT+16, WRT+18!
>> DGPC T+2, MOB+1*, P+4
>> DGPROC( T+3*
DGPROCD T+2*, BADDT~, BADDT+6, BADDT+7, BADDT+14
>> DGPROCI WRT+3*
>> DGPROCM T+2*, T+3
>> DGPTDAT BADDT+8, BADDT+9, BADDT+15
DGPTF EDIT+2*, P2+1*, P2+2!
>> DGPTOUT WRT+17*
>> DGPTSCRN WRT+19*
>> DGPTTMP WRT+9*, WRT+10
>> DGRC P+13*, P1*, P1+1*, P2, P2+2
>> DGST WRT+15
>> DGVI WRT+3
>> DGVO WRT+3
DGX601 WRT+7, WRT+13!
DGX601( WRT+8
DGZP T+1*, T+2*, T+3, SET*, SET+1, WRT+3, WRT+4, WRT+7, WRT+11, WRT+15
, WRT+21, 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+17, HELP+2, P1
EFFDATE WRT+1~, WRT+5, WRT+9, WRT+10, BADDT+14
>> HEAD WRT+3, WRT+11
>> I T+2*, WRT+8*, WRT+14*, 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+11
IOSL WRT+11, WRT+14
>> J P+6*, P+8*, P+10*, FY86*
>> J1 GETVAR+2*
>> L WRT+3*, WRT+8*, WRT+9, WRT+10, 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+4, WRT+7, WRT+15, WRT+21, 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+7, MOB, BS+1
, BS+2, P, P+4, P+10, P2+1, FY86+2, GETVAR+1, GETVAR+2, BADDT+9, BADDT+11
, BADDT+13
>> S( GETVAR+1*
>> ST P2+2*
>> SU GETVAR+2*
U T+2, WRT+4, WRT+10, BS+2, P+6, P+8, P+10, P1, FY86, GETVAR+2
, BADDT+5, BADDT+9, BADDT+11, BADDT+13
X EN+2, T+3*, EDIT+1, EDIT+2, EDIT+3, WRT+17*, WRT+18, WRT+19, WRT+20, WRT+21
, WRT+22, HELP+2*, PGBR~
Y T+2, WRT+3*, BADDT+11*, PGBR~
>> Z WRT+3*, WRT+5*, WRT+11*, 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