Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
WR ;
EN
AS ;
EN1 ;LOAD AND DISPLAY DIAGNOSES FOR PTF 701 SCREEN
EN2
JUMP
X
CLS ;
O
Q
NOT
Z
Z1
CEN
DSP ;
POA(TEXT) ; -- Returns POA Text
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
PGBR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS))
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS))
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls,  EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call