- KMPDUTL6 ;OIFO/RAK - CPU Utilities ;2/17/04 10:58
- ;;3.0;KMPD;;Jan 22, 2009;Build 42
- ;;
- CPUDEL ;-- delete cpu data from file #8973 - cp parameters
- ;
- N DA,DIK,X,Y
- ;
- S DA(1)=$O(^KMPD(8973,0)) Q:'DA(1)
- S DIK="^KMPD(8973,"_DA(1)_",20,"
- F DA=0:0 S DA=$O(^KMPD(8973,DA(1),20,DA)) Q:'DA D ^DIK
- ;
- Q
- ;
- CPUGET(KMPDARRY) ;--get cpu data
- ;-----------------------------------------------------------------------
- ; KMPDARRY... Return array (passed by reference) in format:
- ; KMPDARRY(1)=Node
- ;-----------------------------------------------------------------------
- ;
- K KMPDARRY
- Q:$G(^KMPD(8973,1,20,0))=""
- M KMPDARRY=^KMPD(8973,1,20)
- ;
- Q
- ;
- CPUSET(KMPDLT) ;-- set cpu info into file #8973 cp parameters
- ;---------------------------------------------------------------------
- ; KMPDLT... Delete previous entries
- ; 0 - do not delete
- ; 1 - delete
- ;---------------------------------------------------------------------
- ;
- S KMPDLT=+$G(KMPDLT)
- ;
- N CPU,IEN,ERROR,FDA,NODE,ZIEN
- ;
- ; delete current CPU entries
- D:KMPDLT CPUDEL
- ;
- S IEN=$O(^KMPD(8973,0)) Q:'IEN
- ; get cpu data
- D CPU^KMPDUTL5(.CPU) Q:'$D(CPU)
- ; file cpu data
- S NODE=""
- F S NODE=$O(CPU(NODE)) Q:NODE="" D
- .K FDA,ERROR,ZIEN
- .S FDA($J,8973.201,"?+1,"_IEN_",",.01)=NODE
- .S FDA($J,8973.201,"?+1,"_IEN_",",.02)=$P(CPU(NODE),U)
- .S FDA($J,8973.201,"?+1,"_IEN_",",.03)=$P(CPU(NODE),U,2)
- .S FDA($J,8973.201,"?+1,"_IEN_",",.04)=$P(CPU(NODE),U,3)
- .S FDA($J,8973.201,"?+1,"_IEN_",",.05)=$P(CPU(NODE),U,4)
- .D UPDATE^DIE("","FDA($J)",.ZIEN,"ERROR")
- ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPDUTL6 1619 printed Mar 13, 2025@20:46:02 Page 2
- KMPDUTL6 ;OIFO/RAK - CPU Utilities ;2/17/04 10:58
- +1 ;;3.0;KMPD;;Jan 22, 2009;Build 42
- +2 ;;
- CPUDEL ;-- delete cpu data from file #8973 - cp parameters
- +1 ;
- +2 NEW DA,DIK,X,Y
- +3 ;
- +4 SET DA(1)=$ORDER(^KMPD(8973,0))
- if 'DA(1)
- QUIT
- +5 SET DIK="^KMPD(8973,"_DA(1)_",20,"
- +6 FOR DA=0:0
- SET DA=$ORDER(^KMPD(8973,DA(1),20,DA))
- if 'DA
- QUIT
- DO ^DIK
- +7 ;
- +8 QUIT
- +9 ;
- CPUGET(KMPDARRY) ;--get cpu data
- +1 ;-----------------------------------------------------------------------
- +2 ; KMPDARRY... Return array (passed by reference) in format:
- +3 ; KMPDARRY(1)=Node
- +4 ;-----------------------------------------------------------------------
- +5 ;
- +6 KILL KMPDARRY
- +7 if $GET(^KMPD(8973,1,20,0))=""
- QUIT
- +8 MERGE KMPDARRY=^KMPD(8973,1,20)
- +9 ;
- +10 QUIT
- +11 ;
- CPUSET(KMPDLT) ;-- set cpu info into file #8973 cp parameters
- +1 ;---------------------------------------------------------------------
- +2 ; KMPDLT... Delete previous entries
- +3 ; 0 - do not delete
- +4 ; 1 - delete
- +5 ;---------------------------------------------------------------------
- +6 ;
- +7 SET KMPDLT=+$GET(KMPDLT)
- +8 ;
- +9 NEW CPU,IEN,ERROR,FDA,NODE,ZIEN
- +10 ;
- +11 ; delete current CPU entries
- +12 if KMPDLT
- DO CPUDEL
- +13 ;
- +14 SET IEN=$ORDER(^KMPD(8973,0))
- if 'IEN
- QUIT
- +15 ; get cpu data
- +16 DO CPU^KMPDUTL5(.CPU)
- if '$DATA(CPU)
- QUIT
- +17 ; file cpu data
- +18 SET NODE=""
- +19 FOR
- SET NODE=$ORDER(CPU(NODE))
- if NODE=""
- QUIT
- Begin DoDot:1
- +20 KILL FDA,ERROR,ZIEN
- +21 SET FDA($JOB,8973.201,"?+1,"_IEN_",",.01)=NODE
- +22 SET FDA($JOB,8973.201,"?+1,"_IEN_",",.02)=$PIECE(CPU(NODE),U)
- +23 SET FDA($JOB,8973.201,"?+1,"_IEN_",",.03)=$PIECE(CPU(NODE),U,2)
- +24 SET FDA($JOB,8973.201,"?+1,"_IEN_",",.04)=$PIECE(CPU(NODE),U,3)
- +25 SET FDA($JOB,8973.201,"?+1,"_IEN_",",.05)=$PIECE(CPU(NODE),U,4)
- +26 DO UPDATE^DIE("","FDA($J)",.ZIEN,"ERROR")
- End DoDot:1
- +27 ;
- +28 QUIT
