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

Package: Registration

Routine: DGPTFMO


Information

DGPTFMO ;ALB/JDS/ADL,HIOFO/FT - DGPTF PRINT TEMPLATE ;10/15/14 2:25pm

Source Information

Source file <DGPTFMO.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 5 EN2^DGPTF4  (PRN2,PRN3)^DGPTFM8  PTFICD^DGPTFUT  ($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  D^DGPTUTL  
DRG Grouper 3 $$CODEC^ICDEX  ($$DRGD,$$GETDATE)^ICDGTDRG  $$ICDDATA^ICDXCODE  
VA FileMan 1 FIELD^DID  

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

Package Total Caller Graph
Registration 11 DGPT CENSUS INQUIRY  DGPT CENSUS UNRELEASED  DGPT EXPANDED CODE LIST  DGPT EXPANDED CODE LIST-10  DGPT FEE BASIS  DGPT PRINT  DGPT QUICK PROFILE  DGPT WORKFILE  
DGPTF  DGPTFM3  DGPTFM7  

Entry Points

Name Comments DBIA/ICR reference
Q1
Q
HEAD
EN ;called from print template DGPT CENSUS INQUIRY
601 ;print the procedures/dates from the 601 procedure multiple (eff. 10/1/87)
DXLS
DSP ;
WRITE
SUR ;
DT
PROC ;

External References

Name Field # of Occurrence
EN2^DGPTF4 DXLS+22
PRN2^DGPTFM8 WRITE+26, DXLS+21
PRN3^DGPTFM8 SUR+17
PTFICD^DGPTFUT WRITE+15, SUR+9, 601+2, DXLS+17
$$GETLABEL^DGPTIC10 EN+15, WRITE+19, SUR+7, PROC+3, DXLS+4
EFFDATE^DGPTIC10 WRITE+2
WRITECOD^DGPTIC10 WRITE+20, SUR+13, PROC+4, 601+5, DXLS+5, DXLS+12, DSP+2
D^DGPTUTL EN+15, WRITE, SUR+1
FIELD^DID EN+5
$$CODEC^ICDEX WRITE+29
$$DRGD^ICDGTDRG WRITE+31
$$GETDATE^ICDGTDRG WRITE+31
$$ICDDATA^ICDXCODE WRITE+18, SUR+12, PROC+2, 601+4, DXLS+3, DXLS+11, DSP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Procedure Date: ",Y,$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!,"Movement Date: ",Y,?40,"Losing Specialty: ",$E(DGL,1,22),!,"Leave Days: ",$P(DGM,U,3),?40,"Pass Days: ",$P(DGM,U,4)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !,"Treated for SC condition: ",$S($P(DGM,U,18)=1:"Yes",1:"No")
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>73
  • Line Location: WRITE+21
Function Call: WRITE
  • Prompt: " (POA=",$S(DGMPOA]"":DGMPOA,1:"''"),")"
  • Line Location: WRITE+21
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+26
Function Call: WRITE
  • Prompt: !?3,"TRANSFER DRG: ",DGTD," - "
  • Line Location: WRITE+29
Function Call: WRITE
  • Prompt: !,DGDX(DGDS)
  • Line Location: WRITE+32
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"("_$P(^DPT(+^DGPT(D0,0),0),U,1)_")",!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!," Date of Surg: ",Y,?45,"Chief Surg: "
  • Line Location: SUR+1
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1)
  • Line Location: SUR+2
Function Call: WRITE
  • Prompt: !," Anesth Tech: "
  • Line Location: SUR+3
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1),?45,"First Asst: "
  • Line Location: SUR+3
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1)
  • Line Location: SUR+4
Function Call: WRITE
  • Prompt: !," Source of pay: "
  • Line Location: SUR+5
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1)
  • Line Location: SUR+5
Function Call: WRITE
  • Prompt: ?46,"Surg spec: ",$S($D(^DIC(45.3,+$P(S1,U,3),0)):$P(^(0),U,2),1:"")
  • Line Location: SUR+6
Function Call: WRITE
  • Prompt: !!,?5,"Surg/pro: ",$$GETLABEL^DGPTIC10(EFFDATE,"P"),!?7
  • Line Location: SUR+7
Function Call: WRITE
  • Prompt: !!?5,"PRINCIPAL DIAGNOSIS: ",$$GETLABEL^DGPTIC10(EFFDATE,"D")
  • Line Location: DXLS+4
Function Call: WRITE
  • Prompt: " ["_$S(DGPOA1]"":DGPOA1,1:" ")_"]"
  • Line Location: DXLS+8
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))," "
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: $J(Y#100\1,2),","
  • Condition for execution: Y#100
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: " ",$E(Y_0,9,10),":",$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: " ["_$S($P(DG701(K),U,2)]"":$P(DG701(K),U,2),1:" ")_"]"
  • Line Location: DSP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
45.01 FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] EN+9, EN+10, EN+12, EN+13, EN+15, EN+16, WRITE+26, WRITE+29, HEAD+2, SUR+1
, SUR+17, DXLS+1, DXLS+21
^DIC(42.4 - [#42.4] WRITE
^DIC(45.3 - [#45.3] SUR+6
^DPT - [#2] HEAD+2
^UTILITY( Q1!
^UTILITY($J HEAD+1

Label References

Name Line Occurrences
601 EN+15
DSP DXLS+18
DXLS EN+16
HEAD EN+14, EN+15, WRITE, WRITE+26, SUR+1, DXLS
PROC EN+14
Q EN+14, EN+15, EN+16, WRITE, SUR+1
SUR EN+12
WRITE EN+10

Naked Globals

Name Field # of Occurrence
^( EN+9
^("401P" EN+13
^("P" WRITE+29
^(0 EN+9, EN+10, WRITE, SUR+6
^(2 HEAD+1
^(300 WRITE+26, SUR+17, DXLS+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+17!
A EN+1!
AD EN+1!
ADA EN+1!
AGE EN+17!
B EN+1!, EN+17!
>> D0 EN+9, EN+10, EN+12, EN+13, EN+15, EN+16, WRITE+2, WRITE+15, WRITE+26, WRITE+29
, WRITE+31, HEAD+2, SUR+1, SUR+9, SUR+17, 601+2, DXLS+1, DXLS+17, DXLS+21
DA EN+17!
DAM EN+17!
>> DC HEAD+1*
DFN EN+17!
DG1 Q1!
DG300 WRITE+26*, WRITE+27!, SUR+17*, SUR+18!, DXLS+21*!
DG401 SUR+8!, SUR+9, SUR+15!
DG401( SUR+10, SUR+11
DG501 WRITE+14!, WRITE+15, WRITE+24!
DG501( WRITE+16, WRITE+17, WRITE+18, WRITE+20
DG601 EN+15*, EN+17!, 601+1!, 601+2, 601+7!
DG601( 601+3, 601+4, 601+5
DG701 DXLS+16!, DXLS+17, DXLS+19!
DG701( DXLS+18, DSP+1, DSP+2, DSP+5
DGDD EN+1!
DGDDPTR EN+1!
DGDDPTR( EN+4*, EN+6*
DGDDPTR(4 SUR+2
DGDDPTR(5 SUR+4
DGDDPTR(6 SUR+3
DGDDPTR(7 SUR+5
DGDS EN+17!, WRITE+31*, WRITE+32*
DGDX WRITE+30~
DGDX( WRITE+32
DGERROR EN+3!, EN+6, EN+7!
DGF EN+17!, WRITE+14*, WRITE+19, WRITE+23*, PROC+1*, PROC+3*
DGFC EN+1!
DGICD EN+17!
DGL EN+17!, WRITE*, WRITE+4
DGLOOP EN+1!, EN+2*, EN+4, EN+5, EN+6, EN+19!
DGM EN+10*, EN+17!, WRITE, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10
, WRITE+11, WRITE+12
DGM82 EN+1!, EN+19!
DGMPOA EN+19!, WRITE+17*, WRITE+21
DGN EN+1!, EN+17!
DGOP EN+17!
DGOP1 EN+13*, EN+14, EN+17!, PROC+1, PROC+2, PROC+4
DGP EN+17!
DGPOA1 DXLS+1*, DXLS+8, DXLS+15, DXLS+16!
DGPR EN+17!
DGPROC EN+17!
DGPT EN+16*, EN+17!, DXLS+2, DXLS+3, DXLS+5, DXLS+10, DXLS+11, DXLS+12
DGPTDAT EN+1!, EN+17!
DGPTFE EN+1!, EN+17!
>> DGPTTMP WRITE+18*, WRITE+21, WRITE+22, SUR+11*, SUR+12*, SUR+14, PROC+2*, PROC+5, 601+4*, 601+6
, DXLS+3*, DXLS+6, DXLS+7, DXLS+11*, DXLS+13, DXLS+14
DGRESULT EN+3!, EN+7!
DGRESULT("POINTER" EN+6
DGST EN+1!, EN+17!
DGTD EN+17!, WRITE+29*, WRITE+31
>> DN EN+14, EN+15, EN+16, WRITE, HEAD*, SUR+1
DOB EN+17!
DP EN+17!
DRG EN+17!
DTIME HEAD
DXD WRITE+30~, WRITE+31*
DXLS EN+17!, DXLS+3*
EFFDATE EN+1!, EN+15, WRITE+18, WRITE+19, WRITE+20, SUR+7, SUR+12, SUR+13, PROC+2, PROC+3
, PROC+4, 601+4, 601+5, DXLS+3, DXLS+4, DXLS+5, DXLS+11, DXLS+12, DSP+1, DSP+2
EXP EN+17!
HEAD EN+1!
>> I EN+9*, EN+10*, EN+12*, EN+15*, WRITE+13, WRITE+15, WRITE+26, WRITE+29, SUR+1, SUR+9
, SUR+17, PROC+1*, PROC+2, PROC+4, 601+2
IMPDATE EN+1!
IOF HEAD+1
IOM HEAD+1
IOSL EN+14, EN+15, WRITE, WRITE+26, SUR+1, DXLS
IOST HEAD
J EN+9*, EN+17!, WRITE+14*, WRITE+16*, WRITE+17, WRITE+18, WRITE+20, 601+1*, 601+3*, 601+4
, 601+5, DSP+1*, DSP+3, DSP+4
K EN+17!, HEAD+1*, SUR+8*, SUR+10*, SUR+11, DXLS+16*, DXLS+18*, DSP+1, DSP+2, DSP+5
>> L SUR+2*, SUR+3*, SUR+4*, SUR+5*, SUR+11*, SUR+12, SUR+13
L1 EN+17!, SUR+2*, SUR+3*, SUR+4*, SUR+5*
NO EN+17!
P EN+17!
PTF EN+17!
S1 EN+17!, SUR+1*, SUR+2, SUR+3, SUR+4, SUR+5, SUR+6
SD1 EN+17!
SEX EN+17!
T EN+1!, EN+12!, EN+17!
T( EN+9*, EN+10, WRITE+13, WRITE+15, WRITE+26, WRITE+29
T82 EN+1!, EN+19!
TAC EN+17!
TRS EN+17!
U EN+9, WRITE, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+11
, WRITE+12, WRITE+17, WRITE+18, WRITE+20, WRITE+21, WRITE+22, WRITE+29, HEAD, HEAD+2, SUR+2
, SUR+3, SUR+4, SUR+5, SUR+6, SUR+11, SUR+14, PROC+1, PROC+2, PROC+4, PROC+5
, 601+4, 601+5, 601+6, DXLS+1, DXLS+2, DXLS+3, DXLS+5, DXLS+6, DXLS+7, DXLS+10
, DXLS+11, DXLS+12, DXLS+13, DXLS+14, DXLS+18, Q1, DT, DSP+1, DSP+2, DSP+3
, DSP+4, DSP+5
>> X HEAD*
>> Y EN+15*, WRITE*, WRITE+4, SUR+1*, DT
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