PSOTALK ;BIR/EJW - SCRIPTALK INTERFACE FROM VISTA ;12/20/17 19:09
Source file <PSOTALK.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ||
| CLEAN | ||
| BARE | ||
| BAREO | ||
| BARI | ||
| BARIO | ||
| GATHER | ;
 | 
|
| TRANS | ;If printer mapping defined use it; otherwise print by division 01/19/07
 | 
|
| TRANSQ | ;
 | 
|
| PCHK | ;Check for printers that are mapped to a ScripTalk printer
 | 
|
| GO | ||
| OVERLAY | ||
| DEFLINE(XCORD,YCORD,PRTOUT,FIELDNO,OFFSET) | ;
 | 
|
| PICOTAG | ||
| XMITP | ||
| ID() | ||
| AUTO | ;;v1.2c - LABEL REPRINTING FUNCTIONS 3-12-02
 | 
|
| PAT55() | ||
| PHONE() | ;changes below 1.2c*1 to swap to site signed-on vs. site from Rx
 | 
|
| CITY() | ||
| STATE() | ||
| ZIP() | ||
| SITE() | ||
| ACODE() | ||
| EPHON() | ||
| CLERK() | ||
| PSOEXP | ;
 | 
|
| VRPH() | ||
| RXNUM() | ||
| RXALPHA() | ;RETURN RENEWAL LETTER OR SPACE CHARACTER
 | 
|
| DATE() | ;CHANGED 7-30-01 TO USE EDATE FORMAT ALSO WHEN SPEAKING
 | 
|
| EDATE() | ||
| FILLS() | ||
| TFILLS() | ||
| RFILLS() | ;NEW REFILLS REMAINING METHOD 9-21-00, BASED ON PTST+5^PSORXVW
 | 
|
| FILNO() | ||
| EPAT() | ||
| LAST4() | ||
| SIG() | ;THIS SUBROUTINE WILL BE ABANDONED IF SIGPOE WORKS v1.2c 3-13-02
 | 
|
| SIGPOE() | ;v1.2c - NEW SUBROUTINE TO GIVE MESSAGE FOR LONG SIGS FOR THE HUMAN READABLE PORTION
 | 
|
| SIGPOEE | ||
| SIGPOEX() | ;v1.2c - NEW SUBROUTINE TO GIVE MESSAGE FOR LONG SIGS FOR THE READ ALOUD PORTION
 | 
|
| SIGPOEEX | ||
| PROV() | ;PROVIDER NAME
 | 
|
| EPROV() | ;
 | 
|
| QTY() | ||
| DF() | ||
| DRUG() | ||
| WARN() | ||
| SET10 | ;Set readable data for 10K printers, 1280 max characters
 | 
|
| WNALL() | ;Message when unable to print any warnings
 | 
|
| WNREM() | ;Message when only able to print some warnings
 | 
|
| SIGALL() | ;Sig plus all other information besides warnings is too long
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls | 
| ^PSRX - [#52] | Classic Fileman Calls |