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

Package: Automated Medical Information Exchange

Routine: DVBCCHKR


Information

DVBCCHKR ;ALB/GTS-557/THM-CHECK C&P REQUEST FOR CRITICAL DATA ; 3/20/19 7:56am

Source Information

Source file <DVBCCHKR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Medical Information Exchange 5 (,RPTHD)^DVBCULAP  $$TRANCHK^DVBCUTA4  TERM^DVBCUTL3  ($$SITE,PAUSE)^DVBCUTL4  $$STYLE^DVBCUTL8  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 (,NOW)^%DTC  YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Medical Information Exchange 2 DVBA C CHECK 2507 INTEGRITY  DVBA C CHECK 2507 INTEGRITY TM  

Entry Points

Name Comments DBIA/ICR reference
PRINT1
EN
HDR
RPTCHK() ;**Check C&P Report Param field - 396.1
DEV
SETSTYLE ;
ASK
GO
EXIT
PRINT
LINKCK ;** Patient DFN's w/ 2507's >3 days w/out links
CHECK
NAMELN

External References

Name Field # of Occurrence
^%DTC LINKCK+10
NOW^%DTC GO+6, LINKCK+8
^%ZIS DEV
HOME^%ZIS EN
^%ZISC EXIT
^%ZTLOAD DEV+1
KILL^%ZTLOAD EXIT+2
YN^DICN ASK
^DVBCULAP GO+12
RPTHD^DVBCULAP GO+9
$$TRANCHK^DVBCUTA4 LINKCK+17
TERM^DVBCUTL3 PRINT+4, PRINT+13, PRINT1
$$SITE^DVBCUTL4 GO+8, HDR+1
PAUSE^DVBCUTL4 GO+10
$$STYLE^DVBCUTL8 LINKCK+6
$$FMTE^XLFDT GO+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @FF,!!,"This report will check the 2507 REQUEST file for missing crucial data.",!!,"All requests will be checked and those found missing any of the following",!,"will be reported:",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: "1) Request date",!,"2) Regional office number",!,"3) Requester",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: "4) Request status",!,"5) Routing location",!,"6) No exams selected"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: "Do you want to continue"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to print the report or N to quit.",!!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!!!!?25,"Nothing found to report",!!
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: !!!!!?25,"Nothing found to report",!!
  • Line Location: GO+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,DVBCDT,?(80-$L(HD)\2),HD,?69,"Page: ",PG,!,?(80-$L($$SITE^DVBCUTL4)\2),$$SITE^DVBCUTL4,!!,"Veteran name",?28,"Social Sec #",?50,"Missing items",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: LN,!!,NAME,?28,$P(^DPT(DFN,0),U,9)
  • Line Location: NAMELN+0
