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

Package Total Caller Graph
Womens Health 18 WVBRNED  WVBRNED1  WVEXPTRA  WVGETALL  WVLAB  WVLETPR  WVLRLINK  WVMSTL  
WVMSTL1  WVPATE  WVPATP  WVPROC  WVRALIN1  WVRPCNO1  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