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
Print Page as PDF
Routine: DGPMTSO3

Package: Registration

Routine: DGPMTSO3


Information

DGPMTSO3 ;ALB/LM - TREATING SPECIALTY INPATIENT COUNTS BY TS ;2-2-93

Source Information

Source file <DGPMTSO3.m>

Entry Points

Name Comments DBIA/ICR reference
START
DIV
END
TREAT
DGTS
SV
INFO
LINE
SUB
TOTAL
SUBHEAD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"DIVISION: ",$S($D(^DG(40.8,DIV,0)):$P(^(0),"^"),1:"EMPTY")
  • Line Location: DIV+0
Function Call: WRITE
  • Prompt: !?63
  • Line Location: DIV+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DIV+4
Function Call: WRITE
  • Prompt: !!?69,"TOTAL = ",$J($P(TOTAL,"^",1),4),?89,$J($P(TOTAL,"^",2),4),?97,$J($P(TOTAL,"^",3),4),?105,$J($P(TOTAL,"^",4),4),?114,$J($P(TOTAL,"^",5),4),?124,$J($P(TOTAL,"^",6),4)
  • Line Location: DIV+5
Function Call: WRITE
  • Prompt: !?66
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: !!?66,"SUBCOUNT = ",$J($P(SUBCOUNT,"^",1),4),?89,$J($P(SUBCOUNT,"^",2),4),?97,$J($P(SUBCOUNT,"^",3),4),?105,$J($P(SUBCOUNT,"^",4),4),?114,$J($P(SUBCOUNT,"^",5),4),?124,$J($P(SUBCOUNT,"^",6),4),!
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: !!!,"DIVISION",!?3,"FACILITY TREATING SPECIALTY",?35,"ABBRV",?43,"TREATING SPECIALTY SERVICE",?76,"PATIENTS",?89,"PASS",?99,"AA",?107,"UA",?114,"ASIH",?122,"PTS REM",!
  • Line Location: SUBHEAD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUBHEAD+3
Info |  Source |  Entry Points |  Interaction Calls