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

Package: Registration

Routine: DGPTF4


Information

DGPTF4 ;ALB/JDS - PTF ENTRY/EDIT-4 ; 2/19/04 9:33am

Source Information

Source file <DGPTF4.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Registration 14 Q^DGPTF  CLS^DGPTF2  ACT^DGPTF41  (CEN,Z,Z1)^DGPTF5  EN1^DGPTFD  OPEN^DGPTFDEL  Z^DGPTFM  PRN2^DGPTFM8  
HELP^DGPTMSGD  $$RTEN^DGPTR4  CHK701^DGPTSCAN  UP701^DGPTSPQ  SUDO1^DGPTSUDO  ($$CKPOS,D,HANG)^DGPTUTL  
DRG Grouper 2 $$ICDDX^ICDCODE  $$GETDATE^ICDGTDRG  
VA Fileman 1 (,FILE)^DIE  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Registration 6 DGPTC1  DGPTF1  DGPTF2  DGPTF41  DGPTFM  DGPTFMO  

Entry Points

Name Comments DBIA/ICR reference
Q
EN
CEN
EN2
O
JUMP
EN1 ;LOAD AND DISPLAY DIAGNOSES FOR PTF 701 SCREEN
AS ;
DSP
WR ;
NOT
X
Z
Z1
CLS

External References

Name Field # of Occurrence
Q^DGPTF Q
CLS^DGPTF2 CLS+13
ACT^DGPTF41 X
CEN^DGPTF5 CEN
Z^DGPTF5 Z
Z1^DGPTF5 Z1
EN1^DGPTFD EN2+3
OPEN^DGPTFDEL O+2
Z^DGPTFM WR+1
PRN2^DGPTFM8 EN1+11
HELP^DGPTMSGD CLS+12
$$RTEN^DGPTR4 AS+2
CHK701^DGPTSCAN EN1+9
UP701^DGPTSPQ EN1+9
SUDO1^DGPTSUDO CLS+9
$$CKPOS^DGPTUTL AS+8
D^DGPTUTL EN
HANG^DGPTUTL CLS+6, CLS+7, CLS+10, O
^DIE O, NOT
FILE^DIE EN2+7
$$ICDDX^ICDCODE EN1+3, EN1+5, DSP
$$GETDATE^ICDGTDRG EN1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: $S($P(B(0),U,11)=1:"Date of Disch: ",1:"Census Date : ")
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: $S($P(B(0),U,11)=1:"Date of Disch: ",1:"Census Date : ")
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !," Type of Disch: "
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1),?41
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1),?41
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !," Place of Disp: ",$S($D(^DIC(45.6,+$P(B(70),U,6),0)):$E($P(^(0),U,1),1,21),1:"")
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: ?40
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: " Out Treat: ",$P("YES^^NO",U,+$P(B(70),U,4))
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !?6,"Means Test: "
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: ?42,"VA Auspices: ",$S($P(B(70),U,5)=1:"YES",$P(B(70),U,5)=2:"NO",1:"")
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: " Receiv facil: "
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: " Receiv facil: "
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !," C&P Status: "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: $E($P($P(L,L1,2),";",1),1,24),?47,"Income: $",DGINC
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !," ASIH Days: ",$P(B(70),U,8)
  • Line Location: AS+3
Function Call: WRITE
  • Prompt: ?40,"SC Percentage: ",$S($P(A(.3),U)="Y":$P(A(.3),U,2)_"%",1:"")
  • Line Location: AS+4
Function Call: WRITE
  • Prompt: ?60,"Transmitted: ["_DGRSC_"%]"
  • Line Location: AS+5
Function Call: WRITE
  • Prompt: !,?39,"Period Of Serv: "
  • Line Location: AS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: " Principal Diagnosis: ",$S(DGPTTMP&$P(DGPTTMP,U,10):$P(DGPTTMP,U,4)_"("_$P(DGPTTMP,U,2)_")",1:"")
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: JUMP+2
Function Call: WRITE
  • Prompt: X
  • Line Location: JUMP+3
Function Call: WRITE
  • Prompt: !!,*7,"Unable to release DRG ",DRG,". Please verify data entered.",*7
  • Line Location: CLS+1
Function Call: WRITE
  • Prompt: !!,*7,"Unable to release DRG ",DRG,". Please verify data entered.",*7
  • Line Location: CLS+6
Function Call: WRITE
  • Prompt: !!,*7,"Unable to release DRG ",DRG,". Please verify data entered.",*7
  • Line Location: CLS+7
Function Call: WRITE
  • Prompt: !,"Updating TRANSFER DRGs..."
  • Line Location: CLS+9
