PSOERUT0 ;ALB/MFR - eRx Patient - ListMan Utilities; 06/03/2023 5:14pm
Source file <PSOERUT0.m>
| 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,TYPE,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)TYPE - Zipcode field ("ADD": Address | "ZIP": Zip Code) ; (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 |
|
| CLNADD(ADD) | ; Cleans an Address String
; Input: ADD - Address Line string to be cleaned |
|
| 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
|
|
| PTADDRS | ;display the patient address in the Single eRx View/Display mode
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| 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 |
