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

Entry Points

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

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
  • Formatting: ?22
  • Prompt: "Enter <RET> to continue or ^ to QUIT "
  • Variable: N
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls