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/PLT - PTF ENTRY/EDIT-4 ;2/19/04 9:33am

Source Information

Source file <DGPTF4.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Registration 16 Q^DGPTF  CLS^DGPTF2  ACT^DGPTF41  (CEN,Z,Z1)^DGPTF5  EN1^DGPTFD  OPEN^DGPTFDEL  Z^DGPTFM  PRN2^DGPTFM8  
($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  HELP^DGPTMSGD  $$RTEN^DGPTR4  VERCHK^DGPTRI3  CHK701^DGPTSCAN  UP701^DGPTSPQ  SUDO1^DGPTSUDO  ($$CKPOS,D,HANG)^DGPTUTL  
VA FileMan 3 (,FILE)^DIE  $$EXTERNAL^DILFD  ^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: 6

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

Entry Points

Name Comments DBIA/ICR reference
Q
PGBR
EN
POA1 ;Y:PRESENT ON ADMISSION;N:NOT PRESENT ON ADMISSION;U:INSUFFICIENT DOCUM TO PRESENT ON ADMISSION;W:UNABLE TO DETERM IF PRESENT ON ADMISSION
CEN
EN2
O
JUMP
EN1 ;LOAD AND DISPLAY DIAGNOSES FOR PTF 701 SCREEN
AS ;
POA(TEXT) ; -- Returns POA Text
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+21
$$GETLABEL^DGPTIC10 EN1+5
EFFDATE^DGPTIC10 EN1+3
WRITECOD^DGPTIC10 EN1+8, DSP+3
HELP^DGPTMSGD CLS+12
$$RTEN^DGPTR4 AS+2
VERCHK^DGPTRI3 CLS+1
CHK701^DGPTSCAN EN1+19
UP701^DGPTSPQ EN1+19
SUDO1^DGPTSUDO CLS+9
$$CKPOS^DGPTUTL AS+7
D^DGPTUTL EN
HANG^DGPTUTL CLS+1, CLS+6, CLS+7, CLS+10, O
^DIE O, NOT
FILE^DIE EN2+7
$$EXTERNAL^DILFD EN+1, EN+2, EN+5, EN+10
^DIR PGBR
$$ICDDATA^ICDXCODE EN1+4, DSP+4

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: ",$$EXTERNAL^DILFD(45,72,,$P(B(70),U,3))
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ?41,"Disch Status: ",$$EXTERNAL^DILFD(45,72.1,,$P(B(70),U,14))
  • Line Location: EN+2
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+3
Function Call: WRITE
  • Prompt: ?40
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: " Out Treat: ",$P("YES^^NO",U,+$P(B(70),U,4))
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?6,"Means Test: ",$$EXTERNAL^DILFD(45,10,,$P(B(0),U,10))
  • Line Location: EN+5
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+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: " Receiv facil: "
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: " Receiv facil: "
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !," C&P Status: ",$$EXTERNAL^DILFD(45,78,,$P(B(70),U,9)),?47,"Income: $",DGINC
  • Line Location: EN+10
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+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: " Principal Diagnosis: ",ICDLABEL
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: " (POA=",$S($P(DGPTPOA,U)]"":$P(DGPTPOA,U),1:"''"),")"
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: !?5,"Secondary Diag: ",ICDLABEL
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: X
  • Line Location: JUMP+2
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: !," "
  • Condition for execution: $X>73
  • Line Location: DSP+5
Function Call: WRITE
  • Prompt: " (POA=",$S(DGPOA]"":DGPOA,1:"''"),")"
  • Line Location: DSP+5
Routine Call
  • DIE
  • Line Location:
    • O
    • NOT
