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

Package: Registration

Routine: DGODOP2


Information

DGODOP2 ;ALB/EG - OUTPUT TOT VISITS,CAT B&C, NON-VETS FROM OPC FILE ; JAN 9 1989 @ 1507

Source Information

Source file <DGODOP2.m>

Entry Points

Name Comments DBIA/ICR reference
END
PRI
PRI1 ;print each row
TOT1 ;print subtotal
HDR
TXT ;;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?1,"Elapsed time for this run: ",DGTOUT,!
  • Line Location: DGODOP2+6
Function Call: WRITE
  • Prompt: !,?1,"DIVISION: ",$P(A(K),U,2),?20,$P(A(K),U,1),?40,"TOTAL VISITS: ",?50,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV),!
  • Line Location: PRI+0
Function Call: WRITE
  • Prompt: !,?30,"AS",?40,"AN",?50,"B0",?60,"C0",?70,"N0",?80,"X0",?90,"U0",?100,"TOTAL",?110,"%",!
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: ?I,"------"
  • Line Location: PRI+2
Function Call: WRITE
  • Prompt: !,?1,$S(I1="V":"VETERAN ELIGIBILITY",I1="N":"NON-VETERAN ELIGIBILITY",1:0),!,?1,"-----------------------",!
  • Line Location: PRI+3
Function Call: READ
  • Variable: ZRT
  • Timeout: DTIME
  • Line Location: PRI1+1
Function Call: WRITE
  • Prompt: ?I,"------"
  • Line Location: TOT1+1
Function Call: WRITE
  • Prompt: !,?1,"SUBTOTAL",?30,^UTILITY("DGOD",$J,DGJB,K1,DGDV,I1,"TOT","AS"),?40,^("AN"),?50,^("B"),?60,^("C"),?70,^("N"),?80,^("X"),?90,^("U")
  • Line Location: TOT1+2
Function Call: WRITE
  • Prompt: ?100,^UTILITY("DGOD",$J,DGJB,K1,DGDV,"TOT",I1),?110,"("_$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,"TOT",I1)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)_")"
  • Line Location: TOT1+3
Function Call: WRITE
  • Prompt: !,?1,"SUBTOTAL %",?30,$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,I1,"TOT","AS")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?40,$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,I1,"TOT","AN")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
  • Line Location: TOT1+4
Function Call: WRITE
  • Prompt: ?50,$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,I1,"TOT","B")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?60,$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,I1,"TOT","C")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
  • Line Location: TOT1+5
Function Call: WRITE
  • Prompt: ?70,$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,I1,"TOT","N")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?80,$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,I1,"TOT","X")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
  • Line Location: TOT1+6
Function Call: WRITE
  • Prompt: ?90,$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,I1,"TOT","U")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
  • Line Location: TOT1+7
Function Call: WRITE
  • Prompt: ?100,$J(^UTILITY("DGOD",$J,DGJB,K1,DGDV,"TOT",I1)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),!
  • Line Location: TOT1+8
Function Call: WRITE
  • Prompt: @IOF,!,?1,$P($T(TXT+K1),";;",2),?IOM-20,T2
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,L,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,?1,"DATE RANGE: FROM "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(IOM-26\2),"MEANS TEST CLASSIFICATION",!
  • Line Location: HDR+2
Info |  Source |  Entry Points |  Interaction Calls