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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call