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

Package: Registration

Routine: DGPTFM


Information

DGPTFM ;ALB/MTC/PLT - PTF OP-PRO-DIAG ;07/01/2015 8:03 AM

Source Information

Source file <DGPTFM.m>

Entry Points

Name Comments DBIA/ICR reference
GET ;set m,m3 local array of movement records
DIAG ;
WD ;
WD1 ;
WD2 ;
NDG
SER ;
SERV ;
SD ;
SD1 ;
SD2 ;
NSR
WR
PRO ;load 401p code before 2871000
PROC ; Display procedures in field 45.01 - 45.05
ENC ;G PRO1:$Y>7,PRO1:'$P(DGZPRF,U,3)
PF
CKSCI(IEN)
NPR
NPS
DONE
PRO1 ;SET MENU TYPE AND DISPLAY MENU
A
PRV
X ;
X1
Z ;
EN
PGBR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DIAG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DIAG+3
Function Call: WRITE
  • Prompt: !?2,"Movement Diagnosis: ",$$GETLABEL^DGPTIC10(DGPTDAT,"D")
  • Line Location: WD+3
Function Call: WRITE
  • Prompt: !,?L1,$J(M2,3)," "
  • Line Location: WD1+2
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>73
  • Line Location: WD1+4
Function Call: WRITE
  • Prompt: " (POA=",$S(DGMPOA]"":DGMPOA,1:"''"),")"
  • Line Location: WD1+4
Function Call: WRITE
  • Prompt: @IOF,HEAD,?70
  • Line Location: WD1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WD1+7
Function Call: WRITE
  • Prompt: !?L5,"Move #",+L6
  • Line Location: WD2+2
Function Call: WRITE
  • Prompt: " D/C"
  • Condition for execution: +Z=1
  • Line Location: WD2+2
Function Call: WRITE
  • Prompt: " ",Y," "
  • Line Location: WD2+2
Function Call: WRITE
  • Prompt: " <",$S($P(Z3,U,18)=1:"",1:"N"),"SC"_$S($P(Z3,U,26)="Y":",AO",1:"")_$S($P(Z3,U,27)="Y":",IR",1:"")_$S($P(Z3,U,28)="Y":",SWAC",1:"")_$S($P(Z3,U,32)="Y":",SHAD",1:"")_">"
  • Line Location: WD2+3
Function Call: WRITE
  • Prompt: $E($P(^DIC(42.4,+$P(Z,U,2),0),U,2),1,10)
  • Line Location: WD2+5
Function Call: WRITE
  • Prompt: $E($P(^(0),U,1),1,10)
  • Line Location: WD2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SERV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SERV+2
Function Call: WRITE
  • Prompt: @IOF,HEAD,?70
  • Line Location: SD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SD1+5
Function Call: WRITE
  • Prompt: !?L5,L6,"-Surgery date: ",Y,$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: SD2+1
Function Call: WRITE
  • Prompt: @IOF,HEAD,?70
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS))
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !,$J(P2P,3)," "
  • Line Location: PROC+10
Function Call: WRITE
  • Prompt: !,J,"-CPT Capture Date/Time: ",Y
  • Line Location: PF+2
Function Call: WRITE
  • Prompt: " (cont.)"
  • Condition for execution: ($P(DGZPRF,U,2)-1!($G(PGBRK)))
  • Line Location: PF+2
Function Call: WRITE
  • Prompt: !,?5,"Referring or Ordering Provider: "
  • Line Location: PF+3
Function Call: WRITE
  • Prompt: !,?5,"Rendering Provider: "
  • Line Location: PF+4
Function Call: WRITE
  • Prompt: !,?5,"Rendering Location: ",$P($G(^SC($P(DGZPRF(J),U,5),0)),U)
  • Line Location: PF+5
Function Call: WRITE
  • Prompt: !,?2,PS2," "
  • Line Location: PF+7
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: PF+9
Function Call: WRITE
  • Prompt: DS," Related Diagnosis",$$GETLABEL^DGPTIC10(+DGZPRF(J),"D")," ",DS
  • Line Location: PF+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRO1+5
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+5
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+6
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+6
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+7
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+7
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+8
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+8
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+8
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRO1+9
Function Call: WRITE
  • Prompt: !," ^=Abort <RET> to Continue:<",DGNUM,">// "
  • Line Location: PRO1+9
Function Call: WRITE
  • Prompt: !,"***WARNING: This is a Community Care PTF record*** 801 encounters are not allowed."
  • Line Location: A+4
Function Call: WRITE
  • Prompt: $P(^(0),U)
  • Line Location: PRV+0
Function Call: WRITE
  • Prompt: L
  • Line Location: PRV+1
Function Call: READ
  • Variable: RC
  • Timeout: DTIME
  • Line Location: X+1
Function Call: WRITE
  • Prompt: !!,"Delete Patient move <1",$S(PM<3:"",1:"-"_(PM-1)),">: "
  • Line Location: X+1
Function Call: WRITE
  • Prompt: !
  • Line Location: X+2
Function Call: WRITE
  • Prompt: !!,"Enter the record # to delete from the PTF file, 1",$S(PM<3:"",1:"-"_(PM-1))
  • Line Location: X+3
Function Call: WRITE
  • Prompt: !,*7,"Cannot delete discharge movement",!
  • Line Location: X1+0
Function Call: WRITE
  • Prompt: " ",RC,"-DELETED***"
  • Line Location: X1+1
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: Z+1

FileMan Files Accessed Via FileMan Db Call

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