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

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

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

FileMan Files Accessed Via FileMan Db Call

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