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

Package: Clinical Information Resource Network

Routine: RGRPDAT


Information

RGRPDAT ;BAY/ALS-ROUTINE TO CALL REMOTE PDAT ;09/14/01

Source Information

Source file <RGRPDAT.m>

Entry Points

Name Comments DBIA/ICR reference
ASK ;Ask For Patient
SEND ;
SEND2 ;
CHKSTAT ;check on the status for a given ICN or SSN
CHKSTAT2 ;
DISP
DISP2 ;
DISPLAY(ICN,LOC) ;display a remote pdat report
GETTFL(ICN,TFL) ;Check for existing Treating Facilities
SELTF ;Allow the user to select treating facilites from a list
MONITOR(ICN,LOC,RESULT) ;
REQ(ICN,TFL,LOC)
SENS ;Check for patient sensitivity
D1 ;
D2 ;
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Patient lookup can be done by Patient Name, SSN or by ICN.",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"There is no Integration Control Number assigned to this patient,",!,"no treating facilities to query."
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,"Query last sent for this ICN on "_SNTDT,!
  • Line Location: SEND+3
Function Call: WRITE
  • Prompt: !,"Remote patient data queries will be sent to: "
  • Line Location: SEND+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SEND+10
Function Call: WRITE
  • Prompt: !?3,"Sending Remote Query to: ",X," ",$P(TFL(X),"^")
  • Line Location: SEND+12
Function Call: WRITE
  • Prompt: !!?3,"There are no remote treating facilities listed for this patient.",!?3,"No remote query will be sent."
  • Line Location: SEND+15
Function Call: WRITE
  • Prompt: !!,"This option sends a remote query to selected treating"
  • Line Location: SEND2+2
Function Call: WRITE
  • Prompt: !,"facility site(s) for MPI/PD data for a patient."
  • Line Location: SEND2+3
Function Call: WRITE
  • Prompt: !!,"Checking the status of remote patient data query.",!
  • Line Location: CHKSTAT+2
Function Call: WRITE
  • Prompt: !!,"No remote query sent for this patient."
  • Line Location: CHKSTAT+3
Function Call: WRITE
  • Prompt: !!,"-> For ICN "_$S(+FULLICN>0:FULLICN,1:"")
  • Line Location: CHKSTAT+5
Function Call: WRITE
  • Prompt: !,"No remote query sent for this patient."
  • Line Location: CHKSTAT+9
Function Call: WRITE
  • Prompt: !?3," ",$P(TFL(SL),"^")," status: (",STATUS,")"
  • Line Location: CHKSTAT+18
Function Call: WRITE
  • Prompt: !!?3,"There are no remote treating facilities listed for this patient.",!?3,"No remote query sent for this patient."
  • Line Location: CHKSTAT+19
Function Call: WRITE
  • Prompt: !!,"This option checks the status of an existing remote patient data query."
  • Line Location: CHKSTAT2+2
Function Call: WRITE
  • Prompt: !!,"Display data returned from remote patient data queries."
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"(Be sure HISTORY is enabled to capture data!)",!
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !!,"No remote query sent for this patient."
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!,"-> For ICN "_$S(+FULLICN>0:FULLICN,1:"")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"No remote query sent for this patient."
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !?3," ",$P(TFL(SL),"^")," status: (",STATUS,")",!
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !?3,"There are no remote treating facilities listed for this patient.",!?3,"No remote query exists for this patient."
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !?15," - No patient data query exists for this record."
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"No data returned due to: "_$P(RET(0),"^",2)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,TXT
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,RET(R)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,"Select one or more of the following: "
  • Line Location: SELTF+11
Function Call: WRITE
  • Prompt: !!,"PATIENT MARKED SENSITIVE."
  • Line Location: SENS+5
Function Call: WRITE
  • Prompt: !,"You do not have proper security to view this record."
  • Line Location: SENS+6
Function Call: WRITE
  • Prompt: !,C1_".",?4,"("_$P(TFARR(I),"^",1)_") "_$P(TFARR(I),"^",2)
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: !,I_".",?4,"("_$P(TFARR(I),"^",1)_") "_$P(TFARR(I),"^",2)
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: ?41,I2_". ",?44,"("_$P(TFARR(I2),"^",1)_") "_$P(TFARR(I2),"^",2)
  • Line Location: D2+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call