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

Package: Quasar

Routine: ACKQUTL


Information

ACKQUTL ;AUG/JLTP BIR/PTD HCIOFO/BH-QUASAR Utility Routine ; [ 06/06/99 10:03 ]

Source Information

Source file <ACKQUTL.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;QUASAR;;Feb 11, 2000
CNTR(X) ; "CENTER" FUNCTION
MIXC(X) ; CHANGES X TO MIXED CASE
SSN(X) ; FORMAT SSN
LOWC(X) ; CONVERT X TO LOWERCASE
UPC(X) ; CONVERT X TO UPPERCASE
NUMDT(X1,X2) ; LIKE FILEMAN'S GREAT NUMDATE
XDAT(X) ; FILEMAN INTERNAL TO EXTERNAL
FTIME(X) ;
STACT(ACKXX,ACKXX1) ;
YN(X) ; YES OR NO READER
ASKYN
PAUSE
TRIGCP ; TRIGGER OF C AND P STATUS FIELD FROM #2.5, #4.17, & #4.19
HTIM(%H,%S) ;
; Expected Input: %H = Full $H, %S = 1 if seconds desired
PAD(X,X1,X2,X3) ;
; Required Input: X = String to Pad, X1 = "R" or "L" (right/left justify)
; X2 = Number of Spaces, X3 = Pad character
BFY(X) ; RETURNS FM BEGIN OF FY FOR DATE X
INTRO ; QUASAR Introduction:
; Called by the entry action of the ACKQAS SUPER menu option.
IVD ; INITIAL VISIT DATE ** TRIGGERED FROM PATIENT NAME ***
ADDPROV(ACKVIEN,X) ; Add Procedure Provider to List of Secondary
; Providers if it is not already there.
; X=Provider
; ACKVIEN=IEN of Visit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?(IOM\2-($L(X)\2)),X
  • Line Location: CNTR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKYN+0
Function Call: WRITE
  • Prompt: !,"Answer Y for Yes or N for No."
  • Line Location: ASKYN+1
Function Call: WRITE
  • Prompt: $S($D(X("D")):" (YES)",1:$E("YES",$L(X)+1,3))
  • Line Location: ASKYN+3
Function Call: WRITE
  • Prompt: $S($D(X("D")):" (NO)",1:$E("NO",$L(X)+1,3))
  • Line Location: ASKYN+4
Function Call: WRITE
  • Prompt: " ??",!,$C(7)
  • Line Location: ASKYN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: INTRO+9
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+10
Function Call: WRITE
  • Prompt: !,"No Future Dates Allowed",!
  • Line Location: IVD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] GET1^DIQ
509850.66 LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call