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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRDOCRM

Package: IHS Changes To Lab

Routine: BLRDOCRM


Information

BLRDOCRM ; IHS/MSC/MKK - Patient Reminder Document ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <BLRDOCRM.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  
IHS Changes To Lab 2 ($$COLHEAD,ADDTMENU,EEP,HEADERDT,HEADERPG,MENUDRVR,PRESSKEY)^BLRGMENU  $$PLURAL^BLRUTIL7  
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
PLURAL(CNT) ; EP - If CNT'=1, return S else return ""
ALLORDS ; EP
JUSTNEW ; EP - Generic RPMS EXCLUSIVE NEW
BADSTUFF(STR,TAB) ; EP - BADSTUFF error message
PEP ; EP
EEP ; Ersatz EP
SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
PLURALI(CNT) ; EP - If CNT'=1, return IES else return Y
FUTURE ; EP
BADSTUFQ(STR,TAB) ; EP - BADSTUFF error message. Ends with Q "Q"uit
FUTUREI(HDR1) ; EP - Initialization
PATLINE ; EP - Line of Data
EP ; EP
PATDATAB ; EP - Breakout Data

External References

Name Field # of Occurrence
^%ZIS FUTUREI+11
^%ZISC FUTURE+17, ALLORDS+12
$$COLHEAD^BLRGMENU FUTUREI+16
ADDTMENU^BLRGMENU PEP+5, PEP+6
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU FUTURE+14, FUTUREI+2
HEADERPG^BLRGMENU PATLINE+1, PATLINE+10
MENUDRVR^BLRGMENU PEP+8
PRESSKEY^BLRGMENU FUTURE+18, ALLORDS+13, BADSTUFF+3
$$PLURAL^BLRUTIL7 FUTURE+11
$$GET1^DIQ FUTUREI+8, FUTUREI+9, FUTUREI+27, PATLINE+16, PATLINE+17, PATDATAB+3, PATDATAB+4, PATDATAB+5, PATDATAB+6
^DIR FUTUREI+5
^XBFMK FUTUREI+3
$$DT^XLFDT FUTUREI+28
$$FMTE^XLFDT PATDATAB+7
$$UP^XLFSTR PATDATAB+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?9,ORDCNT," Order",$$PLURAL^BLRUTIL7(ORDCNT),"."
  • Line Location: FUTURE+11
Function Call: WRITE
  • Prompt: ?9,"No Future/Current Orders for Patient found."
  • Line Location: FUTURE+15
Function Call: WRITE
  • Prompt: ORDNUM
  • Line Location: PATLINE+5
Function Call: WRITE
  • Prompt: ?9,ESTCPRNT
  • Line Location: PATLINE+6
Function Call: WRITE
  • Prompt: ORDNUM
  • Line Location: PATLINE+12
Function Call: WRITE
  • Prompt: ?9,ESTCPRNT
  • Line Location: PATLINE+13
Function Call: WRITE
  • Prompt: ?30,$E(F60DESC,1,22)
  • Line Location: PATLINE+19
Function Call: WRITE
  • Prompt: ?54,$E(URGENCY,1,7)
  • Line Location: PATLINE+20
Function Call: WRITE
  • Prompt: ?63,$E(PROVIDER,1,17)
  • Line Location: PATLINE+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PATLINE+22
Function Call: WRITE
  • Prompt: !!,?9,ORDCNT," Order",$$PLURAL(ORDCNT),"."
  • Line Location: ALLORDS+11
Function Call: WRITE
  • Prompt: !!,?TAB,STR," Routine Ends."
  • Line Location: BADSTUFF+2
Routine Call
  • DIR
  • Line Location:
    • FUTUREI+5
Routine Call
  • %ZIS
  • Line Location:
    • FUTUREI+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
