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

Package: Lab Service

Routine: LREPIRP7


Information

LREPIRP7 ;VA/DALOI/CKA - EPI-PRINT VERIFICATION REPORT ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LREPIRP7.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Lab Service 1 (PPRT1,PPRT2,PPRT3,PPRT4)^LREPIRP8  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LREPI VERIFICATION REPORT  LREPIRP8  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS Q
HOME^%ZIS Q+4
^%ZISC EXIT+1
^%ZTLOAD Q+1
^DIR CHOOSE+8, PRIV+4, ALL+3, ALL+12, PAUSE+2
PPRT1^LREPIRP8 PRT+3, PRT+9, PRT+15, PRT+21, PRT+30, PATH+5
PPRT2^LREPIRP8 PRT+12, PRT+18, PATH+3
PPRT3^LREPIRP8 PRT+6, PRT+27, PATH+4
PPRT4^LREPIRP8 PRT+24, PATH+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Print Detailed Verification Report Option",!!
  • Line Location: LREPIRP7+5
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-9 BASED)"
  • Line Location: PRT+71
Function Call: WRITE
  • Prompt: !,"HEPATITIS C DIAGNOSIS (ICD BASED)"
  • Line Location: PRT+72
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD"
  • Line Location: PRT+75
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: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT)
  • Line Location: PRT+86
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------"
  • Line Location: PRT+87
Function Call: WRITE
  • Prompt: !?5,"COUNT ",LRCOUNT
  • Line Location: PRT+88
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
Routine Call
  • %ZIS
  • Line Location:
    • Q+4
