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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VPRHSX2

Package: Virtual Patient Record

Routine: VPRHSX2


Information

VPRHSX2 ;SLC/MKB -- Monitor Encounter Upload task ;09/18/18 4:36pm

Source Information

Source file <VPRHSX2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (ISQED,STAT)^%ZTLOAD  ($$FMTE,$$HTE,$$NOW)^XLFDT  ($$REPEAT,$$UP)^XLFSTR  $$PROD^XUPROD  EN^XUTMTP  
Virtual Patient Record 3 $$CATG^VPRDVSIT  QUE^VPRENC  $$ON^VPRHS  
VA FileMan 2 $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Virtual Patient Record 3 VPR HS MENU  VPR HS MGR  VPR HS TASK MONITOR  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- Monitor Encounter update task
ERR
DISP ; -- show current status
TSKERR(X) ; -- return description for error code X
WAIT ; -- end of action
TSK ; -- TM display of task
QUE ; -- Requeue the task
QD ;end
REQUE() ; -- return 1 or 0, if ready to re-queue task
ENC ; -- display ^XTMP("VPRPX",VST~DFN)
VTYP(C,HL) ; -- return visit type for service Category & Hosp Loc
EHDR ; -- write encounter header
DOC ; -- display ^XTMP("VPRPX","DOC",ien)
DHDR ; -- write doc header
ACTION() ; -- select monitor action
A1
ACTHLP ; -- show choices
BANNER ; -- banner(s) for mgt menu

External References

Name Field # of Occurrence
ISQED^%ZTLOAD DISP+7, BANNER+3
STAT^%ZTLOAD DISP+13
$$GET1^DIQ DOC+7
^DIR REQUE+3
$$CATG^VPRDVSIT VTYP+4
QUE^VPRENC QUE+7
$$ON^VPRHS DISP+3, QUE+5, BANNER+1
$$FMTE^XLFDT DISP+2, ENC+9, EHDR+1, DOC+8, DHDR+1
$$HTE^XLFDT DISP+11
$$NOW^XLFDT DISP+2, EHDR+1, DHDR+1
$$REPEAT^XLFSTR EHDR+2, DHDR+2
$$UP^XLFSTR A1+3
$$PROD^XUPROD BANNER+1
EN^XUTMTP TSK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Current time: "_$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !!,"Data Monitoring System is "_$S($$ON^VPRHS:"",1:"NOT ")_"ON."
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!,"Checking TaskMan ..."
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !?5,"Task #"_ZTSK_" is "_$S(STS:"SCHEDULED",STS="":"INVALID.",1:"")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: " for "_$$HTE^XLFDT(X)
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !?5,$$TSKERR($G(ZTSK("E")))
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: $G(ZTSK(2))
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !!,"Checking the Transmission List ...",!
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !?5,"There are "_$S($O(@VPRPX@(0)):"",1:"no ")_"encounters awaiting transmission."
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !?5,"There are "_$S($O(@VPRPX@("DOC",0)):"",1:"no ")_"documents awaiting transmission."
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !!," *** VPR ENCOUNTER TASK MUST BE RESTARTED ***"
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !!,"Task does not exist."
  • Line Location: TSK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TSK+2
Function Call: WRITE
  • Prompt: !!,"Task #"_ZTSK_" is no longer current."
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,"The task is current and scheduled."
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"There is no data awaiting transmission."
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"VPR Encounter task needs to be "_$S(ZTSK:"re",1:"")_"started."
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,$C(7),"Data Monitoring must be enabled first!"
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !,$C(7),"Please contact Health Product Support for assistance!"
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !!,"Task "_$S(ZTSK:"#"_ZTSK,1:" NOT")_" queued."
  • Line Location: QUE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: REQUE+3
Function Call: WRITE
  • Prompt: !!,"No encounters are awaiting transmission."
  • Line Location: ENC+2
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(VPRT,"2FS"),?21,+VPRI,?32,DFN,?44,NAME
  • Line Location: ENC+9
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue or ^ to exit ..."
  • Line Location: ENC+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENC+12
Function Call: WRITE
  • Prompt: !,@$S($L(STR)<59:"?20",1:"?"_(78-$L(STR))),"+ "_STR
  • Line Location: ENC+19
Function Call: WRITE
  • Prompt: @IOF," Last Updated Visit# DFN Location ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: EHDR+1
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: EHDR+2
Function Call: WRITE
  • Prompt: !!,"No documents are awaiting transmission."
  • Line Location: DOC+2
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(VPRT,"2FS"),?20,VPRI,?32,DFN,?44,$E(TTL,1,32)_$S($L(TTL)>32:"...",1:"")
  • Line Location: DOC+8
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue or ^ to exit ..."
  • Line Location: DOC+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DOC+11
Function Call: WRITE
  • Prompt: @IOF," Last Updated Doc# DFN Title ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: DHDR+1
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: DHDR+2
Function Call: WRITE
  • Prompt: !,"Select monitor action: UPDATE// "
  • Line Location: A1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: $C(7)," ??",!
  • Line Location: A1+4
