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

Package: Outpatient Pharmacy

Routine: PSOERUT0


Information

PSOERUT0 ;ALB/MFR - eRx Patient - ListMan Utilities; 06/03/2023 5:14pm

Source Information

Source file <PSOERUT0.m>

Entry Points

Name Comments DBIA/ICR reference
SETPAT(MODE,ERXIEN,DFN,NMSPC,PENFLG,SDFLG) ; Set ListMan Side-By-Side Section for Patient
WTHT(MODE,ERXIEN,DFN) ; Adds eRx Weight & Height
; Input: MODE - Display Mode: "RS": Roll & Scroll | "LM": ListMan
; ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
; DFN - Pointer to PATIENT File(#2)
COMPARE(MODE,STR1,STR2,POS,ZIP,LMLINE,IGNNULL) ; Compare two strings and Sets Reverse/Highlight Video Array if different
; Input: MODE - Display Mode: "RS": Roll & Scroll | "LM": ListMan
; STR1 - String 1 to be compared with String 2
; STR2 - String 2 to be compared with String 1
; POS - Position to start the Reverse Video
; (o)ZIP - Zipcode field (1: Yes | 0: No)
; (o)LMLINE - Current ListMan line (LM Mode only)
; (o)IGNNULL - Ignore when STR2 is null/blank
BLANKLN(MODE,NOVB) ; Add a Blank Line
ADDLINE(MODE,NMSPC,ETEXT,VTEXT) ;Adds a New Line to the list
PAUSE ; Page break + erases the "Press Return..."
EQDATES(DATE1,DATE2) ;Checks if the fields are valid dates and are the same
; Input: DATE1 - Date 1 to be compared with Date 2
; DATE2 - Date 2 to be compared with Date 1
CLNSTR(STR) ; Cleans String (Removes any characters different than a-A & 1-9)
; Input: STR - String to be cleaned
RESET() ; Reset Video Atributes
; - Resetting list to NORMAL video attributes
VIDEO() ; Changes the Video Attributes for the list
ERXPHONE(ERXPAT,TYPE) ; Return the eRx Patient Phone # (if there is one)
; Input: ERXPAT - Pointer to ERX PATIENT (#52.46)
; TYPE - "PT": Primary Telephone | "HT": Home Telephone
ADDRESS(VALUE,ADDLINE) ; Returns Address Line1, Line2, Line3... (max 39 characters)
; Input: VALUE - Complete Address (Line1+Line2+Line3)
; ADDLINE - Line of the formatted address
ERXWTHT(ERXIEN,TYPE)
VAWTHT(DFN,TYPE) ; VistA Patient Weight/Height
; Input: DFN - Pointer to PATIENT File(#2)
; TYPE - "WT": Weight in Kg | "HT": Height in cm
PTPHONE ;display phone in the Single eRx View/Display mode

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDLINE+10
Function Call: WRITE
  • Prompt: $G(ETEXT),?40,$G(VTEXT)
  • Line Location: ADDLINE+11
Function Call: WRITE
  • Prompt: $C(8)
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: XX
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: $C(8)
  • Line Location: PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
^PS(52.46 - [#52.46] GETS^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
52.49306 GET1^DIQ
^PS(55 - [#55] GET1^DIQ
^HL(779.004 - [#779.004] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call