Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DTC  HLP^DDSUTL  ^DIC  ^DIK  $$GET1^DIQ  
Womens Health 2 ($$DECEASED,$$DOB)^WVUTL1  DIRZ^WVUTL3  
Kernel 1 $$NOW^XLFDT  
Registration 1 (ADD,ELIG,KVAR,SDA)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Womens Health 20 WVBRNED  WVBRNED1  WVEXPTRA  WVGETALL  WVLAB  WVLETPR  WVLRLINK  WVMSTL  
WVMSTL1  WVPATE  WVPATP  WVPROC  WVRALIN1  WVRPCGF1  WVRPCNO1  WVRPCPD  
WVRPSCR1  WVRPSCR2  WVRPSNP  WVUTL7  

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?

External References

Name Field # of Occurrence
^%DTC AGE+10
HLP^DDSUTL HELP+8
^DIC SAPPT+7, SAPPT+13, SADD+7, RA+5, RA+13, CC+5, CC+13
^DIK KAPPT+6, KADD+6, DELETE+17, DELETE+26
$$GET1^DIQ RA+9, CC+9
ADD^VADPT GADD+3
ELIG^VADPT ELIG+5
KVAR^VADPT KVAR+1
SDA^VADPT GAPPT+10
$$DECEASED^WVUTL1 AGE+9
$$DOB^WVUTL1 AGE+6
DIRZ^WVUTL3 NODCM+5
$$NOW^XLFDT GAPPT+9

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
Routine Call
  • DIC
  • Line Location:
    • SAPPT+7
    • SAPPT+13
    • SADD+7
    • RA+5
    • RA+13
    • CC+5
    • CC+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] GET1^DIQ
^WV(790.02 - [#790.02] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] AGE+9
^UTILITY("VASD" SAPPT+5, SAPPT+9, SAPPT+10, KILLUG+1!
^WV( IEN+4
^WV(790 - [#790] KAPPT+4, SAPPT+2, KADD+4, SADD+2
^WV(790.02 - [#790.02] DCM+3, HELP+4, DELETE+4, DELETE+17, DELETE+26

Label References

Name Line Occurrences
CC SADD+11, SADD+12
RA SADD+10, SADD+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA KAPPT+2~, KAPPT+3*, KAPPT+4*, SAPPT+3~, KADD+2~, KADD+3*, KADD+4*, SADD+3~, DELETE+15~, DELETE+16*
, DELETE+17*, DELETE+24~, DELETE+25*, DELETE+26*
DA(1 KAPPT+3*, SAPPT+4*, KADD+3*, SADD+4*, DELETE+16*, DELETE+17, DELETE+25*, DELETE+26
DFN AGE~, AGE+5, AGE+6, AGE+9, GAPPT~, GAPPT+7, KAPPT~, KAPPT+1, KAPPT+3, KAPPT+4
, KAPPT+5, SAPPT~, SAPPT+1, SAPPT+2, SAPPT+4, GADD~, GADD+2, KADD~, KADD+1, KADD+3
, KADD+4, KADD+5, SADD~, SADD+1, SADD+2, SADD+4, ELIG+3~, ELIG+4*
DIC SAPPT+3~, SAPPT+4*, SADD+3~, SADD+4*
DIC(0 SAPPT+4*, SADD+4*
DIK KAPPT+2~, KAPPT+5*, KADD+2~, KADD+5*, DELETE+15~, DELETE+16*, DELETE+24~, DELETE+25*
DLAYGO SAPPT+3~, SAPPT+4*, SADD+3~, SADD+4*
DT AGE+8
I ELIG+3~
LOOP SAPPT+3~, SAPPT+4*, SAPPT+9*, SAPPT+10, SADD+3~, SADD+4*, RA+1*, RA+2, CC+1*, CC+2
SITE DCM~, DCM+2, DCM+3
U DCM+3, SAPPT+12, SADD+11, SADD+12, RA+8, RA+9, CC+8, CC+9, CC+11, DELETE+6
, DELETE+7, DELETE+8, DELETE+9
VAEL ELIG+3~
VAEL(1 ELIG+6
VAERR GAPPT+8~, ELIG+3~
>> VAPA SADD+5
>> VAPA( RA+2, CC+2
>> VAPA(12 SADD+10
>> VAPA(16 CC+11
>> VAPA(17 CC+8, CC+9
>> VAPA(18 CC+11
>> VAPA(22 SADD+11, SADD+12
>> VAPA(4 RA+11
>> VAPA(5 RA+8, RA+9
>> VAPA(6 RA+11
VASD GAPPT+8~
VASD("F" GAPPT+9*
VASD("W" GAPPT+9*
WVA HELP~, HELP+4
WVALUE IEN~, IEN+3, IEN+4
WVB HELP~, HELP+6
WVDA HELP~, HELP+4, DELETE~, DELETE+2, DELETE+4, DELETE+16, DELETE+25
WVDFN ELIG~, ELIG+4
WVERR SADD+3~
WVFILE IEN~, IEN+3, IEN+4
WVLAV DELETE+3~, DELETE+9*, DELETE+23
WVLSP DELETE+3~, DELETE+8*, DELETE+23
WVMSG HELP+5~, HELP+8
WVMSG(1 HELP+6*
WVMSG(2 HELP+7*
WVNODE DELETE+3~, DELETE+4*, DELETE+5, DELETE+6, DELETE+7, DELETE+8, DELETE+9
WVRAV DELETE+3~, DELETE+7*, DELETE+14
WVRSP DELETE+3~, DELETE+6*, DELETE+14
WVSTATE SADD+3~, RA+7*, RA+9*, RA+11, CC+7*, CC+9*, CC+11
X AGE+4~, AGE+11, SAPPT+3~, SAPPT+6*, SAPPT+10*, SAPPT+11, SAPPT+12*, SADD+3~, SADD+6*, RA+2*
, RA+3, RA+4*, RA+11*, RA+12, CC+2*, CC+3, CC+4*, CC+11*, CC+12, ELIG+3~
, DELETE+3~
X1 AGE+4~, AGE+8*, AGE+9*
X2 AGE+4~, AGE+6*, AGE+7
Y ELIG+3~, DELETE+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All