YSCLTST2 ;DALOI/LB/RLM - TRANSMIT RX AND LAB DATA FOR CLOZAPINE ; Nov 11, 2018@03:34
Source file <YSCLTST2.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TRANSMIT | ; send remote and local, kill and quit
 | 
|
| END | ;
 | 
|
| REXMIT | ; retransmit lab and RX data
 ; must be a tuesday  | 
|
| DATE | ||
| FLSET | ;Set up file 603.02
 | 
|
| EN(DRG) | ;
 | 
|
| CL1(DFN,DAYS) | ;The routine was split due to size
 | 
 
  | 
| CL(DFN,PSORCLOZ) | ; patient must be in both file #55 and #603.01 to get lab results
 | 
 
  | 
| ALTANC | ;
 | 
|
| KILL | ;
 | 
|
| OVERRIDE(DFN) | ;Check for an over-ride.   SEE RQ12.11
 | 
 
  | 
| ZEOR | ;YSCLTST2
 | 
|
| GET55(DFN,CLOZ55) | ; JCH - PSO*7*612 - Get Clozapine "SAND" node from file 55 via PDM API
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ | 
| 50.02 | GET1^DIQ, LIST^DIC | 
| ^PS(55 - [#55] | GET1^DIQ | 
| ^LAB(60 - [#60] | GET1^DIQ | 
| ^YSCL(603.01 - [#603.01] | FIND^DIC, GET1^DIQ, LIST^DIC | 
| ^YSCL(603.02 - [#603.02] | Classic Fileman Calls | 
| ^YSCL(603.03 - [#603.03] | Classic Fileman Calls, GET1^DIQ | 
| 603.41 | GET1^DIQ, LIST^DIC | 
| ^XTV(8989.3 - [#8989.3] | GET1^DIQ |