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 |  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 - DGPTF PRINT TEMPLATE ; 4/13/04 12:11pm

Source Information

Source file <DGPTFMO.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 EN2^DGPTF4  (PRN2,PRN3)^DGPTFM8  D^DGPTUTL  
DRG Grouper 2 ($$ICDDX,$$ICDOP)^ICDCODE  ($$DRGD,$$GETDATE)^ICDGTDRG  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPTFM3  DGPTFM7  

Entry Points

Name Comments DBIA/ICR reference
Q1
Q
HEAD
EN
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+7
PRN2^DGPTFM8 WRITE+14, DXLS+6
PRN3^DGPTFM8 SUR+6
D^DGPTUTL EN+5, WRITE, SUR
$$ICDDX^ICDCODE WRITE+11, DXLS+1, DXLS+2, DSP
$$ICDOP^ICDCODE SUR+4, PROC, 601+1
$$DRGD^ICDGTDRG WRITE+19
$$GETDATE^ICDGTDRG WRITE+11, WRITE+19, SUR+4, PROC, 601+1, DXLS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Procedure Date: ",Y
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
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+1
Function Call: WRITE
  • Prompt: !,"Treated for SC condition: ",$S($P(DGM,U,18)=1:"Yes",1:"No")
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !!?13,"DX: "
  • Condition for execution: DGF=""
  • Line Location: WRITE+12
Function Call: WRITE
  • Prompt: $P(DGICD,U,3)_" ("_$P(DGICD,U)_")",!?17
  • Line Location: WRITE+12
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+14
Function Call: WRITE
  • Prompt: !?3,"TRANSFER DRG: ",DGTD," - "
  • Line Location: WRITE+17
Function Call: WRITE
  • Prompt: !,DGDX(DGDS)
  • Line Location: WRITE+20
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+0
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1)
  • Line Location: SUR+0
Function Call: WRITE
  • Prompt: !," Anesth Tech: "
  • Line Location: SUR+1
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1),?45,"First Asst: "
  • Line Location: SUR+1
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1),?45,"First Asst: "
  • Line Location: SUR+1
Function Call: WRITE
  • Prompt: !," Source of pay: "
  • Line Location: SUR+2
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1)
  • Line Location: SUR+2
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+3
Function Call: WRITE
  • Prompt: $S(+DGPTTMP>0:$P(DGPTTMP,U,5)_" ("_$P(DGPTTMP,U,2)_")",1:"**********-"_L),!?17
  • Line Location: SUR+4
Function Call: WRITE
  • Prompt: $P(DGOP,U,4)_" ("_$P(DGOP,U)_")",!?17
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: !?17,$P(DGPROC,U,4)_" ("_$P(DGPROC,U)_")"
  • Line Location: 601+1
Function Call: WRITE
  • Prompt: !!?11,"PRINCIPAL DIAGNOSIS: ",$P(DXLS,U,3)_" ("_$P(DXLS,U)_")"
  • Line Location: DXLS+1
