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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: WVUTL3

Package: Womens Health

Routine: WVUTL3


Information

WVUTL3 ;HCIOFO/FT,JR - UTIL: DATE, LOCK, DIR, PATVARS;08/08/2017 08:47

Source Information

Source file <WVUTL3.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Womens Health 9 DIE^WVFMAN  DMYCHECK^WVPURP  ($$MTEXT,DELALERT,METHOD,TRY)^WVTDALRT  ($$ACC,$$BNEED,$$CMGR,$$CNEED,$$EDC,$$NAMAGE,$$NAME,$$PAPRG,$$SSN)^WVUTL1  $$COBP^WVUTL11  $$PROC^WVUTL1A  ($$COLP0,$$DIAG)^WVUTL4  SETVARS^WVUTL5  
$$PROV^WVUTL6  
VA FileMan 4 (,DD)^%DT  FILE^DICN  (EN,EN2)^DIK  ^DIR  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  

Caller Graph

Caller Graph Total: 45

Package Total Caller Graph
Womens Health 45 WVBRNED  WVBRNED1  WVBRNOT1  WVBRNOT2  WVBRPCD1  WVBRPCD2  WVCMGR  WVDIAG  
WVDIAGS  WVFACE  WVFMAN  WVGETALL  WVLAB  WVLABLG  WVLABLG1  WVLETDQ  
WVLETPR  WVLOGO  WVMGRP  WVMSTL1  WVNOTIF  WVNOTIF1  WVPATE  WVPATP  
WVPROC  WVPROC1  WVPROF1  WVPROF2  WVPROF3  WVPRPCD  WVPURP  WVRAD  
WVRPCGF2  WVRPCPT  WVRPPCD  WVRPPCD1  WVRPPCD3  WVRPSCR  WVRPSNP1  WVRPST  
WVSELECT  WVUTL7  WVUTL8  WVUTL9  WVYNOTP  

Entry Points

