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 | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Routine: DGODNSM1

Package: Registration

Routine: DGODNSM1

Information

DGODNSM1 ;ALB/EG - INPATIENT WORKLOAD SUMMARY, TOTALS ; 3/1/89 1500

Source Information

Source file <DGODNSM1.m>

Entry Points

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?I,"------" Line Location: TOT1+0
Function Call: WRITE	Prompt: !,?1,"SUBTOTAL",?30,^UTILITY("DGOD",$J,"T",K,"C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7) Line Location: TOT1+1
Function Call: WRITE	Prompt: ?100,^UTILITY("DGOD",$J,"T",K,"R") Line Location: TOT1+2
Function Call: WRITE	Prompt: !,?1,"SUBTOTAL %",?30,$J(^UTILITY("DGOD",$J,"T",K,"C",1)/^UTILITY("DGOD",$J,"T",K,"R")100,2,2),?40,$J(^UTILITY("DGOD",$J,"T",K,"C",2)/^UTILITY("DGOD",$J,"T",K,"R")100,2,2) Line Location: TOT1+5
Function Call: WRITE	Prompt: ?50,$J(^UTILITY("DGOD",$J,"T",K,"C",3)/^UTILITY("DGOD",$J,"T",K,"R")100,2,2),?60,$J(^UTILITY("DGOD",$J,"T",K,"C",4)/^UTILITY("DGOD",$J,"T",K,"R")100,2,2) Line Location: TOT1+6
Function Call: WRITE	Prompt: ?70,$J(^UTILITY("DGOD",$J,"T",K,"C",5)/^UTILITY("DGOD",$J,"T",K,"R")100,2,2),?80,$J(^UTILITY("DGOD",$J,"T",K,"C",6)/^UTILITY("DGOD",$J,"T",K,"R")100,2,2) Line Location: TOT1+7
Function Call: WRITE	Prompt: ?90,$J(^UTILITY("DGOD",$J,"T",K,"C",7)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2) Line Location: TOT1+8
Function Call: WRITE	Prompt: ?100,$J(^UTILITY("DGOD",$J,"T",K,"R")/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2) Line Location: TOT1+9
Function Call: WRITE	Prompt: ! Line Location: TOT+0
Function Call: WRITE	Prompt: ?I,"======" Line Location: TOT+0
Function Call: WRITE	Prompt: !,?1,"TOTAL",?30,^UTILITY("DGOD",$J,"T","C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7) Line Location: TOT+1
Function Call: WRITE	Prompt: ?100,^UTILITY("DGOD",$J,"T","C") Line Location: TOT+2
Function Call: WRITE	Prompt: !,?1,"TOTAL %",?30,$J(^UTILITY("DGOD",$J,"T","C",1)/^UTILITY("DGOD",$J,"T","C")100,2,2),?40,$J(^UTILITY("DGOD",$J,"T","C",2)/^UTILITY("DGOD",$J,"T","C")100,2,2) Line Location: TOT+3
Function Call: WRITE	Prompt: ?50,$J(^UTILITY("DGOD",$J,"T","C",3)/^UTILITY("DGOD",$J,"T","C")100,2,2),?60,$J(^UTILITY("DGOD",$J,"T","C",4)/^UTILITY("DGOD",$J,"T","C")100,2,2) Line Location: TOT+4
Function Call: WRITE	Prompt: ?70,$J(^UTILITY("DGOD",$J,"T","C",5)/^UTILITY("DGOD",$J,"T","C")100,2,2),?80,$J(^UTILITY("DGOD",$J,"T","C",6)/^UTILITY("DGOD",$J,"T","C")100,2,2) Line Location: TOT+5
Function Call: WRITE	Prompt: ?90,$J(^UTILITY("DGOD",$J,"T","C",7)/^UTILITY("DGOD",$J,"T","C")*100,2,2) Line Location: TOT+6
Function Call: WRITE	Prompt: ?100,$J(^UTILITY("DGOD",$J,"T","C")/^UTILITY("DGOD",$J,"T","C")*100,2,2),! Line Location: TOT+7

Global Variables Directly Accessed

Naked Globals

Local Variables

Info | Source | Entry Points | Interaction Calls | Global Variables Directly Accessed | Naked Globals | Local Variables | All