IBTRH7 ;ALB/JWS - HCSR Manually Create 278 Request ;15-MAY-2015
Source file <IBTRH7.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ;EP
 ; Main entry point for IBT HCSR MANUAL 278 ADD protocol ; Input: None  | 
|
| ASKPAT() | ||
| ASKDATE(PROMPT,DEFAULT1,DEFAULT2) | ; get the from and thru dates
 | 
|
| FM1 | ;
 | 
|
| FM2 | ;
 | 
|
| FMDQ | ;
 | 
|
| FM1E | ;
 | 
|
| FM2E | ;
 | 
|
| SAVE(NODE0) | ; save entry in temporary ^TMP($J) global for list display
 | 
|
| FILE | ; save selected entry into 356.22 file
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | Classic Fileman Calls | 
| 2.312 | GET1^DIQ | 
| ^IBT(356.22 - [#356.22] | FIND1^DIC | 
| ^DIC(36 - [#36] | GET1^DIQ | 
| ^DGPM - [#405] | GET1^DIQ | 
| ^DGS(41.1 - [#41.1] | GET1^DIQ | 
| ^DIC(42 - [#42] | GET1^DIQ | 
| ^SC - [#44] | GET1^DIQ |