PXRMEXFILELIST ;SLC/PKR - File List Routine. ;Jun 10, 2024@11:50:58
;;2.0;CLINICAL REMINDERS;**87**;Feb 04, 2005;Build 35
;
; Reference to $$GETNATIONAL^ORIUTL supported by DBIA # 7465 (submit)
;
;==========================
FILELIST(FILELST,SILENT) ;
N CNT
S CNT=0
S CNT=CNT+1,FILELST(CNT)=811.4_U_$$GET1^DID(811.4,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=810.8_U_$$GET1^DID(810.8,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=811.9_U_$$GET1^DID(811.9,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=801.41_U_$$GET1^DID(801.41,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=810.7_U_$$GET1^DID(810.7,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=810.2_U_$$GET1^DID(810.2,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=810.4_U_$$GET1^DID(810.4,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=810.9_U_$$GET1^DID(810.9,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=811.6_U_$$GET1^DID(811.6,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=811.2_U_$$GET1^DID(811.2,"","","NAME")
;S CNT=CNT+1,FILELST(CNT)=811.3_U_$$GET1^DID(811.3,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=811.5_U_$$GET1^DID(811.5,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=801_U_$$GET1^DID(801,"","","NAME")
S CNT=CNT+1,FILELST(CNT)=801.1_U_$$GET1^DID(801.1,"","","NAME")
I $G(ORIMGR)=1!(SILENT) S CNT=CNT+1,FILELST(CNT)=101.71_U_$$GET1^DID(101.71,"","","NAME")
S FILELST(0)=CNT
Q
;
;==========================
PACKORD(RANK) ;
S RANK("FN",801.41)=200000,RANK(200000)=801.41
S RANK("FN",810.2)=11000,RANK(11000)=810.2
S RANK("FN",810.4)=8000,RANK(8000)=810.4
S RANK("FN",810.7)=10000,RANK(10000)=810.7
S RANK("FN",810.8)=9000,RANK(9000)=810.8
S RANK("FN",810.9)=4000,RANK(4000)=810.9
S RANK("FN",811.2)=3000,RANK(3000)=811.2
S RANK("FN",811.3)=3100,RANK(3100)=811.3
S RANK("FN",811.4)=2000,RANK(2000)=811.4
S RANK("FN",801.46)=2100,RANK(2100)=801.46
S RANK("FN",801.47)=2200,RANK(2200)=801.47
S RANK("FN",801.48)=2300,RANK(2300)=801.48
S RANK("FN",811.5)=5000,RANK(5000)=811.5
S RANK("FN",811.6)=1000,RANK(1000)=811.6
S RANK("FN",811.9)=6000,RANK(6000)=811.9
S RANK("FN",142.1)=100000,RANK(100000)=142.1
S RANK("FN",142)=100100,RANK(100100)=142
S RANK("FN",142.5)=100200,RANK(100200)=142.5
S RANK("FN",8925.1)=100300,RANK(100300)=8925.1
S RANK("FN",801)=100500,RANK(100500)=801
S RANK("FN",801.1)=100400,RANK(100400)=801.1
S RANK("FN",101.71)=190000,RANK(190000)=101.71
;Education Topics, Exams, and Health Factors need to
;be ranked after Sponsor (#811.6), but before Term(#811.5),
;Definition (#811.9) and Dialog (#801.41). After 1000, before
;5000.
S RANK("FN",9999999.09)=1010,RANK(1010)=9999999.09
S RANK("FN",9999999.15)=1020,RANK(1020)=9999999.15
S RANK("FN",9999999.64)=1030,RANK(1030)=9999999.64
Q
;
REPACKFILELIST(FILELST) ;
S FILELST(811.4)=""
S FILELST(810.8)=""
S FILELST(811.9)=""
S FILELST(801.41)=""
S FILELST(810.7)=""
S FILELST(810.2)=""
S FILELST(810.4)=""
S FILELST(810.9)=""
S FILELST(811.6)=""
S FILELST(811.2)=""
S FILELST(811.3)=""
S FILELST(811.5)=""
S FILELST(801)=""
S FILELST(801.1)=""
S FILELST(101.71)=""
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMEXFILELIST 3078 printed May 25, 2026@11:48:25 Page 2
PXRMEXFILELIST ;SLC/PKR - File List Routine. ;Jun 10, 2024@11:50:58
+1 ;;2.0;CLINICAL REMINDERS;**87**;Feb 04, 2005;Build 35
+2 ;
+3 ; Reference to $$GETNATIONAL^ORIUTL supported by DBIA # 7465 (submit)
+4 ;
+5 ;==========================
FILELIST(FILELST,SILENT) ;
+1 NEW CNT
+2 SET CNT=0
+3 SET CNT=CNT+1
SET FILELST(CNT)=811.4_U_$$GET1^DID(811.4,"","","NAME")
+4 SET CNT=CNT+1
SET FILELST(CNT)=810.8_U_$$GET1^DID(810.8,"","","NAME")
+5 SET CNT=CNT+1
SET FILELST(CNT)=811.9_U_$$GET1^DID(811.9,"","","NAME")
+6 SET CNT=CNT+1
SET FILELST(CNT)=801.41_U_$$GET1^DID(801.41,"","","NAME")
+7 SET CNT=CNT+1
SET FILELST(CNT)=810.7_U_$$GET1^DID(810.7,"","","NAME")
+8 SET CNT=CNT+1
SET FILELST(CNT)=810.2_U_$$GET1^DID(810.2,"","","NAME")
+9 SET CNT=CNT+1
SET FILELST(CNT)=810.4_U_$$GET1^DID(810.4,"","","NAME")
+10 SET CNT=CNT+1
SET FILELST(CNT)=810.9_U_$$GET1^DID(810.9,"","","NAME")
+11 SET CNT=CNT+1
SET FILELST(CNT)=811.6_U_$$GET1^DID(811.6,"","","NAME")
+12 SET CNT=CNT+1
SET FILELST(CNT)=811.2_U_$$GET1^DID(811.2,"","","NAME")
+13 ;S CNT=CNT+1,FILELST(CNT)=811.3_U_$$GET1^DID(811.3,"","","NAME")
+14 SET CNT=CNT+1
SET FILELST(CNT)=811.5_U_$$GET1^DID(811.5,"","","NAME")
+15 SET CNT=CNT+1
SET FILELST(CNT)=801_U_$$GET1^DID(801,"","","NAME")
+16 SET CNT=CNT+1
SET FILELST(CNT)=801.1_U_$$GET1^DID(801.1,"","","NAME")
+17 IF $GET(ORIMGR)=1!(SILENT)
SET CNT=CNT+1
SET FILELST(CNT)=101.71_U_$$GET1^DID(101.71,"","","NAME")
+18 SET FILELST(0)=CNT
+19 QUIT
+20 ;
+21 ;==========================
PACKORD(RANK) ;
+1 SET RANK("FN",801.41)=200000
SET RANK(200000)=801.41
+2 SET RANK("FN",810.2)=11000
SET RANK(11000)=810.2
+3 SET RANK("FN",810.4)=8000
SET RANK(8000)=810.4
+4 SET RANK("FN",810.7)=10000
SET RANK(10000)=810.7
+5 SET RANK("FN",810.8)=9000
SET RANK(9000)=810.8
+6 SET RANK("FN",810.9)=4000
SET RANK(4000)=810.9
+7 SET RANK("FN",811.2)=3000
SET RANK(3000)=811.2
+8 SET RANK("FN",811.3)=3100
SET RANK(3100)=811.3
+9 SET RANK("FN",811.4)=2000
SET RANK(2000)=811.4
+10 SET RANK("FN",801.46)=2100
SET RANK(2100)=801.46
+11 SET RANK("FN",801.47)=2200
SET RANK(2200)=801.47
+12 SET RANK("FN",801.48)=2300
SET RANK(2300)=801.48
+13 SET RANK("FN",811.5)=5000
SET RANK(5000)=811.5
+14 SET RANK("FN",811.6)=1000
SET RANK(1000)=811.6
+15 SET RANK("FN",811.9)=6000
SET RANK(6000)=811.9
+16 SET RANK("FN",142.1)=100000
SET RANK(100000)=142.1
+17 SET RANK("FN",142)=100100
SET RANK(100100)=142
+18 SET RANK("FN",142.5)=100200
SET RANK(100200)=142.5
+19 SET RANK("FN",8925.1)=100300
SET RANK(100300)=8925.1
+20 SET RANK("FN",801)=100500
SET RANK(100500)=801
+21 SET RANK("FN",801.1)=100400
SET RANK(100400)=801.1
+22 SET RANK("FN",101.71)=190000
SET RANK(190000)=101.71
+23 ;Education Topics, Exams, and Health Factors need to
+24 ;be ranked after Sponsor (#811.6), but before Term(#811.5),
+25 ;Definition (#811.9) and Dialog (#801.41). After 1000, before
+26 ;5000.
+27 SET RANK("FN",9999999.09)=1010
SET RANK(1010)=9999999.09
+28 SET RANK("FN",9999999.15)=1020
SET RANK(1020)=9999999.15
+29 SET RANK("FN",9999999.64)=1030
SET RANK(1030)=9999999.64
+30 QUIT
+31 ;
REPACKFILELIST(FILELST) ;
+1 SET FILELST(811.4)=""
+2 SET FILELST(810.8)=""
+3 SET FILELST(811.9)=""
+4 SET FILELST(801.41)=""
+5 SET FILELST(810.7)=""
+6 SET FILELST(810.2)=""
+7 SET FILELST(810.4)=""
+8 SET FILELST(810.9)=""
+9 SET FILELST(811.6)=""
+10 SET FILELST(811.2)=""
+11 SET FILELST(811.3)=""
+12 SET FILELST(811.5)=""
+13 SET FILELST(801)=""
+14 SET FILELST(801.1)=""
+15 SET FILELST(101.71)=""
+16 QUIT
+17 ;