69.01 GET1^DIQ
69.03 GET1^DIQ
9000001.41 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRO(69 - [#69] FUTURE+7, FUTURE+9, PATLINE+8, ALLORDS+7, ALLORDS+9

Label References

Name Line Occurrences
$$BADSTUFQ FUTUREI+6, FUTUREI+12
$$FUTUREI FUTURE+5, ALLORDS+5
$$PLURAL ALLORDS+11
BADSTUFF BADSTUFQ+1
PATDATAB PATLINE+3
PATLINE FUTURE+9, ALLORDS+9
SETBLRVS PEP+3, FUTURE+3, ALLORDS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BLRVERN SETBLRVS+1!, SETBLRVS+3*
BLRVERN2 SETBLRVS+1!, SETBLRVS+4*
CNT PLURAL~, PLURAL+1, PLURALI~, PLURALI+1
>> DFN FUTUREI+8*, FUTUREI+9, FUTUREI+27
>> DILOCKTM PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> DIR(0 FUTUREI+4*
>> DIRUT FUTUREI+6
>> DISYS PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
DT PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
DTIME PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
DUZ PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
DUZ(2 FUTUREI+9
>> ESTCOLDT PATDATAB+6*, PATDATAB+7
>> ESTCPRNT PATLINE+6, PATLINE+13, PATDATAB+7*, PATDATAB+8*
>> F60DESC PATLINE+16*, PATLINE+19
HDR1 FUTUREI~, FUTUREI+1
>> HDRONE FUTUREI+25*, PATLINE+1, PATLINE+10
>> HEADER( FUTURE+13!
>> HEADER(1 FUTUREI+1*
>> HEADER(2 FUTUREI+9*
>> HEADER(3 FUTUREI+15*
>> HEADER(4 FUTUREI+16*
>> HEADER(5 FUTUREI+17*, FUTUREI+18*, FUTUREI+19*, FUTUREI+20*, FUTUREI+21*
>> I FUTURE+13*
IO PEP+1, FUTURE+1, FUTUREI+14, ALLORDS+1, JUSTNEW+1
>> IOBS PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
IOF PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
IOM PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
ION PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> IOS PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
IOSL PEP+1, FUTURE+1, FUTUREI+24, ALLORDS+1, JUSTNEW+1
IOST PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> IOT PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> IOXY PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> LINES FUTUREI+24*, PATLINE+1, PATLINE+9, PATLINE+23*
>> LRDFN FUTURE+7, FUTURE+9, FUTUREI+27*, ALLORDS+7, ALLORDS+9
>> LRODT FUTURE+7*, FUTURE+9, FUTUREI+28*, PATLINE+8, PATDATAB+2, ALLORDS+7*, ALLORDS+9
>> LROT PATLINE+7*, PATLINE+8*, PATLINE+15
>> LROTIEN PATLINE+15*, PATLINE+16, PATLINE+17
>> LRSP FUTURE+8*, FUTURE+9*, PATLINE+8, PATDATAB+2, ALLORDS+8*, ALLORDS+9*
>> MAXLINES FUTUREI+24*, PATLINE+1, PATLINE+9
>> ORDCNT FUTURE+11, FUTUREI+23*, PATDATAB+1*, ALLORDS+11
>> ORDERDT PATDATAB+4*
>> ORDIEN PATLINE+15, PATDATAB+2*, PATDATAB+3, PATDATAB+4, PATDATAB+5, PATDATAB+6
>> ORDNUM PATLINE+5, PATLINE+12, PATDATAB+3*
>> PATNAME FUTUREI+8*, FUTUREI+9
>> PG FUTUREI+25*, PATLINE+1, PATLINE+10
>> POP FUTUREI+12
>> PROVIDER PATLINE+21, PATDATAB+5*
>> QFLG FUTURE+7, FUTURE+9, FUTUREI+25*, PATLINE+1, PATLINE+8, PATLINE+9, PATLINE+10, PATLINE+11, ALLORDS+7, ALLORDS+9
STR BADSTUFF~, BADSTUFF+2, BADSTUFQ~, BADSTUFQ+1
TAB BADSTUFF~, BADSTUFF+1*, BADSTUFF+2, BADSTUFF+3, BADSTUFQ~, BADSTUFQ+1
>> TODAY FUTURE+7, FUTUREI+28*
TWO SETBLRVS~, SETBLRVS+4
U PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> URGENCY PATLINE+17*, PATLINE+20
>> XPARSYS PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> XQXFLG PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> Y FUTUREI+8

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All