Function Call: WRITE
  • Prompt: !,"Cannot close with Discharge date in future."
  • Line Location: CLS+10
Function Call: WRITE
  • Prompt: !," NOT CLOSED "
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !!,"Unable to close without a ",$S('$D(DRG):"DRG being calculated.",'DGDD:" discharge date.",1:" facility specified"),!!,*7,*7
  • Line Location: NOT+1
Function Call: WRITE
  • Prompt: ?40,$P(J,U,4)_"("_$P(J,U,2)_")"
  • Line Location: DSP+1
Routine Call
  • DIE
  • Line Location:
    • O
    • NOT
Routine Call
  • DIE
  • Line Location:
    • EN2+7

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(45 EN+1, EN+4, EN+9
^DGM - [#45.5] CLS+11!
^DGM("PT" CLS+11!, CLS+12
^DGP(45.84 - [#45.84] EN2+4, JUMP+5, O
^DGPM - [#405] AS+8
^DGPM("APTF" AS+8
^DGPT - [#45] EN1+1, EN1+11, EN2+1, CLS+9, NOT
^DIC(21 - [#21] AS+8
^DIC(42.4 - [#42.4] EN
^DIC(45.6 - [#45.6] EN+2

Label References

Name Line Occurrences
CEN CLS+8
DSP EN1+7, EN1+8
EN1 CLS+6, CLS+7, CLS+8, CLS+10, CLS+12, O, O+3, NOT, NOT+1
NOT CLS
O JUMP+5
WR EN1+1
Z EN, EN+3, EN+6, EN1+4
Z1 EN, EN+6

Naked Globals

Name Field # of Occurrence
^("ODS" AS+8
^(0 EN, EN+2, AS+8, EN2+1, EN2+4
^(300 EN1+11
^(70 EN1+1
^(71 EN1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A( AS+2, AS+4, AS+5, AS+8
AGE JUMP!
B JUMP!
B(0 EN, EN+4
B(101 EN+7, AS+8
B(70 EN, EN+1, EN+2, EN+3, EN+5, EN+6, EN+9, AS+3, EN1+1*, EN1+3
, EN1+5, EN1+6, EN1+7
B(71 EN1+1*, EN1+8
CC JUMP!
DA EN2+2*, JUMP!, O*, NOT*
DAM JUMP!
>> DFN EN2+2, CLS+11, CLS+12
DG300 EN1+11*!
>> DGADM CLS+9*
DGALL CLS+12!
>> DGCST CLS+8
>> DGDAT CLS+6
>> DGDD JUMP+5, CLS, CLS+10, NOT+1
>> DGFC CLS, NOT*
DGFDA EN2+5~
DGFDA( EN2+6*
DGINC EN+7*, EN+8*, EN+9, EN+10!
DGMSG EN2+5~
>> DGN O*, O+1*
>> DGPR JUMP+1
>> DGPTDAT EN1+2*, EN1+3, EN1+5, DSP
DGPTF EN1+9*, CLS+12*!
DGPTIFN O+2*, O+3!
>> DGPTTMP EN1+3*, EN1+4, EN1+5*, EN1+6
DGRSC AS+1~, AS+2*, AS+5
DGRTY O+2*, O+3!
>> DGST EN1+9, JUMP+5, O*, O+1*, O+2*
DIC JUMP!
DIE JUMP!, O*, NOT*
DOB JUMP!
DR JUMP!, O*, NOT*
DRG EN1+1!, EN2!, EN2+4, EN2+6, JUMP+5, CLS, CLS+6, CLS+7, NOT+1
DRGCAL JUMP!
DT CLS+10
DXLS JUMP!
EXP JUMP!
>> HEAD WR+1
I EN1+7*, EN1+8*, JUMP!, CLS+11*, DSP, DSP+1
IOF WR+1
>> J DSP*, DSP+1, DSP+2
>> K EN1+7*, EN1+8*, DSP
>> L EN+1*, EN+4*, EN+9*
L1 EN+1*, EN+4*, EN+9*, JUMP!
L2 JUMP!
>> PTF AS+8, EN1+1, EN1+2, EN1+9, EN1+11, EN2+1, EN2+4, EN2+6, JUMP+5, CLS+9
, O, O+2, NOT
S JUMP!
SEX JUMP!
U EN, EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, EN+9, AS+2
, AS+3, AS+4, AS+5, AS+8, EN1+3, EN1+4, EN1+5, EN1+6, EN2+1, EN2+4
, CLS+9, NOT, DSP, DSP+1, DSP+2
X WR+1!*, JUMP+3!*, CLS+12*
>> Y EN*
>> Z WR+1*, EN*, EN+3*, EN+6*, EN1+4*
>> Z1 EN*, EN+6*
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