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
Print Page as PDF
Routine: VPRHSX1

Package: Virtual Patient Record

Routine: VPRHSX1


Information

VPRHSX1 ;SLC/MKB -- HS Mgt Options cont ;09/18/18 4:36pm

Source Information

Source file <VPRHSX1.m>

Entry Points

Name Comments DBIA/ICR reference
GET ; -- Add patient/container/record to GET list [VPR HS PUSH]
G1 ;loop for prompting
ICN(DFN) ; -- return ICN or -1^Message
ICQ ;exit
OUT(N) ; -- write message
CONT() ; -- continue?
ENTITY(TYPE) ; -- return array of selected Entity info
ENTQ ;exit
ALL() ; -- return 1 or 0, for full container (all records) update
QUERY ; -- execute Query, return DLIST(#)=ID
; Expects DFN, ENT=ien^name^file#
SELECT(FNUM) ; -- select ID(s) for update list
LIST ; -- ??help for SELECT
DATE(FN,FD,DA) ; -- return external date
NAME(FN,FD,DA) ; -- return name or description
FIELDS(FN,IEN) ; -- DATE;NAME fields to display record

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WARNING: Data Monitoring is currently disabled!",!
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: This patient is not currently in the Edge Cache Repository (ECR)!",!
  • Line Location: GET+6
Function Call: WRITE
  • Prompt: !,$P(ICN,U,2),!,"Cannot add to ECR",!
  • Line Location: GET+7
Function Call: WRITE
  • Prompt: !,"This patient already has a request for subscription.",!
  • Line Location: GET+8
Function Call: WRITE
  • Prompt: !," ... request "_$S(X:"",1:"NOT ")_"added to update queue."
  • Line Location: GET+11
Function Call: WRITE
  • Prompt: !,"Patient is being merged"_$S(X:" into DFN "_X,1:""),!
  • Line Location: GET+15
Function Call: WRITE
  • Prompt: !,"ICN is required!",!
  • Line Location: GET+16
Function Call: WRITE
  • Prompt: !,"This patient already has a container update request in the queue!",!
  • Line Location: G1+2
Function Call: WRITE
  • Prompt: !,"Entire container must be updated."
  • Line Location: G1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: G1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: G1+7
Function Call: WRITE
  • Prompt: !,"No records available to update.",!
  • Line Location: G1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: G1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: G1+18
Function Call: WRITE
  • Prompt: !,TYPE," container "_$S(SEQ:"",1:" NOT")_" added to update queue."
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,TYPE_" "_$S($G(N):"#"_N,1:"")_$S(SEQ:"",1:" NOT")_" added to update queue."
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: !!,"This container has no source files."
  • Line Location: ENTITY+4
Function Call: WRITE
  • Prompt: !!,"This container has multiple sources; please select one."
  • Line Location: ENTITY+7
Function Call: WRITE
  • Prompt: !!,"Available "_TYPE_"s for "_$P($G(^DPT(DFN,0)),U)_": "
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !,LCNT,?5,$$DATE(FNUM,$P(FLDS,";"),ID)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: @$S(TYPE="Problem":"?19",TYPE="MemberEnrollment":"?19",1:"?25")
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: $$NAME(FNUM,$P(FLDS,";",2,99),ID)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,"Press <return> to continue..."
  • Line Location: LIST+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LIST+9
Info |  Source |  Entry Points |  Interaction Calls