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

Package: Vendor - Audiofax Inc

Routine: VEXRX


Information

VEXRX ;MUSKOGEE VAMC/GLD - AUDIOFAX SUBROUTINE - 6-21-94

Source Information

Source file <VEXRX.m>

Entry Points

Name Comments DBIA/ICR reference
START
VEX
VEX6
VEX3
VEX4
VEX10
VEX5 ;
; Next statement is used by BFD/648 CHK PROGRESS THRU PROGRAM
VEX12 ;
; @3
END
VEXALT ;Menu action entry point to alert user
VEXEND
ULK ;
RENEWCHK ; Checks ^VEXHRX node for renewal information
; Renewal check
; @1
BFDRNCHK ; 648/BFD 4-27-06 There is data in global - is it date or renewal request
; Troubleshooting - put this on next line after =1
; W !,"there is no ^ in VEXREN "_VEXREN_" so must just be a date. Set Vex648 to 0"

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ".none found.",!
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !?5,$P($G(^PS(59,+$G(PSOVX),0)),"^")
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!!?20,"Division: "_$P(^PS(59,PSOSITE,0),"^"),!!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !!?7,$C(7),"There are no telephone refills to process."
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !
  • Line Location: VEX+0
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7),$C(7),"Not from this institution.",!
  • Line Location: VEX6+2
Function Call: WRITE
  • Prompt: !,$C(7),"Rx data is not on file!",!
  • Line Location: VEX6+6
Function Call: WRITE
  • Prompt: !,$C(7),"Rx has already been deleted."
  • Line Location: VEX6+7
Function Call: WRITE
  • Prompt: !,$C(7),"Rx has already been entered."
  • Line Location: VEX6+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: VEX6+12
Function Call: WRITE
  • Prompt: !!,$C(7),"REFILL WAS NOT PROCESSED! PLEASE TAKE APPROPRIATE ACTION."
  • Line Location: VEX12+4
Function Call: WRITE
  • Prompt: !!,"Your Outpatient Site parameters have been deleted because you selected an",!,"inactive Outpatient Site!",!
  • Line Location: END+17
Function Call: WRITE
  • Prompt: !,"there is no ^ in VEXREN "_VEXREN_" so must just be a date. Set Vex648 to 0"
  • Line Location: BFDRNCHK+2
Function Call: WRITE
  • Prompt: !,"VEXREN is "_VEXREN_" this check is for something in piece 1 of ] and sets VEX648=1"
  • Line Location: BFDRNCHK+5
Function Call: WRITE
  • Prompt: !,"VEXREN is "_VEXREN_" this check is for nothing in piece 1 of '] and set VEX648 to 0"
  • Line Location: BFDRNCHK+8

FileMan Files Accessed Via FileMan Db Call

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