Routine Call
  • DIE
  • Line Location:
    • EN2+7
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)
^DGM - [#45.5] CLS+11!
^DGM("PT" CLS+11!, CLS+12
^DGP(45.84 - [#45.84] EN2+4, JUMP+4, O
^DGPM - [#405] AS+7
^DGPM("APTF" AS+7
^DGPT - [#45] EN1+1, EN1+12, EN1+21, EN2+1, CLS+9, NOT
^DIC(21 - [#21] AS+7
^DIC(42.4 - [#42.4] EN
^DIC(45.6 - [#45.6] EN+3

Label References

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

Naked Globals

Name Field # of Occurrence
^("ODS" AS+7
^(0 EN, EN+3, AS+7, EN2+1, EN2+4
^(300 EN1+21
^(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+7
AGE JUMP!
B JUMP!
B(0 EN, EN+5
B(101 EN+8, AS+7
B(70 EN, EN+1, EN+2, EN+3, EN+4, EN+6, EN+7, EN+10, AS+3, EN1+1*
, EN1+4, EN1+8, EN1+11, EN1+16
B(71 EN1+1*, EN1+17
CC JUMP!
DA EN2+2*, JUMP!, O*, NOT*
DAM JUMP!
>> DFN EN2+2, CLS+11, CLS+12
DG300 EN1+21*!
>> DGADM CLS+9*
DGALL CLS+12!
>> DGCST CLS+8
>> DGDAT CLS+6
>> DGDD JUMP+4, CLS+2, CLS+10, NOT+1
DGERR CLS+1!
>> DGFC CLS+2, NOT*
DGFDA EN2+5~
DGFDA( EN2+6*
DGINC EN+8*, EN+9*, EN+10, EN+11!
DGMSG EN2+5~
>> DGN O*, O+1*
>> DGPOA EN1+16*, EN1+17*, DSP+5
>> DGPR JUMP+1
>> DGPTDAT EN1+5
DGPTF EN1+19*, CLS+12*!
DGPTIFN O+2*, O+3!
DGPTPOA EN1+12~*, EN1+14, EN1+16, EN1+17
>> DGPTTMP EN1+4*, EN1+9, EN1+11, EN1+14
DGRSC AS+1~, AS+2*, AS+5
DGRTY O+2*, O+3!
>> DGST EN1+19, JUMP+4, O*, O+1*, O+2*
DIC JUMP!
DIE JUMP!, O*, NOT*
DIR PGBR~
DIR("A" PGBR*
DIR(0 PGBR*
DOB JUMP!
DR JUMP!, O*, NOT*
DRG EN1+1!, EN2!, EN2+4, EN2+6, JUMP+4, CLS+2, CLS+6, CLS+7, NOT+1
DRGCAL JUMP!
DT CLS+10
DXLS JUMP!
EFFDATE EN1+2~, EN1+4, EN1+8, DSP+3, DSP+4
EXP JUMP!
>> HEAD WR+1
I EN1+16*, EN1+17*, JUMP!, CLS+11*, DSP+1, DSP+3, DSP+4
>> ICDLABEL EN1+5*, EN1+7, EN1+11, EN1+15
IMPDATE EN1+2~
IOF WR+1
IOSL EN1+18, DSP+7
J EN1+2~
J2 DSP+2~, DSP+4*, DSP+5, DSP+6
>> K EN1+16*, EN1+17*, DSP+1, DSP+3, DSP+4
L1 JUMP!
L2 JUMP!
POA POA+1~
POA( POA+7
POA("N" POA+4*
POA("U" POA+5*
POA("W" POA+6*
POA("Y" POA+3*
>> PTF AS+7, EN1+1, EN1+3, EN1+12, EN1+19, EN1+21, EN2+1, EN2+4, EN2+6, JUMP+4
, CLS+1, CLS+9, O, O+2, NOT
S JUMP!
SEX JUMP!
TEXT POA~, POA+2, POA+7
U EN, EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+10
, AS+2, AS+3, AS+4, AS+5, AS+7, EN1+4, EN1+8, EN1+9, EN1+11, EN1+14
, EN2+1, EN2+4, CLS+9, NOT, DSP+1, DSP+3, DSP+4, DSP+5, DSP+6
X WR+1!*, JUMP+2!*, CLS+12*, PGBR~
Y EN*, PGBR~
>> Z WR+1*, EN*, EN+4*, EN+7*, EN1+7*
>> Z1 EN*, EN+7*
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