Name Comments DBIA/ICR reference
OUT ;EP
ASKDATES(WVB,WVE,WVPOP,WVBDF,WVEDF,WVSAME,WVTIME) ;EP
LOCKED ;EP
LOCKEDE ;EP
LOCKEDP ;EP
LOCKEDL ;EP
LOCKEDM ;EP
DIRZ ;EP
DIRPRMT ;EP
STORPAP ;EP
PCDVARS(DA,TEXTDATE,COLP) ;EP
PATVARS(DFN,TEXTDATE) ;EP
SETFMVAR ;SAVE FILEMAN VARIABLES FOR RESTORATION
GETFMVAR ;RESTORE FILEMAN VARIABLS
FMADD(WVDAYS,WVPDT) ; This function adds the date offset indicated to the
; specified date to calculate a future date.
; Input: WVDAYS - date offset (e.g., 90D, 6M, 1Y) [required]
; WVPDT - date of procedure [optional]
; default is today
; Output: FileMan date. Returns null if a FileMan date could not
; be calculated.
PSTATCHG(OLDVAL,NEWVAL,DA) ;UPDATE RELATED FIELDS WHEN PREGNANCY STATUS
; FIELD VALUE CHANGES ('AF' CROSS-REFERENCE
; IN PREGNANCY STATUSES SUB-FILE #790.05)
; INPUT: OLDVAL - The original value in internal format
; NEWVAL - The new value in internal format
; DA - Reference to a FileMan DA array containing the IEN values
; that identify the entry the user is modifying
EIECHG(OLDVAL,NEWVAL,DA,NODE) ;UPDATE RELATED FIELDS WHEN ENTERED IN ERROR FIELD
; VALUE CHANGES ('AN' CROSS-REFERENCE IN PREGNANCY
; STATUSES SUB-FILE #790.05 AND 'AG' CROSS-REFERENCE IN
; LACTATION STATUSES SUB-FILE #790.16)
; INPUT: OLDVAL - The original value in internal format
; NEWVAL - The new value in internal format
; DA - Reference to a FileMan DA array containing the IEN values
; that identify the entry the user is modifying
; NODE - THE SUBSCRIPT THAT CONTAINS THE DATA

External References

Name Field # of Occurrence
^%DT ASKDATES+19, ASKDATES+26
DD^%DT ASKDATES+18, ASKDATES+24, ASKDATES+25
FILE^DICN STORPAP+21
EN^DIK PSTATCHG+12, PSTATCHG+18, PSTATCHG+21
EN2^DIK EIECHG+13
^DIR DIRZ+7, DIRPRMT+12
DIE^WVFMAN STORPAP+15
DMYCHECK^WVPURP FMADD+13
$$MTEXT^WVTDALRT EIECHG+28
DELALERT^WVTDALRT EIECHG+28
METHOD^WVTDALRT PSTATCHG+13
TRY^WVTDALRT EIECHG+27
$$ACC^WVUTL1 PCDVARS+19
$$BNEED^WVUTL1 PATVARS+13
$$CMGR^WVUTL1 PATVARS+10
$$CNEED^WVUTL1 PATVARS+11
$$EDC^WVUTL1 PATVARS+14
$$NAMAGE^WVUTL1 PATVARS+8
$$NAME^WVUTL1 PATVARS+7
$$PAPRG^WVUTL1 PATVARS+12
$$SSN^WVUTL1 PATVARS+9
$$COBP^WVUTL11 EIECHG+23, EIECHG+26
$$PROC^WVUTL1A PCDVARS+21
$$COLP0^WVUTL4 PCDVARS+17
$$DIAG^WVUTL4 PCDVARS+22
SETVARS^WVUTL5 STORPAP+7
$$PROV^WVUTL6 PCDVARS+23
$$FMADD^XLFDT FMADD+17
$$NOW^XLFDT EIECHG+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," *** Date Range Selection ***"
  • Line Location: ASKDATES+15
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry. Please, try again later."
  • Line Location: LOCKED+2
Function Call: WRITE
  • Prompt: !?5,"Another user is editing the Pregnancy Log for this patient"
  • Line Location: LOCKEDE+2
Function Call: WRITE
  • Prompt: !?5,"for this day. Please, try again later."
  • Line Location: LOCKEDE+3
Function Call: WRITE
  • Prompt: !?5,"Another user is editing the PAP Regimen Log for this patient"
  • Line Location: LOCKEDP+2
Function Call: WRITE
  • Prompt: !?5,"for this day. Please, try again later."
  • Line Location: LOCKEDP+3
Function Call: WRITE
  • Prompt: !?5,"Another user is editing the Lactation Log for this patient"
  • Line Location: LOCKEDL+2
Function Call: WRITE
  • Prompt: !?5,"for this day. Please, try again later."
  • Line Location: LOCKEDL+3
Function Call: WRITE
  • Prompt: !?5,"Another user is editing the Menstrual Cycle Log for this patient"
  • Line Location: LOCKEDM+2
Function Call: WRITE
  • Prompt: !?5,"for this day. Please, try again later."
  • Line Location: LOCKEDM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DIRZ+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DIRZ+7
Routine Call
  • DIR
  • Line Location:
    • DIRZ+7
    • DIRPRMT+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^WV(790.04 - [#790.04] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^WV(790 - [#790] PSTATCHG+9*, PSTATCHG+10*, PSTATCHG+15*, PSTATCHG+16*, PSTATCHG+20*, EIECHG+11*, EIECHG+14*, EIECHG+15*, EIECHG+16, EIECHG+17
, EIECHG+19, EIECHG+22, EIECHG+25
^WV(790.04 - [#790.04] STORPAP+12, STORPAP+13, STORPAP+14, STORPAP+15
^WV(790.1 - [#790.1] PCDVARS+15, PCDVARS+16

Label References

Name Line Occurrences
@( EIECHG+20
DIRZ OUT+2, LOCKED+3, LOCKEDE+4, LOCKEDP+4, LOCKEDL+4, LOCKEDM+4
LOCKEDP STORPAP+14
PATVARS PCDVARS+24

Naked Globals

Name Field # of Occurrence
^(0 EIECHG+11*
^(2 PCDVARS+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASKDATES+14~, ASKDATES+16*, ASKDATES+19!, ASKDATES+22*, ASKDATES+26!
%DT("A" ASKDATES+17*, ASKDATES+23*
%DT("B" ASKDATES+18*, ASKDATES+21!, ASKDATES+24*, ASKDATES+25*
%DT(0 ASKDATES+21*
COLP PCDVARS~, PCDVARS+17*
DA STORPAP+6~, STORPAP+13*, STORPAP+14, STORPAP+15, PCDVARS~, PCDVARS+15, PCDVARS+16, PCDVARS+17, PCDVARS+19, PCDVARS+21
, PSTATCHG~, PSTATCHG+9, PSTATCHG+10, PSTATCHG+13, PSTATCHG+15, PSTATCHG+16, PSTATCHG+20, EIECHG~, EIECHG+11, EIECHG+14
, EIECHG+15, EIECHG+16, EIECHG+22, EIECHG+23
DA(1 PSTATCHG+9, PSTATCHG+10, PSTATCHG+11, PSTATCHG+13, PSTATCHG+15, PSTATCHG+16, PSTATCHG+17, PSTATCHG+20, PSTATCHG+21, EIECHG+11
, EIECHG+12, EIECHG+14, EIECHG+15, EIECHG+16, EIECHG+17, EIECHG+19, EIECHG+22, EIECHG+23, EIECHG+25, EIECHG+26
, EIECHG+27, EIECHG+28
>> DC SETFMVAR+3, GETFMVAR+3*
DD STORPAP+18!
DFN PATVARS~, PATVARS+7, PATVARS+8, PATVARS+9, PATVARS+10, PATVARS+11, PATVARS+12, PATVARS+13, PATVARS+14
DG STORPAP+6~
>> DI SETFMVAR+1, GETFMVAR+1*
DIC STORPAP+6~, STORPAP+19*
DIC("DR" STORPAP+20*
DIC(0 STORPAP+19*
DIE STORPAP+6~, STORPAP+9*
DIG PSTATCHG+7~, EIECHG+9~
DIH PSTATCHG+7~, EIECHG+9~
DIK PSTATCHG+7~, PSTATCHG+11*, PSTATCHG+17*, PSTATCHG+21*, EIECHG+9~, EIECHG+12*
DIK(1 PSTATCHG+12*, PSTATCHG+18*, PSTATCHG+21*, EIECHG+13*
DIR DIRZ+2~, DIRPRMT+4~
DIR("?" DIRZ+6*, DIRPRMT+10*
DIR("A" DIRZ+3*, DIRZ+4*, DIRZ+5*, DIRPRMT+7*, DIRPRMT+8*, DIRPRMT+9*
DIR(0 DIRZ+7*, DIRPRMT+6*, DIRPRMT+11*
DIROUT DIRZ+2~, DIRPRMT+4~
DIRUT DIRZ+2~, DIRZ+8, DIRPRMT+4~
>> DIU SETFMVAR+8, GETFMVAR+8*
DIV PSTATCHG+7~, EIECHG+9~
DIW PSTATCHG+7~, EIECHG+9~
>> DK SETFMVAR+5, GETFMVAR+5*
>> DL SETFMVAR+7, GETFMVAR+7*
DLAYGO STORPAP+6~, STORPAP+8*, STORPAP+19*
>> DM SETFMVAR+4, GETFMVAR+4*
DO STORPAP+18!
>> DP SETFMVAR+6, GETFMVAR+6*
>> DQ SETFMVAR+2, GETFMVAR+2*
DR STORPAP+6~, STORPAP+10*, STORPAP+15
DT FMADD+9
DTOUT DIRZ+2~, DIRPRMT+4~, DIRPRMT+13
DUOUT DIRZ+2~, DIRPRMT+4~, DIRPRMT+13
DUZ EIECHG+11
>> M DIRPRMT+6
N STORPAP+6~, STORPAP+11*, STORPAP+12*, STORPAP+13
NEWVAL PSTATCHG~, PSTATCHG+8, PSTATCHG+14, PSTATCHG+19, EIECHG~, EIECHG+10
NODE EIECHG~, EIECHG+11, EIECHG+12, EIECHG+14, EIECHG+15, EIECHG+16, EIECHG+17, EIECHG+19, EIECHG+20, EIECHG+21
, EIECHG+22, EIECHG+25
OLDVAL PSTATCHG~, PSTATCHG+8, PSTATCHG+14, PSTATCHG+19, EIECHG~, EIECHG+10
STAT EIECHG+9~
STAT("CDATE" EIECHG+16*, EIECHG+17
STAT("CLIKE" EIECHG+23*, EIECHG+28
STAT("CSTAT" EIECHG+16*, EIECHG+20
STAT("CTRY" EIECHG+22*, EIECHG+27
STAT("PDATE" EIECHG+17*, EIECHG+18, EIECHG+19
STAT("PIEN" EIECHG+19*, EIECHG+24, EIECHG+25, EIECHG+26
STAT("PLIKE" EIECHG+26*, EIECHG+28
STAT("PSTAT" EIECHG+19*, EIECHG+20
STAT("PTRY" EIECHG+25*, EIECHG+27
TEXTDATE PCDVARS~, PCDVARS+18*, PCDVARS+24, PATVARS~, PATVARS+6*, PATVARS+11, PATVARS+12, PATVARS+13
U DIRPRMT+11, PCDVARS+20, PCDVARS+22, PCDVARS+23, PCDVARS+24, PSTATCHG+9, PSTATCHG+10, PSTATCHG+15, PSTATCHG+16, PSTATCHG+20
, EIECHG+11, EIECHG+14, EIECHG+15, EIECHG+16, EIECHG+19, EIECHG+20, EIECHG+22, EIECHG+25
>> WV0 PCDVARS+15*
>> WV2 PCDVARS+16*
>> WVACCN PCDVARS+19*
WVARRAY FMADD+10~, FMADD+17*, FMADD+18
WVB ASKDATES~, ASKDATES+21*, ASKDATES+25
WVBDF ASKDATES~, ASKDATES+18
>> WVBNEED PATVARS+13*
>> WVC0 PCDVARS+15*, PCDVARS+17*
>> WVCHRT PATVARS+9*
>> WVCMGR PATVARS+10*
>> WVCNEED PATVARS+11*
>> WVCODE DIRPRMT+11
>> WVD DIRPRMT+5*, DIRPRMT+6
WVDAYS FMADD~, FMADD+8, FMADD+12, FMADD+14*, FMADD+16, FMADD+17, FMADD+20, FMADD+22, FMADD+30
WVDC SETFMVAR+3*, GETFMVAR+3, GETFMVAR+9!
>> WVDFN STORPAP+4, STORPAP+5, STORPAP+12, STORPAP+20, PCDVARS+24*
WVDI SETFMVAR+1*, GETFMVAR+1, GETFMVAR+9!
WVDIU SETFMVAR+8*, GETFMVAR+8, GETFMVAR+9!
WVDK SETFMVAR+5*, GETFMVAR+5, GETFMVAR+9!
WVDL SETFMVAR+7*, GETFMVAR+7, GETFMVAR+9!
WVDM SETFMVAR+4*, GETFMVAR+4, GETFMVAR+9!
WVDP SETFMVAR+6*, GETFMVAR+6, GETFMVAR+9!
WVDQ SETFMVAR+2*, GETFMVAR+2, GETFMVAR+9!
WVE ASKDATES~, ASKDATES+28*
>> WVEDC PATVARS+14*
WVEDF ASKDATES~, ASKDATES+24
WVERR FMADD+10~
>> WVLDAT STORPAP+4, STORPAP+5, STORPAP+10, STORPAP+13, STORPAP+19
WVLOOP FMADD+10~, FMADD+22*
>> WVLPRG STORPAP+4, STORPAP+5, STORPAP+10, STORPAP+20
>> WVMAM PCDVARS+25*, PCDVARS+26*
WVMONTH FMADD+10~, FMADD+21*, FMADD+23*, FMADD+24*, FMADD+27*, FMADD+28
>> WVNAMAGE PATVARS+8*
>> WVNAME PATVARS+7*
WVNEWDT FMADD+10~, FMADD+11*, FMADD+15, FMADD+18*, FMADD+26*, FMADD+28*, FMADD+30*, FMADD+31
>> WVPAP PCDVARS+25*, PCDVARS+26*
>> WVPAPRG PATVARS+12*
>> WVPCDN PCDVARS+20*, PCDVARS+26
WVPDT FMADD~, FMADD+9*, FMADD+17, FMADD+21, FMADD+26, FMADD+30
>> WVPN PCDVARS+21*
WVPOP OUT+2*, ASKDATES~, ASKDATES+14*, ASKDATES+20*, ASKDATES+27*, DIRZ+8*, DIRPRMT+13*, STORPAP+15
>> WVPRMT DIRZ+3, DIRPRMT+7
>> WVPRMT1 DIRZ+4, DIRPRMT+8
>> WVPRMT2 DIRZ+5, DIRPRMT+9
>> WVPRMTQ DIRZ+6, DIRPRMT+10
>> WVPROV PCDVARS+23*
WVQUIT STORPAP+6~, STORPAP+8*, STORPAP+12, STORPAP+14*, STORPAP+15*, STORPAP+16
>> WVRES PCDVARS+22*
>> WVRESN PCDVARS+22*
WVSAME ASKDATES~, ASKDATES+25
WVTIME ASKDATES~, ASKDATES+16, ASKDATES+22
WVYEAR FMADD+10~, FMADD+21*, FMADD+24*, FMADD+26
X DIRZ+2~, DIRPRMT+4~, STORPAP+6~, STORPAP+19*, PCDVARS+15~, PCDVARS+21*, PCDVARS+23*, FMADD+10~, FMADD+12*, FMADD+14
, FMADD+15
Y ASKDATES+14~, ASKDATES+18*, ASKDATES+20, ASKDATES+21, ASKDATES+24*, ASKDATES+25*, ASKDATES+27, ASKDATES+28, DIRZ+2~, DIRZ+8
, DIRPRMT+4~, PCDVARS+15~*, PCDVARS+20, PCDVARS+22, PCDVARS+23, PCDVARS+24
>> ZTQUEUED LOCKED+1
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 |  Naked Globals |  Local Variables  | All