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

Package: Womens Health

Routine: WVUTL9


Information

WVUTL9 ;HCIOFO/FT-Women's Health Utility Routine; ;3/18/03 15:44

Source Information

Source file <WVUTL9.m>

Entry Points

Name Comments DBIA/ICR reference
DCM(SITE) ; Default case manager check
; If there is a default case manager return 1 else 0.
NODCM ; No Default Case Manager message
AGE(DFN) ;EP
GAPPT(DFN) ; Get future appointments from SDA^VADPT
; Returns ^UTILITY("VASD",$J,#,"I") <-internal values
; ^UTILITY("VASD",$J,#,"E") <-external vlaues
; piece 1: appointment date/time
; 2: clinic
; 3: status
; 4: type
KAPPT(DFN) ; Kill APPOINTMENTS multiple
SAPPT(DFN) ; Set APPOINTMENTS multiple
KILLUG ; Kill Utility Global created by SDA^VADPT call
IEN(WVFILE,WVALUE) ; Return ien of entry
; input: WVFILE - File number
; WVALUE - value of the .01 field
GADD(DFN) ; Get COMPLETE ADDRESS with ADD^VADPT
; Returns VAPA array
KADD(DFN) ; Kill COMPLETE ADDRESS multiple
SADD(DFN) ; Set COMPLETE ADDRESS multiple
RA ; get regular address
CC ; get Confidential Communication address
KVAR ; Kill off VADPT variables used
ELIG(WVDFN) ; Get patient's eligibilty code.
; Input: patient DFN
; Output: internal^external values
HELP(WVDA,WVA,WVB) ; Display message for eligiblity codes
; WVDA - the FILE 790.02 ien
; WVA - the node number where the eligibilty codes are stored
; WVB - the package name associated with those eligibility codes
DELETE(WVDA) ; Delete eligibility codes, if necessary
; task as a background job?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Sorry, but a DEFAULT CASE MANAGER must be assigned for your facility"
  • Line Location: NODCM+1
Function Call: WRITE
  • Prompt: !,"before a patient can be entered into the Women's Health database.",!
  • Line Location: NODCM+2
Function Call: WRITE
  • Prompt: !,"Please use the EDIT SITE PARAMETERS option on the FILE MAINTENANCE"
  • Line Location: NODCM+3
Function Call: WRITE
  • Prompt: !,"menu to designate a DEFAULT CASE MANAGER.",!
  • Line Location: NODCM+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] GET1^DIQ
^WV(790.02 - [#790.02] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call