Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: MPIFP54

MPIFP54.m

Go to the documentation of this file.

MPIFP54 ;BIRM/CMC-POST INIT FOR MPIF*1*54 ;MAY 24, 2007

 ;;1.0;MASTER PATIENT INDEX VISTA;**54**;30 Apr 99;Build 2

POST ;POST INIT TO INITIALIZE 984.8 FOR THE FULL ENUMERATION START VALUES

 N IEN

 S IEN=$O(^MPIF(984.8,"B","ONE",""))

 S ^MPIF(984.8,IEN,0)="ONE"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMPIFP54   283     printed  Dec 13, 2024@02:11:20                                                                                                                                                                                                      Page 2

MPIFP54   ;BIRM/CMC-POST INIT FOR MPIF*1*54 ;MAY 24, 2007

 +1       ;;1.0;MASTER PATIENT INDEX VISTA;**54**;30 Apr 99;Build 2

 +2       ;

POST      ;POST INIT TO INITIALIZE 984.8 FOR THE FULL ENUMERATION START VALUES

 +1       ;

 +2        NEW IEN

 +3        SET IEN=$ORDER(^MPIF(984.8,"B","ONE",""))

 +4        SET ^MPIF(984.8,IEN,0)="ONE"

 +5        QUIT

 +6       ;