Function Call: WRITE
  • Prompt: !!?5,"Enter <RETURN> to refresh the monitor display."
  • Line Location: ACTHLP+1
Function Call: WRITE
  • Prompt: !?5,"Enter Q to exit the monitor."
  • Line Location: ACTHLP+2
Function Call: WRITE
  • Prompt: !?5,"Enter T to display the task."
  • Line Location: ACTHLP+3
Function Call: WRITE
  • Prompt: !?5,"Enter E to display the Encounter list."
  • Line Location: ACTHLP+5
Function Call: WRITE
  • Prompt: !?5,"Enter D to display the Document list."
  • Line Location: ACTHLP+6
Function Call: WRITE
  • Prompt: !?5,"Enter ? to see this message.",!
  • Line Location: ACTHLP+7
Function Call: WRITE
  • Prompt: !!,$C(7),">> WARNING -- DATA MONITORING IS NOT ENABLED!!"
  • Line Location: BANNER+1
Function Call: WRITE
  • Prompt: !!,">> WARNING -- VPR ENCOUNTER TASK IS NOT RUNNING!!"
  • Line Location: BANNER+4
Routine Call
  • DIR
  • Line Location:
    • REQUE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] ENC+7
^SC - [#44] VTYP+3
^XTMP("VPRPX" EN+2, BANNER+2

Label References

Name Line Occurrences
$$ACTION EN+4
$$REQUE QUE+6
$$TSKERR DISP+12
$$VTYP ENC+8
@( EN+6
A1 A1+2, A1+4
ACTHLP A1+2
DHDR DOC+3, DOC+12
DISP EN+4
EHDR ENC+3, ENC+13
QD QUE+1, QUE+2, QUE+3, QUE+5, QUE+6
WAIT TSK+2, QD+1, ENC+14, DOC+2, DOC+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT EN+1~, EN+4*, EN+5, EN+6
C VTYP~, VTYP+2*, VTYP+3, VTYP+4
CODES ACTION+1~, ACTION+2*, A1+4
DFN ENC+1~, ENC+7*, ENC+9, DOC+1~, DOC+7*, DOC+8
DIR REQUE+1~
DIR("A" REQUE+2*
DIR("B" REQUE+2*
DIR(0 REQUE+2*
DONE EN+1~, EN+2*, EN+3, EN+5*
DTIME WAIT+1, ENC+12, DOC+11, A1+1
DTOUT REQUE+1~, REQUE+3
DUOUT REQUE+1~
EXT ENC+1~, ENC+5*, ENC+12*, ENC+14, DOC+1~, DOC+5*, DOC+11*, DOC+13
HL VTYP~, VTYP+2*, VTYP+3
IOF DISP+2, EHDR+1, DHDR+1
L ENC+1~, ENC+8*
LCNT ENC+1~, ENC+5*, ENC+10*, DOC+1~, DOC+5*, DOC+9*
NAME ENC+1~, ENC+8*, ENC+9
STS EN+1~, DISP+7*, DISP+8, DISP+10, DISP+11, DISP+12, DISP+20, QUE+2, BANNER+2~, BANNER+3*
, BANNER+4
TTL DOC+1~, DOC+7*, DOC+8
U ENC+8, VTYP+3
VPRD DOC+1~, DOC+4*
VPRI ENC+1~, ENC+6*, ENC+7, ENC+9, DOC+1~, DOC+6*, DOC+7, DOC+8
VPRPX EN+1~, EN+2*, DISP+1, DISP+17, DISP+18, QUE+1, QUE+3, QUE+7, ENC+2, ENC+4
, DOC+2, DOC+4
VPRT ENC+1~, ENC+6*, ENC+9, DOC+1~, DOC+6*, DOC+8
>> VPRTEST ACTION+2, ACTHLP+4
VPRV ENC+1~, ENC+4*
VPRX ENC+1~, ENC+4*, ENC+5*, ENC+6, ENC+10, DOC+1~, DOC+4*, DOC+5*, DOC+6, DOC+9
X DISP+11*, TSKERR~, TSKERR+1*, TSKERR+2, TSKERR+3, TSKERR+4, TSKERR+5, TSKERR+6, WAIT+1~*, REQUE+1~
, ENC+1~, ENC+8*, ENC+12*, DOC+1~, DOC+11*, ACTION+1~, A1+1*, A1+2, A1+3*, A1+4
, A1+5
X0 ENC+1~, ENC+7*, ENC+8
Y TSKERR+1~*, TSKERR+2*, TSKERR+3*, TSKERR+4*, TSKERR+5*, TSKERR+6*, TSKERR+7, REQUE+1~, REQUE+3*, REQUE+4
, VTYP+1~*, VTYP+3*, VTYP+4*, VTYP+5
ZTSK EN+1~, DISP+1!*, DISP+7, DISP+9, DISP+10, DISP+20, TSK+1, TSK+2, QUE+1, QUE+2
, QUE+3, QUE+4, QUE+7*, QUE+8, BANNER+2~*
ZTSK("D" DISP+11
ZTSK("E" DISP+12
ZTSK(0 DISP+7, BANNER+3
ZTSK(2 DISP+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All