IB20PT86 ;ALB/CPM - EXPORT ROUTINE 'DGPTUTL' ; 14-FEB-94
Source file <IB20PT86.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DGPTUTL | ;ALB/AS - PTF UTILITY ROUTINE ; 12/13/89@8
|
|
D | ||
PM | ;sets variables from ^DGPM global
|
|
MT | ;Determine and store Means Test Indicator
|
|
AS | ||
DIE | ||
RTY | ; -- set rec type variables
; input: Y := rec type # ; output: DGRTY := rec type # ; DGRTY0 := name of type (in future, may expand to 0th node) |
|
HANG | ;
|
|
CEN | ; -- find current active census ; return ifn and 0th node
|
|
FMT | ; -- determime PTF record format
|
|
FDT | ; -- set new format date for testing
|
|
UPDT | ; -- update PTF record w/PTF and DFN defined
|
|
UPDTQ | ||
EXPL | ; -- explode string A(input) to DGA(output)
|
|
EXPL1 | ; -- explode string 'L' of form "1-12" ; input and output is 'L'
|
|
EXPL1Q |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: READ |
|
FileNo | Call Tags |
---|---|
^DGPT - [#45] | Classic Fileman Calls |