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

Package: Registration

Routine: DGPMTSO1


Information

DGPMTSO1 ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING BY WARDS ;2-2-93

Source Information

Source file <DGPMTSO1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Registration 1 HEAD^DGPMTSO  

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

Package Total Caller Graph
Registration 1 DGPMTSO  

Entry Points

Name Comments DBIA/ICR reference
INFO
LINE
SUBHEAD ;
END
SUB
PTNM
START
DGW
DIV
TOTAL
WARD

External References

Name Field # of Occurrence
HEAD^DGPMTSO START+3, DIV, DIV+3, DGW, INFO+6, SUB

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: "-"
  • Line Location: DIV+4
Function Call: WRITE
  • Prompt: !!?3,"TOTAL = ",$J($P(TOTAL,"^",1),4),?25,"PASS = ",$J($P(TOTAL,"^",2),4),?45,"AA = ",$J($P(TOTAL,"^",3),4),?65,"UA = ",$J($P(TOTAL,"^",4),4),?85,"ASIH = ",$J($P(TOTAL,"^",5),4),?105,"PTS REMAINING = ",$J($P(TOTAL,"^",6),4)
  • Line Location: DIV+5
Function Call: WRITE
  • Prompt: !!?10,"INPATIENT WARD: ",WARD
  • Line Location: DGW+0
Function Call: WRITE
  • Prompt: !,PTNM,?30,ID,?45,ADMDT,?65,TREAT,?100,TSXFR,?120,ABSENCE
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: !,SUBNAME,!
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: "SUBCOUNT = ",$J($P(SUBCOUNT,"^",1),4),?25,"PASS = ",$J($P(SUBCOUNT,"^",2),4),?45,"AA = ",$J($P(SUBCOUNT,"^",3),4),?65,"UA = ",$J($P(SUBCOUNT,"^",4),4),?85,"ASIH = ",$J($P(SUBCOUNT,"^",5),4)
  • Line Location: SUB+6
Function Call: WRITE
  • Prompt: ?105,"PTS REMAINING = ",$J($P(SUBCOUNT,"^",6),4),!
  • Line Location: SUB+7
Function Call: WRITE
  • Prompt: !!,"PATIENT",?30,"PT'S ID",?45,"ADMISSION DATE",?65,"LAST FACILITY TREATING SPECIALTY",?100,"LAST TS SERVICE",?120,"ABSENCE",!
  • Line Location: SUBHEAD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUBHEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHEAD+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIV
^DPT - [#2] INFO+4
^TMP($J DIV, WARD, DGW, PTNM, INFO, INFO+1, INFO+2, INFO+3

Label References

Name Line Occurrences
DGW WARD
END DIV+2
INFO PTNM
PTNM DGW
SUB DGW
SUBHEAD START+4, DIV, DIV+3, DGW, INFO+6
TOTAL DIV
WARD DIV

Naked Globals

Name Field # of Occurrence
^(0 DIV

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABSENCE END!, INFO+3*, LINE
ADMDT END!, INFO+1*, LINE
DGW END!, DGW*, PTNM, INFO, INFO+1, INFO+2, INFO+3
DGW1 END!, DGW*
DIV DIV*, END!, WARD, DGW, PTNM, INFO, INFO+1, INFO+2, INFO+3
DIV1 DIV*, END!
>> END DIV, DIV+2, DIV+3, WARD, DGW, PTNM, INFO+6, SUB, SUBHEAD+1
ID END!, INFO+4*, LINE
IFN END!, PTNM*, INFO, INFO+1, INFO+2, INFO+3, INFO+4
IOM DIV+4, SUB+4, SUBHEAD+3
IOSL DIV, DIV+3, DGW, INFO+6, SUB
L DIV+4*, END!, SUB+4*, SUBHEAD+3*
PAGE START+2*, END!
PTLWD START, DIV+6*, END!
PTNM END!, PTNM*, INFO, INFO+1, INFO+2, INFO+3, LINE
PTNM1 END!, PTNM*
REPORT START+1*, END!
SUBCOUNT DIV*, END!, DGW*, TOTAL, TOTAL+1, TOTAL+2, TOTAL+3, TOTAL+4, SUB+2*, SUB+6
, SUB+7
SUBNAME END!, DGW*, TOTAL+7*, SUB+5
TOTAL START+2*, DIV+5, END!, TOTAL*, TOTAL+1*, TOTAL+2*, TOTAL+3*, TOTAL+4*, TOTAL+5*
TREAT END!, INFO*, LINE
TSXFR END!, INFO+2*, LINE
WARD END!, WARD*, DGW, PTNM, INFO, INFO+1, INFO+2, INFO+3
WARD1 END!, WARD*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All