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

Package: Registration

Routine: DGPTOLC2


Information

DGPTOLC2 ;ALB/AS/ADL,HIOFO/FT - SUMMARY BY ADM RPT, lists diagnoses,sur,pro (cont.) ;3/19/15 11:44am

Source Information

Source file <DGPTOLC2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;called from DGPTOLC1
E ;
CRT
HD
D
S ; --
C ; --Print Diagnosis and POA display
P1 ; -- Print Procedure Code
DT
BS
LOS
CONT
DGPRO

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?21,"PATIENT SUMMARY by ADMISSION",!!?51,"Run Date: ",DGDT,!,DGPT,?32,"SSN: ",$P(^DPT(+^DGPT(PTF,0),0),"^",9),?51,"Admitted: "
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,"Elig: ",DGELIG," (",DGSTAT,")",?50,"Discharge: "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: "Fee Basis"
  • Condition for execution: DGFEE
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: "Total LOS: "
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: $S(X>0:X,1:"1")
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: $S(X>0:X,1:"1")
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?55,"PTF #: ",PTF,?72,"Pg: ",DGPG
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"* indicates the most recent PROVIDER entered for this admission",!
  • Condition for execution: DGPMIFN>0
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!,"Movement Date: "
  • Line Location: D+4
Function Call: WRITE
  • Prompt: ?40,"(Discharge 501)"
  • Condition for execution: DGMD(DGS)=1
  • Line Location: D+4
Function Call: WRITE
  • Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"D")
  • Line Location: D+4
Function Call: WRITE
  • Prompt: !!,"Discharge Move: (701/2/3 Diagnoses)",$$GETLABEL^DGPTIC10(EFFDATE,"D"),!
  • Line Location: D+10
Function Call: WRITE
  • Prompt: !!,"Surgery Date: "
  • Line Location: S+1
Function Call: WRITE
  • Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !!,"Procedure Date: "
  • Line Location: S+6
Function Call: WRITE
  • Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: S+6
Function Call: WRITE
  • Prompt: !,"Total LOS: ",$S(DGLOS>0:DGLOS,1:"1")
  • Condition for execution: DGFEE
  • Line Location: S+10
Function Call: WRITE
  • Prompt: !
  • Line Location: S+10
Function Call: WRITE
  • Prompt: !,"Diagnosis Codes, (cont.)",$$GETLABEL^DGPTIC10(EFFDATE,"D")
  • Line Location: C+3
Function Call: WRITE
  • Prompt: " ["_$S($P(DGDXPOA,U,2)]"":$P(DGDXPOA,U,2),1:" ")_"]"
  • Line Location: C+8
Function Call: WRITE
  • Prompt: " Codes, (cont.)"
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: $TR($$FMTE^XLFDT(X,"5DF")," ","0")
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: "@"_$E(X,1,2)_":"_$E(X_"0000",3,4)
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,"Losing Specialty: ",DGBS
  • Line Location: BS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call