Routine Call
  • %ZIS
  • Line Location:
    • EN
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" GO+6
^DPT - [#2] CHECK+8, NAMELN
^DVB(396.1 - [#396.1] RPTCHK+2, RPTCHK+3, SETSTYLE+2, SETSTYLE+3
^DVB(396.3 - [#396.3] CHECK+1, CHECK+5, GO+2, LINKCK+9
^DVB(396.4 - [#396.4] CHECK+7
^DVB(396.95 - [#396.95] LINKCK+16
^TMP("DVBA" GO+5, GO+12, EXIT+5!, LINKCK+19*
^TMP($J CHECK+12*, PRINT+1, PRINT+3, PRINT+8, GO+1!, GO+3, GO+4, EXIT+5!

Label References

Name Line Occurrences
$$RPTCHK GO+5, GO+12, LINKCK+19
ASK ASK+1
CHECK GO+2
EN DVBCCHKR+6
EXIT ASK, ASK+2, DEV, DEV+1
HDR PRINT, PRINT+6, PRINT1+2, GO+3
LINKCK CHECK+8
NAMELN PRINT+7, PRINT1+2
PRINT GO+4
PRINT1 PRINT+11
SETSTYLE EN+4, GO

Naked Globals

Name Field # of Occurrence
^(1 CHECK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, ASK+2, EXIT+3!
%Y ASK+1, EXIT+3!
%ZIS DEV*!
APPTDA LINKCK+14~*, LINKCK+16
DA CHECK+1, CHECK+5, CHECK+7, CHECK+8, CHECK+11, GO+2*, EXIT+4!
DFN CHECK+8, CHECK+12, PRINT+3*, PRINT+8, GO+2*, EXIT+4!, LINKCK+19, NAMELN
DIC EXIT+6!
DIQ EXIT+5!
DIR EXIT+5!
DIRUT EXIT+5!
DR EXIT+6!
DT GO+1
DTA CHECK+1*, CHECK+5, PRINT+10*, PRINT+11, EXIT+3!
DTB CHECK+1*, CHECK+6, EXIT+3!
DTOUT ASK, EXIT+3!
DUOUT EXIT+5!
DVBADAYS LINKCK+3~, LINKCK+11*, LINKCK+13
DVBADTA PRINT+2*, PRINT+8*, PRINT+10, PRINT+12!
DVBAFND LINKCK+15!, LINKCK+17*, LINKCK+18, LINKCK+21!
DVBAPC PRINT+2*, PRINT+8*, PRINT+12!
DVBAX LINKCK+3~, LINKCK+5*, LINKCK+12
DVBAY PRINT+11*, PRINT1+3, PRINT1+4, PRINT1+5, EXIT+5!
DVBCDT GO+1*, EXIT+3!, HDR+1
DVBCMAN DVBCCHKR+6*, EXIT+2, EXIT+4!
DVBCQUIT PRINT+1, PRINT+3, PRINT+4*, PRINT+5, PRINT+11, PRINT+13*, PRINT1*, PRINT1+1, GO+1!, EXIT+4!
DVBCX PRINT+11*, EXIT+4!
FF EN*, EN+1, EXIT+1*, EXIT+3!
GETOUT PRINT+4, PRINT+13, PRINT1, GO+1!, EXIT+4!
HD GO+1*, EXIT+3!, HDR+1
HDRPRT EXIT+4!, HDR*
I DEV*, EXIT+3!
IO GO+2
IO("Q" DEV
IOF EN, EXIT+1, HDR
ION DEV
IOSL PRINT+4, PRINT+6, PRINT1, PRINT1+2
IOST PRINT+4, PRINT+13, PRINT1, GO+10
ITEMS GO+1*, EXIT+4!
LN GO+1!*, EXIT+4!, NAMELN
NAME CHECK+8*, CHECK+12, PRINT*, PRINT+1*, PRINT+3, PRINT+8, EXIT+3!, LINKCK+19, NAMELN
OLDX CHECK~, CHECK+1*, CHECK+9
PARAMDA EN+7!, RPTCHK+1~*, RPTCHK+2*, RPTCHK+3, SETSTYLE+1*, SETSTYLE+2*, SETSTYLE+3
PARAMVAL RPTCHK+1~, RPTCHK+3*, RPTCHK+4
PG GO+1*, EXIT+3!, HDR*, HDR+1
POP DEV, EXIT+3!
PRINT EXIT+4!
REQDA CHECK+8*, PRINT+10*, EXIT+5!, LINKCK+6, LINKCK+9, LINKCK+16, LINKCK+17
SITE GO+8*, GO+11!
STYLEIND CHECK+8, EN+5, EN+6, GO, GO+5, EXIT+5!, SETSTYLE+3*
TODAYDT GO+7*, GO+11!
U CHECK+5, CHECK+6, CHECK+7, CHECK+8, PRINT+11, LINKCK+9, RPTCHK+3, NAMELN, SETSTYLE+3
X CHECK+1, CHECK+5*, CHECK+6*, CHECK+7*, CHECK+9, CHECK+10*, CHECK+11*, CHECK+12, GO+2*, GO+6
, GO+7!, EXIT+3!, LINKCK+4*, LINKCK+5, LINKCK+7!, LINKCK+9, LINKCK+10!, LINKCK+11!, LINKCK+12*, LINKCK+20*
X1 LINKCK+7!, LINKCK+9*
X2 LINKCK+7!, LINKCK+9*
XI CHECK+5*, PRINT+1*, EXIT+3!
Y GO+6*, GO+7!, EXIT+3!
ZTDESC DEV*, EXIT+4!
ZTIO DEV*, EXIT+4!
ZTQUEUED EXIT+1, EXIT+2, EXIT+4!
ZTRTN DEV*, EXIT+4!
ZTSAVE EXIT+3!
ZTSAVE( DEV*
ZTSK DEV+1, EXIT+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All