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

Package: Lab Service

Routine: LREPIRP7


Information

LREPIRP7 ;DALOI/CKA - EPI-PRINT VERIFICATION REPORT ;23 Apr 2013 4:33 PM

Source Information

Source file <LREPIRP7.m>

Entry Points

Name Comments DBIA/ICR reference
CHOOSE ;which date report to print
PRIV ;PRIVACY MESSAGE
ALL
EXIT ;
REP ;
Q
PRT ;Print report
PATH
ZXETOT ;PRINT PHARMACY SUBTOTALS
DSPTOT
PAUSE ;
NPG ;NEW PAGE
HDG ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Print Detailed Verification Report Option",!!
  • Line Location: LREPIRP7+4
Function Call: WRITE
  • Prompt: !,LRNUM_" "_$P(LRREP(LRNUM),"^",2),$E(^XTMP("LREPIREP"_$P(LRREP(LRNUM),"^"),"HDG",3),12,99)
  • Line Location: CHOOSE+4
Function Call: WRITE
  • Prompt: !!!,"This report will contain Confidential Information."
  • Line Location: PRIV+1
Function Call: WRITE
  • Prompt: !,"Sorry No Pathogens Selected"
  • Line Location: ALL+17
Function Call: WRITE
  • Prompt: !!?5,"Report Cancelled."
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !!?5,"The Task has been queued",!,"Task #",$G(ZTSK)
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+33
Function Call: WRITE
  • Prompt: !,?70," PAGE ",LRPAGE
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: !,^(LRHDGLC)
  • Line Location: PRT+36
Function Call: WRITE
  • Prompt: !!,"Name LAST 4 Admission date Discharge date"
  • Line Location: PRT+38
Function Call: WRITE
  • Prompt: !,"__________________________________________________________________"
  • Line Location: PRT+39
Function Call: WRITE
  • Prompt: !,^(LRUPDNUM)
  • Line Location: PRT+41
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+42
Function Call: WRITE
  • Prompt: !,?70,"PAGE ",LRPAGE
  • Line Location: PRT+43
Function Call: WRITE
  • Prompt: !,^(LRHDGLC)
  • Line Location: PRT+45
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT+47
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------"
  • Line Location: PRT+56
Function Call: WRITE
  • Prompt: !?5,"COUNT ",LRCOUNT
  • Line Location: PRT+57
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+58
Function Call: WRITE
  • Prompt: !?70,"PAGE ",LRPAGE
  • Line Location: PRT+59
Function Call: WRITE
  • Prompt: !,^(LRHDGLC)
  • Line Location: PRT+61
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT+63
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT+64
Function Call: WRITE
  • Prompt: !,"DECLINED ASSESSMENT FOR HEPATITIS C"
  • Line Location: PRT+65
Function Call: WRITE
  • Prompt: !,"NO RISK FACTORS FOR HEPATITIS C"
  • Line Location: PRT+66
Function Call: WRITE
  • Prompt: !,"PREVIOUSLY ASSESSED FOR HEPATITIS C"
  • Line Location: PRT+67
Function Call: WRITE
  • Prompt: !,"RISK FACTORS FOR HEPATITIS C"
  • Line Location: PRT+68
Function Call: WRITE
  • Prompt: !,"POSITIVE TEST FOR HEPATITIS C ANTIBODY"
  • Line Location: PRT+69
Function Call: WRITE
  • Prompt: !,"NEGATIVE TEST FOR HEPATITIS C ANTIBODY"
  • Line Location: PRT+70
Function Call: WRITE
  • Prompt: !,"HEPATITIS C DIAGNOSIS (ICD BASED)"
  • Line Location: PRT+71
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD"
  • Line Location: PRT+74
Function Call: WRITE
  • Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT)
  • Line Location: PRT+79
Function Call: WRITE
  • Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT)
  • Line Location: PRT+80
Function Call: WRITE
  • Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT)
  • Line Location: PRT+81
Function Call: WRITE
  • Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT)
  • Line Location: PRT+82
Function Call: WRITE
  • Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT)
  • Line Location: PRT+83
Function Call: WRITE
  • Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT)
  • Line Location: PRT+84
Function Call: WRITE
  • Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT)
  • Line Location: PRT+85
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------"
  • Line Location: PRT+86
Function Call: WRITE
  • Prompt: !?5,"COUNT ",LRCOUNT
  • Line Location: PRT+87
Function Call: WRITE
  • Prompt: !,"---------------------------------------------------------------"
  • Line Location: ZXETOT+1
Function Call: WRITE
  • Prompt: !,?5,"SUBCOUNT ",LRSBCNT
  • Line Location: ZXETOT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZXETOT+3
Function Call: WRITE
  • Prompt: !,"---------------------------------------------------------------"
  • Line Location: DSPTOT+0
Function Call: WRITE
  • Prompt: !?5,"SUBCOUNT ",LRSBCNT
  • Line Location: DSPTOT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DSPTOT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NPG+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,?70," PAGE ",LRPAGE
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDG+7
Info |  Source |  Entry Points |  Interaction Calls