Function Call: WRITE
  • Prompt: !!," Principal Diag: ",$P(DGP,U,3)_" ("_$P(DGP,U)_")"
  • Line Location: DXLS+2
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: ?40,$P(J,U,4)_"("_$P(J,U,2)_")"
  • Line Location: DSP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(45.01 SUR, SUR+1, SUR+2
^DGPT - [#45] EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, WRITE+14, WRITE+17, HEAD+2, SUR
, SUR+6, DXLS+4, DXLS+6
^DIC(42.4 - [#42.4] WRITE
^DIC(45.3 - [#45.3] SUR+3
^DPT - [#2] HEAD+2
^ICD - [#80.2] WRITE+17
^UTILITY( Q1!
^UTILITY($J HEAD+1

Label References

Name Line Occurrences
601 EN+5
DSP DXLS+3, DXLS+4
DXLS EN+6
HEAD EN+4, EN+5, WRITE, WRITE+14, SUR, DXLS
PROC EN+4
Q EN+4, EN+5, EN+6, WRITE, SUR
SUR EN+3
WRITE EN+2

Naked Globals

Name Field # of Occurrence
^( EN+1
^("401P" EN+4
^("P" WRITE+17
^(0 EN+1, EN+2, WRITE, SUR+3
^(2 HEAD+1
^(300 WRITE+14, SUR+6, DXLS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+7!
A EN!
AD EN!
ADA EN!
AGE EN+7!
B EN!, EN+7!
>> D0 EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, WRITE+11, WRITE+14, WRITE+17, WRITE+19
, HEAD+2, SUR, SUR+4, SUR+6, PROC, 601+1, DXLS, DXLS+4, DXLS+6
DA EN+7!
DAM EN+7!
>> DC HEAD+1*
DFN EN+7!
DG1 Q1!
DG300 WRITE+14*, WRITE+15!, SUR+6*, SUR+7!, DXLS+6*!
DG601 EN+5*, EN+7!, 601+1
DGDD EN!
DGDS EN+7!, WRITE+19*, WRITE+20*
DGDX WRITE+18~
DGDX( WRITE+20
DGF EN+7!, WRITE+11*, WRITE+12*, PROC*, PROC+1*
DGFC EN!
DGICD EN+7!, WRITE+11*, WRITE+12
DGL EN+7!, WRITE*, WRITE+1
DGM EN+2*, EN+7!, WRITE, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7
, WRITE+8, WRITE+9, WRITE+11
DGN EN!, EN+7!
DGOP EN+7!, PROC*, PROC+1
DGOP1 EN+4*, EN+7!, PROC
DGP EN+7!, DXLS+2*
DGPR EN+7!
DGPROC EN+7!, 601+1*
DGPT EN+6*, EN+7!, DXLS+1, DXLS+2, DXLS+3
DGPTDAT EN+7!, DXLS*, DXLS+1, DXLS+2, DSP
DGPTFE EN!, EN+7!
>> DGPTTMP WRITE+11*, SUR+4*, PROC*, 601+1*, DXLS+1*, DXLS+2*
DGST EN!, EN+7!
DGTD EN+7!, WRITE+17*, WRITE+19
>> DN EN+4, EN+5, EN+6, WRITE, HEAD*, SUR
DOB EN+7!
DP EN+7!
DRG EN+7!
DTIME HEAD
DXD WRITE+18~, WRITE+19*
DXLS EN+7!, DXLS+1*, DXLS+2
EXP EN+7!
HEAD EN!
>> I EN+1*, EN+2*, EN+3*, EN+5*, WRITE+10, WRITE+14, WRITE+17, SUR, SUR+6, PROC*
, DXLS+3*, DXLS+4*, DSP, DSP+1
IOF HEAD+1
IOM HEAD+1
IOSL EN+4, EN+5, WRITE, WRITE+14, SUR, DXLS
IOST HEAD
J EN+1*, EN+7!, WRITE+11*, 601+1*, DSP*, DSP+1, DSP+2
K EN+7!, HEAD+1*, SUR+4*, DXLS+3*, DXLS+4*, DSP
>> L SUR*, SUR+1*, SUR+2*, SUR+4*
L1 EN+7!, SUR*, SUR+1*, SUR+2*
NO EN+7!
P EN+7!
PTF EN+7!
S1 EN+7!, SUR*, SUR+1, SUR+2, SUR+3, SUR+4
SD1 EN+7!
SEX EN+7!
T EN!, EN+3!, EN+7!
T( EN+1*, EN+2, WRITE+10, WRITE+14, WRITE+17
TAC EN+7!
TRS EN+7!
U EN+1, WRITE, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8
, WRITE+9, WRITE+11, WRITE+12, HEAD, HEAD+2, SUR, SUR+1, SUR+2, SUR+3, SUR+4
, PROC, PROC+1, 601+1, DXLS+1, DXLS+2, Q1, DT, DSP, DSP+1, DSP+2
>> X HEAD*
>> Y EN+5*, WRITE*, WRITE+1, SUR*, DT
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All