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

Entry Points

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

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
  • Variable: X
  • Timeout: DTIME
  • 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+6
Function Call: WRITE
  • Prompt: " ["_$S(DGPOA1]"":DGPOA1,1:" ")_"]"
  • Line Location: DXLS+10
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
^DGPT - [#45] EXTERNAL^DILFD
45.01 FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call