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

Package: Registration

Routine: DGPTOM2


Information

DGPTOM2 ;ALB/AS - PTF MEANS TEST INDICATOR of 'U' Report (CONT) ; 2 FEB 90 14:30

Source Information

Source file <DGPTOM2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 3 $$LST^DGMTU  (MT,PM)^DGPTUTL  LO^DGUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTOM1  

Entry Points

Name Comments DBIA/ICR reference
NONE
CONT
HDR
LN
Q
PRT
PG
WLN
DT

External References

Name Field # of Occurrence
$$LST^DGMTU DT+1
MT^DGPTUTL DT+1
PM^DGPTUTL DT
LO^DGUTL DGPTOM2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Total of ",DGTOT," PTF Records"
  • Line Location: DGPTOM2+4
Function Call: WRITE
  • Prompt: !,DGNAME,?35,SSN,?48,PTF,?56,$S(DGDATE["*":"** ",1:""),DGMTDT
  • Line Location: WLN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+0
Function Call: WRITE
  • Prompt: !,"* The date in the APPLICABLE DATE OF TEST column is the date of means test ",!," which is used to determine this Means Test indicator",!,"** Denotes no date of means test on or before this date; therefore, an"
  • Line Location: PG+1
Function Call: WRITE
  • Prompt: !," appropriate means test indicator cannot be determined",!!?35,"-",DGPAG,"-",!
  • Line Location: PG+2
Function Call: WRITE
  • Prompt: @IOF,!,"PTF Means Test Indicator of 'U' Report",?58,"Printed: "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: Y,!,"For ",$S(DGD:"discharge",1:"admission")," date range from "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(Y,"@")," to "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $P(Y,"@"),!,"Sorted by ",$S(DGP:"patient last name",1:"terminal digit order")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"The following PTF Records have a Means Test Indicator of 'U' (means test is",!,"not done or not completed):",!!?48,"PTF",?56,"* APPLICABLE",!,"PATIENT NAME",?35,"SSN",?48,"NUMBER",?56,"DATE OF TEST",!,DGLN
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: READ
  • Prompt: "Enter <RET> to continue or ^ to QUIT "
  • Formatting: ?22
  • Timeout: DTIME
  • Variable: N
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: @IOF,!,"No PTF records with Means Test Indicators of 'U' within "_$S(DGD:"discharge",1:"admission")_" date range selected"
  • Line Location: NONE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LN, HDR, HDR+1
^DGPT - [#45] DGPTOM2+3, DT, DT+1
^DGPT("AMT" DGPTOM2+2, DGPTOM2+3
^DPT - [#2] DT
^UTILITY($J DGPTOM2+2!, DGPTOM2+4, DT+3*, DT+4*, LN, PRT, Q!

Label References

Name Line Occurrences
CONT HDR
DT DGPTOM2+3
HDR DGPTOM2+4, LN
LN PRT
NONE DGPTOM2+2, DGPTOM2+4
PG DGPTOM2+4, HDR
PRT DGPTOM2+4
Q DGPTOM2+4
WLN LN

Naked Globals

Name Field # of Occurrence
^( LN
^(0 DGPTOM2+3
^(70 DT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN DT*, DT+1, Q!
DGADM DT*, Q!
DGD DT, HDR, NONE, Q!
DGDATE DT*, DT+3, LN*, WLN, Q!
DGDT Q!
DGED DT, HDR+1, Q!
DGLN DGPTOM2+2*, HDR+2, Q!
DGMTDT DT+1*, DT+3*, DT+4, LN*, WLN, Q!
DGNAME DT*, DT+3, DT+4, LN, WLN, PRT*, Q!
DGP DT+3, HDR+1, Q!
DGPAG DGPTOM2+2*, PG+2, HDR, HDR+2*, CONT, Q!
DGPMAN DT~
DGPMCA DT~
DGQUIT DGPTOM2+2*, DGPTOM2+4, LN, HDR, PRT, CONT+1*, Q!
DGSB LN, PRT*, Q!
DGSD DT, HDR+1, Q!
DGTOT DGPTOM2+2*, DGPTOM2+4, WLN*, Q!
DT HDR
DTIME CONT+1
I DT*, PRT*, Q!
IOF HDR, NONE
IOSL LN, PG, CONT
IOST HDR
N DT+4*, PG*, PRT*, CONT*, CONT+1*, Q!
PTF DGPTOM2+3*, DT, DT+1, DT+3, DT+4, LN*, WLN, Q!
SSN DT*, DT+3, DT+4, LN, WLN, PRT*, Q!
U DGPTOM2+3, DT+1
Y LN*, PG*, HDR*, HDR+1*, PRT*, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All