Routine Call
  • DIR
  • Line Location:
    • CHOOSE+8
    • PRIV+4
    • ALL+3
    • ALL+12
    • PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • Q

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CHOOSE+3
^LAB(69.5 - [#69.5] ALL+14
^XTMP( CHOOSE+2
^XTMP("LREPIREP" CHOOSE+4, CHOOSE+14, PRT+36, PRT+41, PRT+45, PRT+49, PRT+51, PRT+52, PRT+53, PRT+61
, PRT+74, PRT+77, PRT+78, PRT+79, PRT+80, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85
, PRT+86, HDG+4, HDG+9, HDG+10

Label References

Name Line Occurrences
CHOOSE CHOOSE+12, ALL+17
DSPTOT PRT+77
EXIT CHOOSE+9, PRIV+5, Q+4, PRT+1, PRT+4, PRT+7, PRT+10, PRT+13, PRT+16, PRT+19
, PRT+22, PRT+25, PRT+28, PRT+31, PATH+6
NPG PRT+41, PRT+55, PRT+80, PRT+81, PRT+82, PRT+83, PRT+86
PATH PRT+1
PAUSE NPG+1
PRT Q
Q ALL+16
REP ALL+18
ZXETOT PRT+49

Naked Globals

Name Field # of Occurrence
^( PRT+36, PRT+41, PRT+45, PRT+61

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EXIT+3!
%ZIS EXIT+3!, Q*
D0 EXIT+2!
DIC EXIT+2!
DIR CHOOSE+11!, PRIV+2!, ALL!, ALL+5!, ALL+15!, EXIT+5!, PAUSE+2!
DIR("?" ALL+2*, ALL+10*
DIR("A" CHOOSE+7*, PRIV+2*, ALL+1*, ALL+9*
DIR("B" PRIV+3*, ALL+1*
DIR("S" ALL+11*
DIR(0 CHOOSE+6*, PRIV+2*, ALL+1*, ALL+9*, PAUSE+2*
DIRUT CHOOSE+9, CHOOSE+11!, CHOOSE+12, PRIV+4, ALL!, ALL+8, ALL+13, ALL+15!, EXIT+5!
DTOUT ALL+15!, ALL+16, EXIT+5!, PAUSE+3
DUOUT ALL+15!, ALL+16, EXIT+5!, PAUSE+3
IO Q
IO("Q" Q
IOF ALL+7, PRT+33, PRT+42, PRT+58, NPG+3, HDG+1
IOSL PRT+41, PRT+55, PRT+80, PRT+81, PRT+82, PRT+83, PRT+86
IOST NPG+1
J EXIT+5!
LRADMDT EXIT+8!
LRALL ALL+4*, ALL+6, ALL+17, EXIT+6!, PRT+1
LRAUTO EXIT+2!
LRBEG EXIT+2!
LRCOUNT EXIT+4!, EXIT+6!, PRT+48*, PRT+57, PRT+60*, PRT+76*, PRT+88, ZXETOT+4*, DSPTOT+3*
LRDATE CHOOSE+1*, CHOOSE+2*, CHOOSE+3, CHOOSE+13*, CHOOSE+14, EXIT+6!, PRT+36, PRT+41, PRT+45, PRT+49
, PRT+51, PRT+52, PRT+53, PRT+61, PRT+74, PRT+77, PRT+78, PRT+79, PRT+80, PRT+81
, PRT+82, PRT+83, PRT+84, PRT+85, PRT+86, HDG+4, HDG+9, HDG+10
LRDFN EXIT+6!, PRT+2*, PRT+5*, PRT+8*, PRT+9*, PRT+11*, PRT+14*, PRT+17*, PRT+20*, PRT+23*
, PRT+26*, PRT+27*, PRT+29*, PRT+30*, PRT+32*, PRT+48*, PRT+51*, PRT+52, PRT+53, PRT+76*
, PRT+78*, PRT+79, PRT+80, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85, PRT+86, PATH*
, PATH+1*
LRDG1 EXIT+6!, PRT+5*, PRT+11*, PRT+17*, PRT+23*, PRT+26*, PRT+32*
LRDG1CNT EXIT+8!
LRDISDT EXIT+8!
LRDSP EXIT+8!
LRDSPCNT EXIT+6!, PRT+76*, PRT+79*, PRT+80, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85, PRT+86
LRDT EXIT+2!
LRDTHDG EXIT+8!
LREND CHOOSE+18*, PRIV+4*, EXIT+2!, PAUSE+1
LREPI ALL+17, EXIT+2!
LREPI( ALL+14*, PATH+1
LRHDG EXIT+4!, HDG+4*, HDG+5, HDG+10*, HDG+11
LRHDGL2 EXIT+8!
LRHDGLC EXIT+4!, PRT+35*, PRT+36*, PRT+44*, PRT+45*, PRT+60*, PRT+61*, HDG+4*, HDG+8*, HDG+9*
, HDG+10
LRI EXIT+9!
LRLC EXIT+4!, PRT+35*, PRT+44*, PRT+60*, HDG+2*, HDG+6*, HDG+7*, HDG+12*
LRMSGLIN EXIT+5!
LRNAME EXIT+9!
LRNODE CHOOSE+1*, CHOOSE+2*, EXIT+4!
LRNOPAT EXIT+8!
LRNTECNT EXIT+9!
LRNUM CHOOSE+1*, CHOOSE+3*, CHOOSE+4*, CHOOSE+5*, CHOOSE+6, EXIT+6!, PRT+2*, PRT+14*, PRT+20*, PRT+64*
, PRT+65, PRT+66, PRT+67, PRT+68, PRT+69, PRT+70, PRT+72, PRT+74, PRT+75, PRT+80
, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85, PRT+86
LRNUM1 EXIT+9!
LROBR EXIT+6!, PRT+2*, PRT+26*, PATH*
LROBRCNT EXIT+9!
LROBX EXIT+6!, PRT+2*, PRT+26*, PATH*
LROBXCNT EXIT+9!
LRPAGE EXIT+4!, EXIT+6!, PRT+2*, PRT+34, PRT+37*, PRT+43, PRT+46*, PRT+59, PRT+62*, PATH*
, HDG+3, HDG+13*
LRPATH EXIT+7!, PRT+2*, PRT+3*, PRT+6*, PRT+9*, PRT+12*, PRT+15*, PRT+18*, PRT+21*, PRT+24*
, PRT+27*, PRT+30*, PATH*, PATH+1*, PATH+2, PATH+3, PATH+4, HDG+9, HDG+10
LRPATHCT EXIT+9!
LRPERCNT EXIT+9!
LRPID EXIT+7!
LRPV1 EXIT+8!, PRT+2*, PRT+5*, PRT+11*, PRT+17*, PRT+23*, PRT+26*, PRT+32*, PATH*
LRPV1CNT EXIT+10!
LRPV1N EXIT+10!
LRPV1ND EXIT+10!
LRQUIT EXIT+4!, PRT+2*, PRT+4, PRT+7, PRT+9, PRT+10, PRT+13, PRT+16, PRT+19, PRT+22
, PRT+24, PRT+25, PRT+27, PRT+28, PRT+30, PRT+31, PATH*, PATH+1, PAUSE+3*, NPG+2
LRREP CHOOSE+10*, CHOOSE+13, EXIT+5!
LRREP( CHOOSE+3*, CHOOSE+4, CHOOSE+13
LRRNDT EXIT+2!
LRRPE EXIT+2!
LRRPS EXIT+2!
LRSBCNT EXIT+8!, PRT+48*, PRT+49*, PRT+54*, PRT+76*, PRT+77*, PRT+80*, PRT+81*, PRT+82*, PRT+83*
, PRT+84*, PRT+85*, PRT+86*, ZXETOT+2, ZXETOT+4, DSPTOT+1, DSPTOT+3
LRSEG EXIT+7!, PRT+89!
LRSPSHT EXIT+5!
LRSUBCNT EXIT+10!, PRT+60*
LRTMP EXIT+10!
LRTOT EXIT+10!
LRTOT( PRT+74*, PRT+75
LRTOTCNT EXIT+10!
LRTYPE EXIT+7!, PRT+48*, PRT+49*, PRT+50, PRT+51, PRT+52, PRT+53, PRT+76*, PRT+77*, PRT+78
, PRT+79, PRT+80, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85, PRT+86
LRUPDNUM EXIT+7!, PRT+40*, PRT+41*
LRZXE EXIT+10!
LRZXECNT EXIT+7!, PRT+48*, PRT+52*, PRT+53
MSG EXIT+5!
MSGLIN PRT+89!
POP EXIT+3!, Q
SITE EXIT+10!
SSN EXIT+10!
U ALL+14
X ALL+8, EXIT+3!
X1 EXIT+3!
Y CHOOSE+3*, CHOOSE+10, PRIV+5, ALL+4, ALL+13, ALL+14, EXIT+3!
ZTDESC EXIT+3!, Q+1*
ZTDTH EXIT+3!
ZTIO EXIT+3!
ZTREQ EXIT+11!, Q+1*
ZTRTN EXIT+3!, Q+1*
ZTSAVE EXIT+2!
ZTSAVE("LR*" Q+1*
ZTSK EXIT+3!, Q+2, Q+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All